求教高手:

Question

求教高手:有一TXT文件:  AA.TXT
"FFF",杨                "HHHHHHHH"
                "VVVVVVVVVV"我想读入一文本框,在读入时,"FFF"不可见,"HHHHHHHH"变为"DDDD", "VVVVVVVVVV"变为"WWW"
即文本框内容为:
,杨                "DDDD"
                "WWW"请高手帮助,谢谢!!!!

Answer 1

dim a() as byte
dim b as string
open "aa.txt" for binary as #1
 redim a(lof(1))
 get #1,,a
close #1
b=a
b=replace(b,chr(34) & "FFF" & chr(34),"")
b=replace(b,"HHHHHHHH" ,"DDDD")
b=replace(b,"VVVVVVVVVV" ,"WWW")

Answer 2

Private Sub Command1_Click()
    Dim fn!, Str$
    Text1 = ""
    fn = FreeFile               '得到文件号
    Open "c:\a.txt" For Input As fn     '打开文件
    Do While Not EOF(1)         ' 循环至文件尾。
        Line Input #fn, Str     ' 读入一行数据并将其赋予某变量。
        Str = Replace(Str, "FFF", "")
        Str = Replace(Str, "HHHHHHHH", "DDDD")
        Str = Replace(Str, "VVVVVVVVVV", "WWW")
        Text1.SelText = Str & vbCrLf
        Debug.Print Str    ' 在立即窗口中显示数据。
    Loop
    Close fn
End Sub
注意,要将文本的多行设置为true

Answer 3

谢谢两位帮助,请帮助再看一下以下问题:
Private Sub text1_Click()
Dim fn!, Str$
    text1 = ""
    fn = FreeFile               '得到文件号
    Open App.Path & "\aA.txt" For Input As fn    '打开文件
    Do While Not EOF(1)         ' 循环至文件尾。
        Line Input #fn, Str     ' 读入一行数据并将其赋予某变量。
        Str = Replace(Str, "FFF", "sss")
        Str = Replace(Str, "DATE", Date)
        text1.SelText = Str & vbCrLf
        Debug.Print Str    ' 在立即窗口中显示数据。
    Loop
    Close fn
End Sub
问题:
如何是光标在第二行,谢谢!!!!