Open C test tmp For Output As 1

Open "C: test. tmp" For Output As #1 Str 1 = “中華民國萬歲" Val 1 = 7654321 Write #1, Str 1, Val 1 Str 1 = “三民主義萬歲" Val 1 = 1234567 Write #1, Str 1, Val 1 C: Close #1 C: test. tmp

【實例：輸出到表單】 Private Sub cmdrun_Click() Print , "九九乘法表" For I = 1 To 7 Step 3 For j = 1 To 9 For k = 0 To 2 Print I + k; "*"; j; "="; If (I + k) * j < 10 Then Print " "; Print (I + k) * j, Next k Print Next j Print Next I End Sub

【實例：輸出到檔案】 Private Sub cmdrun_Click() Open “ 9 x 9. txt” for output as 1 Print #1, , "九九乘法表" For I = 1 To 7 Step 3 For j = 1 To 9 For k = 0 To 2 Print #1, I + k; "*"; j; "="; If (I + k) * j < 10 Then Print #1, " "; Print #1, (I + k) * j, Next k Print #1, Next j Print #1, Next I End Sub

檔名指定 1. 直接指定 Open “A: SPPLKK5630. txt” for Input As #1 2. 變數指定 Filename 1=“C: VB 6samplesdata 1. dat” Filename 2=Text 1. Text Filename 3=Combo 1. Text Open Filename 1 for Output As #1 Open Filename 2 for Output As #2 Open Filename 3 for Output As #3 3. 利用檔案管理相關物件 Drive. List. Box, Dir. List. Box, File. List. Box, 通用對話框

與路徑設定有關之控制項 Drive. List. Box 縮寫Drive Dir. List. Box 縮寫Dir File. List. Box 縮寫File

Free. File函數

Open 檔名 For 存取模式 As #緩衝區代號. . . 存取模式: 循序存取(Sequential Access) 二元存取(Binary Access) 隨機存取(Random Access)

循序存取(Sequential Access) 存檔 Open filename For Output As #1 變數 寫入 資料 讀檔 Open filename For Input As #1 讀取 資料 變數

存檔語法 Open filename For Output As #1 Print #1, 資料 1 Word. Pad Print #1, 資料 2 Close #1 資料 2 filename

存檔語法 Open filename For Output As #1 Print #1, 資料 2 Close #1 資料 2 filename

Dim Str 1 As String, Val 1 As Long Open "C: test. tmp" For Output As #1 Str 1 = “中華民國萬歲" Val 1 = 7654321 Print #1, Str 1, Val 1 Str 1 = “三民主義萬歲" Val 1 = 1234567 Print #1, Str 1, Val 1 中華民國萬歲 7654321 Close #1 三民主義萬歲 1234567 空 14格 filename

存檔語法 Open filename For Output As #1 Write #1, 資料 2 Close #1 資料 2 filename

存檔語法 Open filename For Output As #1 Write #1, 資料 2 Close #1 資料 1, 資料 2 filename

Write #1, 資料 2 filename 資料 1, 資料 2 資料 1 資料 2 讀檔語法 變數 1 變數 2 Open filename For Input As #1 Input #1, 變數 2 Close #1

Dim Str 1 As String, Val 1 As Long Open "C: test. tmp" For Output As #1 Str 1 = “中華民國萬歲" Val 1 = 7654321 Write #1, Str 1, Val 1 Str 1 = “三民主義萬歲" Val 1 = 1234567 Write #1, Str 1, Val 1 “中華民國萬歲”, 7654321 Close #1 “三民主義萬歲”, 1234567 以逗號分隔 filename

Private Sub Command 1_Click() Dim Str 1 As String, Val 1 As Long Dim Tmp 1, Tmp 2 Open "C: test. tmp" For Output As #1 Str 1 = “中華民國萬歲" Val 1 = 7654321 Write #1, Str 1, Val 1 Str 1 = “三民主義萬歲" Val 1 = 1234567 Write #1, Str 1, Val 1 Close #1 Open "C: test. tmp" For Input As #1 Input #1, Tmp 2 '讀取第一筆 Msgbox Tmp 1 & ": " & Tmp 2 Input #1, Tmp 2 '讀取第二筆 Msgbox Tmp 1 & ": " & Tmp 2 Close #1 End Sub

使用Line Input讀取一整行資料 Private Sub Command 1_Click() Dim Str 1 As String, Tmp 1 As String Open "C: test. tmp" For Output As #1 Str 1 = “中華民國 萬萬歲" Print #1, Str 1 = “三民主義 萬萬歲" Print #1, Str 1 Close #1 Open "C: test. tmp" For Input As #1 Line Input #1, Tmp 1 ‘讀取第一行 Msgbox Tmp 1 Line Input #1, Tmp 1 ‘讀取第二行 Msgbox Tmp 1 Close #1 End Sub

Append存檔模式 Open filename For Append As #1 把資料添增到檔案裡 Private Sub Command 1_Click() Dim Str 1 As String Open "C: test. tmp" For Append As #1 C: test. tmp Str 1 = “消滅萬惡共匪” Write #1, Str 1 “中華民國萬歲” Str 1 = “解救大陸同胞” “三民主義萬歲” Print #1, Str 1 “消滅萬惡共匪” Close #1 End Sub “解救大陸同胞”

範例: 製作一個程式使用記錄檔 Private Sub Form_Load() Dim My. File As String, User. Name As String User. Name = Input. Box("請輸入你的名字", , "客人") My. File=“c: record. txt” Open My. File For Append As #1 Write #1, Date$, Time$, User. Name '你的程式一啟動就會把 日期、時間與使用人的資料加入檔案 Close #1 End Sub

Private Sub Command 1_Click() Dim My. File As String, A$, B$, C$ List 1. Clear ‘清除列示方塊內容 My. File=“c: record. txt” Open My. File For Input As #1 Do Input #1, A$, B$, C$ List 1. Add. Item “日期：” & A$ & “，時間：” & _ B$ & "，使用者：" & C$ Loop Until EOF(1) Close #1 End Sub

What is a Binary file ? 顯示字元 A 1 ß ASCII 65 49 225 Hex 41 31 E 1 Binary 01000001 00110001 11100001 All files are stored as binary form in devices. When we say binary file, we mean non-sequential files (text) or random file (records)!

在循序檔中, 資料均視為文字檔, 每一 個文字佔 1位元組(Byte)之空間 Open “C: test. txt” _ “A”, ”A”, …. for output as #1 共需1024 x 4 bytes Dim I = 4096 bytes For I = 1 to 1024 = 4 Kb Write #1, “A”, 1, 1, 1, …. . . Write #1, 1, 共需1024 x 2 bytes Next I = 2048 bytes Close #1 = 2 Kb

二進位檔可大量節省數�型之儲存空間 Open “C: test. txt” _ “A”, ”A”, …. for output as #1 共需1024 x 4 bytes For I = 1 to 1024 = 4096 bytes Write #1, “A”, = 4 Kb Write #1, 10000, … Next I 共需1024* 6 bytes Close #1 = 6 Kb

二進位檔可大量節省數�型之儲存空間 Dim I as integer AAAA…. . For I = 1 to 1024 共需1024 x 1 bytes put #1, , “A”, = 1024 bytes put #2, , 10000, = 1 Kb Next I 亂碼 共需1024 x 2 bytes = 2048 bytes = 2 Kb

如上例, 直接讀取Bank變數 Dim Dim A B A As B As C As Bank A=1 byte Byte Integer Double As Single C Get #1, 12, Bank B=2 bytes C=8 bytes Bank = 4 bytes D

Dim Dim A B A As B As C As Bank Byte Integer Double As Single C A=1 byte B=2 bytes C=8 bytes Bank = 4 bytes D 想像若要連續讀取Bank變數, 則讀取第 1筆為 Get #1, 12, Bank 想像若要連續讀取Bank變數, 則讀取第 2筆為 Get #1, 27, Bank

Random 模式 Open 檔名 For Random As 緩衝區編號 Len = 結構變數長度 Type Money Dim A As Byte Dim B As Integer Dim C As Double Dim Bank As Single End Type Dim Deposit as Money Open “c: test. bin" For Random As #1 Len =Len(Deposit) 以Random 模式讀取第 1筆資料: Get #1, 1, Deposit 以Random 模式讀取第 2筆資料: Get #1, 2, Deposit