Question

VB如何查找替换txt文档中的字符串，是指定路径的txt文档，求程序代码

Answer 1

设置text1的Hideselection属性为false
点查找按钮
dim aa as string 要查找的字符串
if instr(text1.text,aa) then
text1.selstart=instr(text1.text,aa)-1
text1.sellen=len(aa)
end if
点击替换按钮
text1.seltext="你要替换成什么就写什么"

追问

我不是要替换文本框总的内容，是那固定的字符串要替换txt中的字符串

追答

对呀,text1j里是你总的内容，点击查找按钮，在text1内找到后会自动选中找到的字符，点替换按钮后执行 text1.seltext="你的固定的字符串" 选中的字符会替换成你的固定的字符串

Answer 2

Open "c:\VB\642.txt" For Input As #1
Open "c:\VB\232.txt" For Append As #2
Do While Not EOF(1)
Line Input #1, a
b = Replace(a, "*MAT_JOHNSON_COOK", "*MAT_HIGH_EXPLOSIVE_BURN")
Print #2, b
Loop
Close
Kill "c:\VB\642.txt"
Name "c:\VB\232.k" As "c:\VB\642.txt"
end