vb文件内字符串替换

Question

现在有若干文件（不夸张，确实有），单文件内字符很多，但都有个共同点，每个文件里都有“53513”这个字符串，并且是唯一的，现在需要的做的就是把它删掉，并换成为text2.text内自己输入的内容，譬如我输入“53514”，点击按钮后，将文件内“53513”替换为“53514”，您做的就是处理一个文件，剩下的我自己处理，来个示例，代码详细点哦！

Answer 1

dim r as string
open "c:\1.txt" for input as #1 '打开你的文件
open "c:\2.txt" for output as #2 '打开一个临时文件
do while not eof(1)
line input #1,r '读取一行
if instr(r,"53513")<>0 then
r=replace(r,"53513",text2.text)
end if
print #2,r
loop
close
kill "c:\1.txt"
Name "c:\2.txt" As "c:\1.txt"
msgbox "修改成功！文件已保存！"

Answer 2

Private Sub Command1_Click()
Dim FileName As String, s As String, BB() As Byte
FileName = "c:\1.txt"
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #1
Get #1, , BB '一次性读文件至变量，速度快
Close #1
s = StrConv(BB, vbUnicode)
s = Replace(s, "53513", Text1.Text) '一次性替换文本
Open FileName For Output As #1
Print #1, s '一次性写变量至文件，速度快
Close #1
End Sub

Answer 3

方法比较多 文件读取进文本框后用text1=replace(text1,"53513",text2)就可以 不过比较慢 记得我空间有一个 搜索的 你替换那个注释掉的可以啦 会快一点