如何将TABMIF转换成SHP.doc

如何将TABMIF转换成SHP

———————————————————————————————— 作者：
———————————————————————————————— 日期：

6

个人收集整理 勿做商业用途
1、 通过MａpＩnｆo　Proｆeｓsｉonal来转,具体操作:Tools/Unｉｖerｓａl Tｒａnslator／Ｕｎivｅrｓal
可以选上源文件和目标文件夹，可以直接选Tab文件,Ｍapinfo会自动把图层上的元素转换成arcgｉs的点、线、面图层。这个比拟简单,笔者已经成功。我是参考了一下的介绍：

MIF是mapiｎfo的数据文件,ＳＨP是aｒｃＧIＳ的数据文件, 由MIＦ格式转成SHP格式,需要注意一点: MＩ格式文件所在的目录不能太深，否那么maｐinfo9.５说转换不正确:

具体错误信息为:　Uｎｂａlanceｄ quoｔａtion　ｍａｒks encouｎｔｅrｅｄ ｏn ｌiｎe　1 of file G:＼DOCUME~1\ｍao\LOCALS～１\Temp\ut_pａrｍ．txｔ －－ ｌiｎe was `ＣＦGeneｒaｔe MＩＦ SHAPE ＂Ｃ:＼Temｐ\11＼MapInfo交换格式\园分布图\" "Ｇ:\ＤOCUMＥ～1\maｏ＼ＬOＣAＬS～1\Tｅmp\fmｅ7２.ｔｍp" ＬＯG＿STＡＮDARDOUT　YES ＋ID "队界" '
另外,有的MIF文件,特别的数据量大的线条文件被破坏掉， 不知是什么原因, 如线条文件,出现怪字符,这时需要手工将它们清掉,或采用程序，　后面附了其ＩＤL程序,来读取MIF文件〔注意， 只对线条文件ｐlｉｎe　arc　rｅｇion等,其它未做过多测试)，并转换成正确的MIF文件，再准备由mapinfo９.5转;
翻开mａpiｎfｏ９.5,选择工具/通用转换工具／通用转换工具, 英文是Toｏls/Ｕnｉvｅrｓaｌ　Translaｔor/Ｕｎiｖerｓal　Translator,弹出如下菜单,sｏurce选择mapinfo mid/ｍif，Dｅstination选择ＥＳRI.就OK

IDL程序
prｏ mｉf＿2_ｍif
 ｆiｌeｓ =　DＩALOG_ＰＩCKFILＥ(/REAＤ, FILＴEＲ ＝ '*．mif＇，/MＵLTIPLＥ_ＦIＬES,/MUＳT_EXIＳＴ)
 for j＝0，n_eｌements(fiｌes)-1　ｄo begｉn
  file＝files［j]ﻫ  ｖ=ｓtr_sep(ｆiｌe,＇.'〕ﻫ  ｎｖ=n_ｅleｍeｎts(ｖ)
  if nv　eq 1 then returnﻫ  midfile=strjoin(v[0:nｖ-2]，'.＇)+'.mid'
  filesｈｐ=sｔrjｏin(v［0：nv－2]，＇.')+'＿ａ.mｉf＇
  ｆilemｉd=sｔｒjoｉn〔v［０:nv-２],'.')＋'_a.ｍid'
  ｏpenｒ,fp,file,/geｔ_ｌｕn
  openr,mｉdin,miｄｆile,/gｅｔ_lunﻫ  veｒsiｏn='＇ﻫ  rｅａdf，ｆｐ，versioｎ
  v=sｔｒ_sｅp〔veｒsioｎ，＇ ')ﻫ  if v[1]　nｅ '4５０' then bｅginﻫ   ｐrｏｍ=diaｌoｇ_mｅｓsage〔＇MIＦ格式不是45０版＇，title=＇转换出错＇)
   returｎ
  endｉf
  ｏｐenｗ,lｕｎ，fileshp,/get_ｌｕn
  opeｎw,mid,ｆｉleｍid,／gｅt_lｕnﻫ  prinｔf,ｌun,＇Verｓｉｏn ３00'
  ｓtｒ=''
  str1=''ﻫ  rｅadf，fp，stｒ ；Cｈarｓet
  ｐrinｔf,luｎ，str
  readｆ,fｐ,sｔr ;Delｉｍitｅrﻫ  pｒintf,lun,strﻫ  fｏｒ k=0,4　ｄo　begiｎﻫ   rｅａdf,fp,ｓtr
   ｐrｉｎtf,lun,strﻫ  ｅｎｄforﻫ ； ｐｒintf，lun,ｓｔrmiｄ(ｓtr，1)  ;坐标系统ＣoｏｒdSysﻫ  ｒeaｄf,fp,sｔr ;Ｃoluｍnｓ
  prｉnｔｆ,lｕｎ,stｒﻫ  v＝stｒ_sep〔ｓtr,strinｇ〔9ｂ)〕
  ｎcol=fｉx(ｖ[1])ﻫ  for k=0，ｎｃol-1 do bｅｇiｎ
   ｒeadf,fp,strﻫ   printf,lun,stｒﻫ  endfor
  rｅaｄf,fｐ，sｔr ;Data
  ｐｒinｔf,lun,ｓｔr
  ｒeaｄf,fp,stｒ ;''ﻫ  priｎｔｆ,ｌuｎ,''
  ID=0Lﻫ  suｍ=0L
  ｅrr＿nｕm=０Ｌ
  ｗｈile noｔ　eof(fｐ)　ｄo　bｅginﻫ   rｅａdf,fp,ｓtr ；Pline  18６
ｍarkｐlｉne：ﻫ   u=ｓtr_seｐ(sｔｒ，' '〕
   iｆ　n_elemenｔs(u) eq 1　theｎ u＝str_sｅｐ〔ｓｔr,sｔring(9b))　ﻫ   inｄ=whｅre(ｓtrlｅn〔ｕ〕 ｎｅ　0,ｃount)
   iｆ count eｑ　０ thｅｎ continue   ；空行
   ｕ=u[iｎｄ]
   typｅ＝u[0]ﻫ   ｃaｓe type ｏｆﻫ   'Plinｅ'： bｅgin
     n＝loｎｇ(ｕ［１］)
     ｐ＝dｂlarｒ(2,ｎ)ﻫ     ＣＡTCH,　Erroｒ_statｕsﻫ     IF　Ｅｒroｒ_stａtus NＥ　０ THEN BEGＩＮ
      err_num＝err_num+1
      prｉnt，＇ｅrr='，sumﻫ      wｈｉｌe　nｏt eof(ｆp)　do begin
       readｆ,ｆｐ,strﻫ       iｆ　sｔｒｐos(str,'Reｇｉｏn＇〕 ge ０　thｅn ｇoｔo,markｐline
       if ｓtrｐｏs(ｓtr，'Plinｅ'〕 ｇe 0 theｎ ｇotｏ,markｐline
       if　stｒpos(stｒ，'Teｘt')　ge 0　thｅn gｏto,maｒkpline
       if sｔrpos(sｔr，'Arc'〕 ｇe 0　tｈｅn ｇｏｔｏ,markpline
      endｗhｉle
      bｒeakﻫ     eｎｄｉf
     printf,lｕn,stｒﻫ     readf，fp，p
     readf,midｉn,str
     prinｔf,mｉd,ｓtrﻫ     for k=0，n－1 ｄo $ﻫ      printf,luｎ，ｐ[*，k]，fｏrｍat＝＇(d0,1x,d0〕'ﻫ     ｓｕｍ＝sum+ｎﻫ     ＩＤ＝ID+1
    ｅnd
    'Tｅxt':begin
     printｆ，ｌｕn,stｒ  ；'Ｔｅｘt'ﻫ     rｅａdf，fp,stｒ
     prｉntf,lun,str  ;94942.38　1439..．.ﻫ     ｒｅadf，miｄin,strﻫ     prｉｎｔf,mid,sｔrﻫ    ｅnd
    'Nonｅ':bｅgin
     priｎtf,lun,stｒ  ；'Texｔ'
     reａdf,ｆp,strﻫ     prｉntf,lun，ｓtr  ；9４94２.38　１439....
     reaｄf,midin,str
     ｐrintｆ,mid,sｔrﻫ    enｄ
    'Arｃ':ｂegｉn
     ｐrintｆ,lun，ｓtｒﻫ     ｒeadf,midin,strﻫ     printf,miｄ,ｓtrﻫ    end
    'Ｒeｇion':beｇiｎ
     ｒeａdf,fp，str１ﻫ     n＝long(ｓｔr1〕ﻫ     p=ｄblarr(2,n)
     CATCＨ, Erｒor＿staｔｕsﻫ     IF Error＿sｔaｔus NE　0 THEN BEGIN
      err_num=err＿num＋1
      prinｔ，＇eｒr＝＇,sｕmﻫ      ｗhile ｎｏt ｅof〔ｆp) do beｇinﻫ       reaｄf,fｐ,str
       if ｓｔrpos(ｓtr,'Rｅｇioｎ＇)　ｇe 0 tｈen　goｔo，maｒkｐlinｅ
       iｆ strpoｓ(sｔr,＇Ｐｌine') ge 0 then ｇｏtｏ，markplｉne
       iｆ ｓtrpｏs〔str,'Ｔext') ｇe　0 then goｔｏ,ｍａｒｋpliｎe
       ｉｆ　strpｏs(ｓtr,＇Arc')　ge 0 then　ｇｏｔo,ｍａrｋｐliｎｅﻫ      eｎdwhｉle
      ｂrｅaｋﻫ     eｎdif
     printf,lｕn,sｔrﻫ     priｎｔf,lun,stｒ１
     ｒeaｄｆ,fｐ,pﻫ     ｆor k=0，ｎ－1 do $ﻫ      pｒinｔf，ｌｕn，p[*,k],formａt='(d0,１x,d0)'
     ｒｅadｆ,midin，strﻫ     priｎtf,mｉd,sｔrﻫ     sum=sｕm+n
     ID=ID+1    
    enｄ
   eｌse:begｉn
    iｆ strmid(ｔype,0,１) ｌt ＇0' or strmid(type，0,1) ｇt '9' theｎ begｉnﻫ     prｏｍ=dｉａlog_meｓsage(ｆiｌｅ+'有不识别的类型'+tｙｐｅ+'，是否退出?＇,/questiｏn)
     if prom ｅｑ　'Yｅs' then　goto，endall
    ｅｎdif else　bｅgin      ;遇到填充子区时,中间是一个数字ﻫ     priｎtf,lun,ｓtr
     whｉｌe ｎoｔ ｅof(ｆp) ｄo begｉｎﻫ      reaｄf,ｆp,str
      ｉｆ strpｏｓ(sｔr,'Reｇion＇) gｅ 0 ｔｈen goto，maｒkｐlｉne
      ｉf sｔｒpos(str，'Ｐｌiｎe') ge 0 then goto,markｐｌｉneﻫ      iｆ ｓtrｐｏｓ(str，'Ｔｅｘt') ge ０ thｅn goｔｏ,markpｌｉne
      iｆ ｓｔrpos(ｓtr,'Arc') ge　0 tｈｅn ｇotｏ，mａrkplｉne
      prｉnｔf,luｎ，str
     eｎdwhiｌe
    endeｌseﻫ   enｄ
   endcａseﻫ  eｎdwhｉlｅﻫenｄall:
  ｆrｅｅ_lun,fpﻫ  frｅe_ｌun,midｉnﻫ  fｒeｅ_lun，ｌuｎ
  fｒee_lun,miｄﻫ  priｎt，'IＤ＝＇，ID
 ｅnｄfｏｒ
ｅｎd

2、 第二种方法是可以下载miｆ转sｈp工具，笔者下载了一个，但是运行转换时鼠标一直是等待状态,没有转换成功
3、 可以将TAＢ转换成ＭIＦ文件，然后再通过ａrcgis ｃaｔａｌoｇ的转换工具转换成shp，但是笔者没有成功,总是报错。具体操作是:

右键单击工具栏
Arcview ８x tｏolｓàcｏnvｅrsiｏn toｏlsàMiｆ　to　ｓｈａpeｆｉlｅ，在翻开的窗口上选择源文件和目标文件。