VB中如何获对一个txt文本文件进行某行的修改?

Question

我写了以下代码可用，但是觉得不够好，哪位有更好的方法？
Dim buffer As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile("c:\testfile.txt", 1)
    Set b = fs.createTextFile("c:\testfile.tmp")
    Do While a.AtEndOfStream <> True
        retstring = a.ReadLine
        If retstring = "#The 2nd line." Then
            b.writeline ("The 2nd line.")
        Else
            b.writeline retstring
        End If
        
    Loop
    a.Close
    b.Close
    
    fs.copyfile "c:\testfile.tmp", "c:\testfile.txt", True
    fs.deletefile "c:\testfile.tmp"

Answer 1

     谢谢littletao的回答,但我也觉得会有更好一些的方法,因为你的想法和我的有点类似...但还是Thank you very very much!!!
     让我们一起期待更好的方法出现吧!                                         vbhh   ^_^ 2/23 10:39 

Answer 2

vbhh ,你几天就把分用完了？

Answer 3

我也觉得想不出比littertao更好的办法，提出一点小的改进意见，不要马上写到另一个文件里，而是写到FileStream里面去

Answer 4

谢谢各位的意见!     没法子,项目逼的紧,只有忍痛割分了....
             俗话说的好:舍不得孩子,套不住他娘啊....
                        哎,项目总应该可以交差了吧?!
                                     
vbhh from hz mail:[email protected]   2/24 9:30