Function getTxtString(ByVal mFileName As String) As String
'读取文本文件
FileOpen(1, mFileName, OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
Dim mLine As String
Do While Not EOF(1)
mLine = LineInput(1)
getTxtString = getTxtString & mLine
Loop
FileClose(1)
End Function
本文介绍了一个用于读取文本文件的VBScript函数。该函数通过打开指定的文件,逐行读取内容并将其拼接成一个字符串返回。适用于需要处理纯文本文件的场合。
1076

被折叠的 条评论
为什么被折叠?



