ReadFileEx 读取文件 |
|
向目标文件读出文本内容 |
|
参数1 字符串型,目标文件路径 |
|
字符串型,读出文本内容 |
|
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为:"& Text
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
i=i+1
Next
End If |
|
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Plugin Text = File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为:"& Text
MyArray = Split(Text, "|")
If UBound(MyArray)>=0
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
i=i+1
EndFor
EndIf |