我有个txt文件,内容如下:
asdf=1
wq34=2
p236=3
怎样做到查找wq34的那一行,然后将它替换为wq34=abc,然后再保存到该文件里???

解决方案 »

  1.   

    简单的方法
    全部读出来
    Replace 
    就是效率慢点
      

  2.   

    dim s as string,stmp as string
    open "d:\test.txt" for input as #1
    do until eof(1)
      line input #1,stmp
      s=s+stmp
    loop
    close #1
    s=replace(s,"wq34=2","wq34=abc")
    open "d:\test.txt" for output as #1
    print #1,s
    close #1
      

  3.   

    有一点忘了补充了,就是wq34=2这一行,=的右边的数字不一定为2,为一个未知的数字时,怎样去找到这一行的,只知道=的左边是wq34。怎样查找到它并替换它的一整行为wq34=abc?
      

  4.   

    dim stmp as string
    open "d:\in.txt" for input as #1
    open "d:\out.txt" for output as #2
    do until eof(1)
      line input #1,stmp
      if left(stmp,5)="wq34=" then
        stmp=left(stmp,5) & "abc"
      end if
      print #2,stmp
    loop
    close #1
    close #2
    kill "d:\in.txt"
    name "d:\out.txt" as "c:\in.txt"
      

  5.   

    把上面的改一下不就OK了Dim s As String, stmp As String
    Open "d:\test.txt" For Input As #1Do Until EOF(1)
      Line Input #1, stmp
      If InStr(stmp, "wp34=") > 0 Then
         stmp = "wq34=abc"
      End If
      
      s = s + stmp
      
    Loop
    Close #1
    Open "d:\test.txt" For Output As #1
    Print #1, s
    Close #1