如何在text文件中设置变量，然后用VB给变量赋值？

Question

例如，在text文件中设置一个名为 $aa 的变量，然后用vb把这个变量变成 "100"，而不影响text文件中的其它内容?
谢谢！

Answer 1

dim I as string i=replace(j,"$aa","100")J里面是包含$aa的字符串.

Answer 2

谢谢myjian，我的意思是比如用vb将"D:\fff.txt"文件中的$aa变为"100",而不影响txt文件中的其它内容，如何用代码来实现。我想这需要2个步骤，一是将"D:\fff.txt"打开，二是进行替换，不知如何进行？

Answer 3

Private Sub Form_Load()
Dim b, nextline As String
 Open "D:\fff.txt" For Input As #1
  b = ""
Do Until EOF(1)
Line Input #1, nextline
 b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1
b = Replace(b, "$aa", "100")
Open "D:\fff.txt" For Output As #1   Print #1, b
Close #1
End Sub

Answer 4

如果文件不大（100 Mbyte 以下），还可以简单。Dim strData As StringOpen "D:\fff.txt" For Binary As #1
strData = Space(LOF(1))
Get #1, , strDatastrData = Replace(strData, "$aa", "100")Put #1, 1, strData
Close #1