读文本文件时怎么去掉每一行前的空格

Question

读文件是这样读的,怎么把每个行前的空格去掉呢?
Fn = "e3.txt"
Dim lineStr As String, strFile As String
Open Fn For Input As #1
    Do While Not EOF(1)
        Line Input #1, lineStr
        'strFile = strFile & lineStr
        strFile = lineStr
         Text1.Text = strFile
        DoEvents
    Loop
    Close #1

Answer 1

Fn = "e3.txt"
Dim lineStr As String, strFile As String
Open Fn For Input As #1
    Do While Not EOF(1)
        Line Input #1, lineStr
        strFile = LTrim(lineStr)
        strFile = strFile & lineStr
        DoEvents
    Loop
    Close #1