Question

VB求助：用text.text的字符串内容替换TXT文本文件里的特定字符，代码怎么写？

text1.text有如内容（如：L123456），TXT文本里有字符（如：$SYS$），需要把$SYS$替换成L123456，用VB怎么写代码？如果text1.text有多行内容，我要把多行内容分别替换,又怎么弄？？急。。

Answer 1

分别替换什么?都是$SYS$么?先说说分别替换的原理
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
Print a(i) '分别取得文本框各行内容,以便用来替换指定内容
Next

下面只是替换$SYS$,分别替换建议楼主另开一个30分的帖子,也只是建议,也请楼主不要追问...
Private Sub Command1_Click()
Open "txt文本" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strtxt
If InStr(strtxt, "$SYS$") Then
strtxt = Replace(strtxt, "$SYS$", Text1.Text)
End If
s = s & strtxt & vbCrLf
Loop
Close #1
Open "txt文本" For Output As #1
Print #1, s;
Close #1
End Sub

Answer 2

不错的

Answer 3

顶一个