ZCZC 492
SXCI50 BEFZ 240000
AAXX 24001
58749 32580 62503 10266 20243 40079 52005 81402 333// 05101
10307 20237 70012 555 10307 20225 30259=
NNNN
ZCZC 493
SXCI50 BESZ 240000
AAXX 24001
53794 31930 03601 10242 20204 40038 71000 333// 00002 10316
20206 70001=
NNNN
以上是文本文件里的内容,红色的是"站代码",就是查找的关键字,绿色的是要查找的数据,
数据一定是333以后,直到"="结尾之间的内容,以" 7"开头(eg:0001).333到=号之间可能是多行,请问如何查找.
If Dir(fi(i)) <> "" Then
Open fi(i) For Input As #1
Do While Not EOF(1)
Line Input #1, d
If InStr(d, stationnum) > 0 Then
c = c + d
Line Input #1, d
c = c + d
Line Input #1, d
c = c + d
strArray = Split(c, "333")
For n = LBound(strArray) To UBound(strArray)
Next
d = strArray(n - 1)
sw1 = InStr(d, " 7")
Loop
Close #1
End If
以上是我写的代码,思路是这样的,先查找stationnum,然后连续读2行,查找333,截取333以后的内容,读取内容.
可结果发现如果查找内容在这2行内,可以读到,如果在第3行或更多就查找不到了,所以想从333查找直至=号结束,
请高手指教

请高手指教呀,这个问题已经捆扰我很多天了,我自己解决不了

感觉用正则可以很方便的搞定.
只是没空帮你研究

还请高手赐教啊

If Dir(fi(i)) <> "" Then
Open fi(i) For Input As #1
Do While Not EOF(1)
Line Input #1, d
If InStr(d, stationnum) > 0 Then
c = c + d
Line Input #1, d
c = c + d

do while InStr(d, "=")<0
Line Input #1, d
c = c + d
loop

strArray = Split(c, "333")
For n = LBound(strArray) To UBound(strArray)
Next
d = strArray(n - 1)
sw1 = InStr(d, " 7")
Loop
Close #1
End If
这样呢

[此贴子已经被作者于2007-6-27 16:03:59编辑过]