一个文件读写的问题。。。谢谢。。

Question

假如有一个文件在 D:\123.txt   简单的写下进而的内容.
2431f11a30
123456
2431f11a50
123456
3506f11a50
123456

我想在123456的上面加上一句"AAAAAA"即：
2431f11a30
AAAAAA
123456
2431f11a50
AAAAAA
123456
3506f11a50
AAAAAA
123456

改怎么写呀谢谢各位。。

Answer 1

if strFind="123456" then strFind=strFind & "AAAAAA"

Answer 2

先把TXT里的数据读出来  用split 分割成数组 
然后判断是否="123456" 是的话 就如楼上所说
但还要加个回车符
if strFind="123456" then strFind=strFind & vbcrlf & "AAAAAA"

Answer 3

能否解释下这句...strFind=strFind   谢谢..

Answer 4

二楼说的正确，用split函数分割为数组，然后找"123456" 用 "123456" & vbcrlf & "AAAAA"代替

Answer 5

Private Sub Command1_Click()
   Open "d:\123.txt" For Input As #1
   Open "d:\1$$.txt" For Output As #2
   Dim istr As String
   While Not EOF(1)
     Line Input #1, istr
     If istr = "123456" Then _
        istr = "AAAAAA" & vbNewLine & istr
     Print #2, istr
   Wend
   Close
   FileCopy "d:\1$$.txt", "d:\123.txt"
   Kill "d:\1$$.txt"
   
End Sub