作者evantw (安安小成)
看板Visual_Basic
标题[VB6 ] 如何找寻 txt 内的特定栏位资料??
时间Sat Nov 27 12:30:42 2010
我有一个档案 .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
1F：推 BadNanEpi:用mid(), 或是left() 取出前面日期的字串 11/27 16:59
2F：→ BadNanEpi:跟输入的日期比较, 相同就作删除 11/27 16:59