Question

用VB来查询到指定文件中的2个字符，并把查询到这2字符之间中的内容替换成指定内容.

例如文件内容如下：
flash
ts
3s
3p
tk
ps
先找到ts这个字符再往下找到tk字符，把中间内容3s 3p替换成ok
即文件最后保存内容应该是
flash
ts
ok
tk
ps

Answer 1

Private Sub Command1_Click()
    Open "c:\temp\111.txt" For Binary As #1
    Dim iStr As String
    iStr = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    Print iStr
    Print
    
    Dim iStrF As Integer, iStrE As Integer
    iStrF = InStr(iStr, "ts") + 4
    iStrE = InStr(iStr, "tk") - 2
    iStr = Replace(iStr, Mid(iStr, iStrF, iStrE - iStrF), "ok")
     
    Print iStr
    
    Open "c:\temp\111.txt" For Output As #1
    Print #1, iStr
    Close #1
        

End Sub