'讀取文本文件
'直接讀取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