按行读取文件

Text = Plugin.File.ReadFileEx("C:\testfile.txt")  
Msgbox "向目标文件读出文本内容为："& Text  
dim MyArray  
MyArray = Split(Text, "|")  
If UBound(MyArray)>=0 Then  
    i=0  
    For UBound(MyArray)  
        //下面这句是得到文本内容 
        If len(Cstr(MyArray(i)))<=0 Then
         i=i+1
        End If
       
        Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))  
        i=i+1  
    Next  
End If