答的好+100 vb打开一个文本文件 并且按照需要 做逐行扫描、替换后另存

来源：百度知道 编辑：UC知道 时间：2024/05/06 18:01:22
请问怎么做，请把步骤，以及用那些控件，特别的语句，简单描述，代码我可以自己查。若回答的很好+100
谢谢亲们的回答，其实我想说的不是打开某个确定知道文件名的文件，而是从某个磁盘中选择某个文件来打开

在窗体上添加四个控件（都在控件栏里有的），Drive1，Dir1，File1，Command1，使用它们的默认名称，单击一下Command1即可执行：

Private Sub Form_Activate()
File1.Pattern = "*.txt" '只列出txt文件，如果要列出所有文件，改成*.*
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path '选择文件路径时产生的连动
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '选择文件路径时产生的连动
End Sub

Private Sub Command1_Click()
fpath = Dir1.Path & IIf(Right(Dir1.Path, 1) = "\", "", "\") '文件路径
sfname = fpath & File1.FileName '带全路径的源文件名称
tfname = fpath & "target.txt" '带全路径的目标文件名称

If Dir(sfname) = "" Then MsgBox "请先选择txt文件！": Exit Sub '如未选择文件，为了避免出错，下边的文件操作代码将禁止执行

Open sfname For Input As #1 'sfname为源文件
Open tfname For Output As #2 'target.txt是你另存的文件
Do While Not EOF(1)
Line Input #1, newstr '逐行读出
newstr = "123" & newstr &#