寫入txt檔和讀取txt檔

Question

請問可以用vb寫一個如下:
假設txt檔內有以下內容:
第一頁
123...隨便的字串
321... 隨便的字串
111 ...隨便的字串
333 ...隨便的字串
第二頁
.......隨便的字串
.......隨便的字串
.......隨便的字串
第三頁
.......隨便的字串
.......隨便的字串
.......隨便的字串
.
.
.
第五頁
456...隨便的字串
444...隨便的字串
666...隨便的字串
當我讀取檔案(txt)內的第四頁內容,要如何只有讀取第四頁內的內容!
當我更改檔案(txt)內的第五頁內容,要如何只有存檔第五頁內的內容!

不知道我說什麼的可以發問!先謝謝大大的幫忙!

那我改成如下
[page1]第一頁
123...隨便的字串
321... 隨便的字串
111 ...隨便的字串
333 ...隨便的字串
[page2]第二頁
.......隨便的字串
.......隨便的字串
.......隨便的字串
[page3]第三頁
.......隨便的字串
.......隨便的字串
.......隨便的字串
.
.
.
[page5]第五頁
456...隨便的字串
444...隨便的字串
666...隨便的字串
程式碼該如何去寫ㄋ?

或是如何去判斷[page1]~[page5]的位置ㄋ?
懇請賜教!

不!那只是在文字檔內要來判斷要讀那一段內的內容!
假設我要去讀文字檔內的第五頁內容!
那就要程式去先找出第五頁的位置在那
然後只去讀單獨第五頁內的內容
並且可以對第五頁內的程式作單獨的檔案存取動作
這樣了 ,了嗎?

來自亡靈的信函 大大可否幫我上一下註解ㄋ?謝謝你喔!

Answer 1

不曉得這樣是不是你要的????
以下程式是以[page?]做為分頁標示
如第三頁為[page3]...
分頁標示需獨立一行.......
Command1為讀檔
Command2為存檔
Text1為顯示即編輯文字內容用(需設定為允許多行顯示)
測試檔為"c:\here.txt"
原始程式放在
ｈｔｔｐ：／／ｃｃ．ｆｊｔｃ．ｅｄｕ．ｔｗ／～ｑ１６０６２０９／ｔｘｔ．ｒａｒ (請自己改成半形)
測試檔
ｈｔｔｐ：／／ｃｃ．ｆｊｔｃ．ｅｄｕ．ｔｗ／～ｑ１６０６２０９／ｈｅｒｅ．ｔｘｔ (請自己改成半形)

'程式碼--------------------------------
Private Sub Command1_Click()
Dim txtNum%, txtRow$, pageNum$
Dim readYN As Boolean

pageNum = "[page" & InputBox("請輸入開啟頁碼:") & "]"
txtNum = FreeFile
Text1 = ""

Open "c:\here.txt" For Input As #txtNum
Do While Not EOF(txtNum)
Line Input #txtNum, txtRow
If readYN Then
If Left(txtRow, 5) = "[page" And Right(txtRow, 1) = "]" And txtRow <> pageNum Then
readYN = False
Else
Text1 = Text1 & txtRow & vbNewLine
End If
Else
If txtRow = pageNum Then readYN = True
End If
Loop
Close #txtNum
End Sub

Private Sub Command2_Click()
Dim txtNum%, txtRow$, pageNum$, Temp$

txtNum = FreeFile
pageNum = "[page" & InputBox("請輸入存檔頁碼:") & "]"

Open "c:\here.txt" For Input As #txtNum
Do While Not EOF(txtNum)
Line Input #txtNum, txtRow

If readYN Then
If Left(txtRow, 5) = "[page" And Right(txtRow, 1) = "]" And txtRow <> pageNum Then
readYN = False
Temp = Temp & txtRow & vbNewLine
End If
Else
Temp = Temp & txtRow & vbNewLine
If txtRow = pageNum Then
readYN = True
Temp = Temp & Text1 & vbNewLine
End If
End If
Loop
Close #txtNum

Open "c:\here.txt" For Output As #txtNum
Print #txtNum, Temp
Close #txtNum
End Sub

2007-02-01 03:22:01 補充：
鳴大,請您移駕至此看註解吧
http://cc.fjtc.edu.tw/~q1606209/readtxt.html
我表達能力不佳,希望你看得懂我的註解...

Answer 2

謝謝來自亡靈的信函的大大感謝你無私的奉獻
真是一只苦海中的明燈~感謝你~ 來自亡靈的信函 大大

Answer 3

嗯 只要是非標準格式的都要自己定義啦

重點就是你定義的 分隔符號 絕對不會出現在資料中 就可以囉

Answer 4

純文字檔是不可能看出第幾頁的
除非你已經告訴電腦你用的紙張大小才有可能
莫非你說的第幾頁
是印表機列印出來的頁碼嗎

Answer 5

基本上，一個純文字檔，並無法讓程式判別哪段文字在第幾頁，不管你用什麼程式語言都一樣。

除非，你的文字檔自己有做標記，例如某一行的內容為[page1]，這樣子程式就可以找到這個標記點，並按照你設定的規則來剖析檔案內容。

除了純文字檔之外，如果你用的是word檔，就可以使用微軟提供的Word物件模組函式庫來操弄這個檔案，你可以抓到某一頁某一列的內容。

因為word文件屬於標籤式文件，裡面隱藏著許多的標記，就像html網頁的標籤一樣，所以才能這樣操弄。