VB如何打开一个文本文件

Question

打开一个D:\1.txt。搜索里面是否有123这个字符串，如果有，然后用456代替这个123。应该怎么写啊？跪求……

Answer 1

1、获取文本文件路径
2、通过流的方式打开文本文件
示例：
Dim MyString
Private Sub Command1_Click() ’按钮事件
Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。
Do While Not EOF(1) '是否没到文件末尾
Input #1, MyString '读取文件内容
Loop
Close #1
End Sub

Answer 2

open "d:\1.txt" for binary as #1
dim txtstr as string
get #1,,txtstr
txtstr=replace(txtsrt,"123","456")
put #1,,txtstr
close #1

'我就不开VB了本回答被提问者采纳

Answer 3

如果生成的可执行文件和WORD文件不在同一文件夹，代码应该是怎样的我已经给一文本 一按钮 text里输入文档得完整路径 Private Declare Function