[已解决]逐行读取txt程序报错，超出文件尾

喵了个咪

我想要在一个文本文件中直接搜索某些字符，如WDO1，WDO2出现的第一次行号，WAVE第二次出现的行号，并对该行的数据进行部分修改（如WDO1第一次出现的行，从11位字符修改7位字符，改为6666.00）不想将txt导入excel中，而是直接对txt进行操作.目前想先找到WDO1出现的行号，程序运行报错，输入超出文件尾，不太明白为什么这样，请高手帮帮忙~~~

Sub sacinp()

Set fs = CreateObject("scripting.filesystemobject")
Set a = fs.opentextfile("E:\系统\Desktop\实习\VB\" & Sheets(2).Cells(2, 15).Value)
Dim j, k, WD1 As Integer
Dim WDO1
Dim cnt As String
b = a.readall
k = UBound(Split(b, Chr(13) & Chr(10)))
j = 1
  Do While Not a.AtEndOfLine
   cnt = a.readline
   If InStr(cnt, Cells(4, 15).Value, 1) <> 0 Then
    WDO1 = cnt
    WD1 = j
   Else
   End If
   j = j + 1
  Loop
  MsgBox j
End Sub

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-8-16 12:06

下面这段是找第一个出现的 WDO1 ，然后修改该行第11个字符开始的7个字符为 6666.00，然后保存。
其它的你自己琢磨下。
你的问题应该在于找到WDO1后，没有退出循环。
所以，程序继续寻找WDO1，找到后，记录的行号肯定是不一样的了。

1. Sub sacinp()
   
2. On Error Resume Next
   
3. Dim Fs, a, b, fPath$
   
4. Set Fs = CreateObject("scripting.filesystemobject")
   
5. fPath = ThisWorkbook.Path & "" & [o2]
   
6. Set a = Fs.opentextfile(fPath, 1)
   
7. arr = Split(a.readall, vbCrLf)
   
8. s = WorksheetFunction.Match("*" & [o4] & "*", arr, 0)
   
9. If Err.Number <> 0 Then MsgBox "该文件中不存在" & [o4]: Exit Sub
   
10. arr(s - 1) = Left(arr(s - 1), 10) & "6666.00" & Right(arr(s - 1), Len(arr(s - 1)) - 17)
    
11. Set a = Fs.CreateTextFile(fPath, True)
    
12. a.Write Join(arr, vbCrLf)
    
13. a.Close
    
14. Set Fs = Nothing: Set a = Nothing
    
15. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

一次性读取文本内容后，将文本拆成数组直接操作就可以。
完事了再将数组合并成字符串内容写入文本。

喵了个咪

抱歉，之前的附件似乎有点问题，这个是修正版。程序做了一些修改，但是搜索出来的行号是不对的，并不是WDO1第一次出现的位置

Sub sacinp()

Set fs = CreateObject("scripting.filesystemobject")
Set a = fs.opentextfile("E:\系统\Desktop\实习\VB\" & Sheets(2).Cells(2, 15).Value, 1)
Dim j, k, WD1 As Integer
Dim WDO1
Dim cnt As String
j = 1
  Do While Not a.AtEndOfLine
   cnt = a.readline
   If InStr(cnt, Cells(4, 15).Value) <> 0 Then
    WDO1 = cnt
    WD1 = j
   Else
   End If
   j = j + 1
  Loop
  MsgBox WD1
  MsgBox WDO1
End Sub

喵了个咪

gufengaoyue 发表于 2016-8-16 11:34
一次性读取文本内容后，将文本拆成数组直接操作就可以。
完事了再将数组合并成字符串内容写入文本。

比如说，是按照换行符拆成一个N行1列的数组，数组中每个元素代表1行，然后将数组的元素做循环，逐步与对应字符做比较，找到该字符后，修改该数组元素，然后重新写入一个新的文本文件中。这样的思路有问题么？我VBA用的不太熟，大概会用到的语句能给一点建议么

另外我之前用过mid替换单元格内部分字符，数组中某元素能用这个函数么？

另外，如果要找的是第二次出现的位置，怎么做呢。
还有能麻烦帮我看下我回复的第二段程序有什么问题么，为什么读出来的并不是正确的那一行

gufengaoyue

下面这段是找第一个出现的 WDO1 ，然后修改该行第11个字符开始的7个字符为 6666.00，然后保存。
其它的你自己琢磨下。
你的问题应该在于找到WDO1后，没有退出循环。
所以，程序继续寻找WDO1，找到后，记录的行号肯定是不一样的了。

1. Sub sacinp()
   
2. On Error Resume Next
   
3. Dim Fs, a, b, fPath$
   
4. Set Fs = CreateObject("scripting.filesystemobject")
   
5. fPath = ThisWorkbook.Path & "" & [o2]
   
6. Set a = Fs.opentextfile(fPath, 1)
   
7. arr = Split(a.readall, vbCrLf)
   
8. s = WorksheetFunction.Match("*" & [o4] & "*", arr, 0)
   
9. If Err.Number <> 0 Then MsgBox "该文件中不存在" & [o4]: Exit Sub
   
10. arr(s - 1) = Left(arr(s - 1), 10) & "6666.00" & Right(arr(s - 1), Len(arr(s - 1)) - 17)
    
11. Set a = Fs.CreateTextFile(fPath, True)
    
12. a.Write Join(arr, vbCrLf)
    
13. a.Close
    
14. Set Fs = Nothing: Set a = Nothing
    
15. End Sub

复制代码

喵了个咪

gufengaoyue 发表于 2016-8-16 12:06
下面这段是找第一个出现的 WDO1 ，然后修改该行第11个字符开始的7个字符为 6666.00，然后保存。
其它的你自 ...

谢谢，不明白再来请教您