Question

vb6如何在txt中查找字符然后选定该行并以预设内容替换之？

比如，在e:/read.txt中有这样一行内容：

font: arial
size: 27

欲用程序寻找"font"并选定"font"所在的一整行内容，即“ font: arial”
然后以“font2: tahoma"替换“font: arial"，使该txt档内容变为：

font2: tahoma
size: 27

该如何编写？
另外，在实际应用中，该文件的位置不是固定的。那么如何调用文件选择窗口来代替“e:/read.txt”这样的路径表达呢？

Answer 1

 Private Sub Command1_Click()
Dim t As Integer
Dim i, j As Integer
Dim str(100) As String
Open "e:\read.txt" For Input As #1
For i = 0 To 99
If Not EOF(1) Then Line Input #1, str(i) Else t = i: Exit For
Next
Close
For i = 0 To UBound(str)
  If Left(str(i), 4) = "font" Then
     str(i) = "font2: tahoma"
   End If
Next
Open "e:\read.txt" For Output As #1
For j = 0 To t - 1: Print #1, str(j): Next
Close #1
End Sub

追问

劳烦讲解下全过程的思路 谢谢 :)