[VB6 ] 如何找尋 txt 內的特定欄位資料??

看板Visual_Basic作者evantw (安安小成)時間15年前 (2010/11/27 12:30)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串1/1

我有一個檔案 .txt內容為 Time,Ch1,Ch2,Ch3,Ch4,Ch5,Ch6,Ch7,Ch8,Ch9,Ch10, 2010/11/25 PM 09:30:59,0.0,0.0,0.0,0.0,0.0, 2010/11/26 AM 09:19:40,0.0,10.0,0.0,10.0,0,0, 每行以斷行做區隔我的目標是做一個 Text 欄位讓使用者設定日期比如使用者只需輸入日期 2010/11/25 後執行經比對後就將第二行刪除 2010/11/25 PM 09:30:59,0.0,0.0,0.0,0.0,0.0, 內容變成 Time,Ch1,Ch2,Ch3,Ch4,Ch5,Ch6,Ch7,Ch8,Ch9,Ch10, 2010/11/26 AM 09:19:40,0.0,10.0,0.0,10.0,0,0, 以下是我的讀取程式 s 是檔名 Dim f As Integer, sLine As String f = FreeFile '取得一個可用的檔案代碼 Open App.Path & "\test\" & s & For Input As #f '用Input方式開檔 While Not EOF(f) '如果還沒到檔尾 Line Input #f, sLine '讀取一行 Text1.Text = sLine '接下來要如何判斷是否有符合 2010/11/25 ?? Wend Close #f '關檔我現在在 Text1 內可以看到每一行的資料我的問題就是要如何搜尋 2010/11/25 的位置行並將該行刪除,然後再存檔請問這部分要怎樣寫呢??? 能否給個範例或提示謝謝~~ -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 219.81.230.15

推

BadNanEpi

11/27 16:59, , 1^F

11/27 16:59, 1^F

→

BadNanEpi

11/27 16:59, , 2^F

11/27 16:59, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 evantw 的文章

文章代碼(AID): #1Cy8bslf (Visual_Basic)