有text1，text2，text3。

有label5，label7

label5是儲存，7是讀取

當點選儲存時，將text3的儲存在第一行，text2儲存在第二行直到第10行，text1儲存在第11行以及往後。

當點選讀取時第一行讀取到text3，第2-10行讀取到text2，後面的讀取到text1

儲存時候先檢查text2若超過N位元組則刪除N位元組以後的東西再儲存

對了，如果2-10行裡面有些沒內容的行就新增1個或者2個空格鍵下去看看能不能修復問題，不能的話也加上這個功能吧，還有就是設計一個按鈕，每按他一下都可以重新整理一下filebox的內容，這樣子可以麼？

bater2000 2011-07-01

建立個檔案file。txt，裡面寫個100

‘讀取檔案

Dim s As String

Open “C：\file。txt” for Input As #1

Input #1，s

Close #1

Msgbox s’這時會將讀出的檔案內容“100“顯示出來

‘寫入檔案也很簡單

s = 222

Open ”C：\file。txt“ for output As #1

write #1，s

Close #1

這時你再開啟檔案file。txt，裡面內容已經變成222了

至於想把資料儲存在第幾行這也很簡單，比如把 333儲存在第三行

dim a as string

a=”null“

s=333

Open ”C：\file。txt“ for output As #1

write #1，a

write #1，a

write #1，s

Close #1

這時開啟檔案file。txt就會看到第三行是333了，第一二行是null

建議把不同行的資料放到一個一維數組裡，會方便得多

972411345 2011-07-02

Private Sub Command1_Click（）

Open ”c：/1。txt“ For Input As #1

Do While Not EOF（1）

Line Input #1， ps

i = i + 1

If i = 21 Then

Text1。Text = ps

Else

If i > 21 Then

Text1。Text = Text1。Text & vbCrLf & ps

End If

End If

Loop

Close #1

End Sub

’把text的multiline設定為true

沙慧月03 2011-07-01

文件裡每行要求幾個字元？

網友e5dd6983b 2011-07-01

用FSO物件吧