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

[vbhh]

各位好:
请教一个问题:
VB中如何获对一个txt文本文件进行某行的修改?
For Example:
1.txt文件内容如下:

The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
.
.
.

For help...
Thank you very much!

vbhh 2/23/2000

[Firing_Sky]

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

[Firing_Sky]

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

[littletao]

我写了以下代码可用，但是觉得不够好，哪位有更好的方法？
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"

[vbhh]

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

vbhh ^_^ 2/23 10:39

[vbhh]

谢谢各位的意见!

没法子,项目逼的紧,只有忍痛割分了....
俗话说的好:舍不得孩子,套不住他娘啊....
哎,项目总应该可以交差了吧?!

vbhh from hz mail:[e-mail] 2/24 9:30