数据文件操作.mb

很好的MAPINFO源代码可以下载下来看看哦对学习又很的帮助

'读取文本文件
'直接读取Excel表格
'EditText控件(对话框尺寸演示)
'GroupBox(对话框尺寸演示)控件
'penpicker控件(选择线型并进行位置演示)
'BrushPicker控件(填充样式)
'FontPicker控件(字符样式)
'SymbolPicker控件(选择符号)
'MultiListBox控件
'PopupMenu控件
'CheckBox控件
'OkButton和CancelButton控件
'默认位置和尺寸的OkButton和CancelButton控件
'指出位置的OkButton和CancelButton控件
SUB WJCZ
   W$="数据文件操作" CALL BZLBXZ
   IF R=0 THEN EXIT SUB END IF
   IF R=1 THEN GOTO W01 END IF
   IF R=2 THEN GOTO W02 END IF
   IF R=3 THEN GOTO W03 END IF
   IF R=4 THEN GOTO W04 END IF
   IF R=5 THEN GOTO W05 END IF
   IF R=6 THEN GOTO W06 END IF
   IF R=7 THEN GOTO W07 END IF
   IF R=8 THEN GOTO W08 END IF
   IF R=9 THEN GOTO W09 END IF
   IF R=10 THEN GOTO W10 END IF
   IF R=11 THEN GOTO W11 END IF
   IF R=12 THEN GOTO W12 END IF
   IF R=13 THEN GOTO W13 END IF
   IF R=14 THEN GOTO W14 END IF
W01:'读取文本文件
   W$="对话框文本" 
   CLOSE ALL OPEN file W$+".MB"
   FOR INPUT AS #1 
   M1$=""
   FOR I=1 TO 114   
   INPUT #1,z0$ 
   PRINT z0$
   R=LEN (Z0$)
   Z3$=MID$(z0$,2,R-1)
   M1$=M1$+";"+Z3$
   NEXT Close File #1
   NOTE "读取的文本文件显示在信息框中,请查看"
   EXIT SUB
W02:'直接读取Excel表格
  Register Table "土地利用.XLS" Type  XLS  '访问非MapInfo表格或文件
  Open Table "土地利用" Interactive
  Browse * From 土地利用 
  NOTE "现在显示的MapInfo表是直接读取Excel表格"
  CLOSE ALL
  EXIT SUB
W03:'直接读取Excel表格
W04:'直接读取Excel表格
W05:'直接读取Excel表格
W06:'直接读取Excel表格
W07:'直接读取Excel表格
W08:'直接读取Excel表格
W09:'直接读取Excel表格
W10:'直接读取Excel表格
W11:'直接读取Excel表格
W12:'直接读取Excel表格
W13:'直接读取Excel表格
W14:'直接读取Excel表格

END SUB