推 BadNanEpi:用mid(), 或是left() 取出前面日期的字串 11/27 16:59
→ BadNanEpi:跟輸入的日期比較, 相同就作刪除 11/27 16:59
我有一個檔案 .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