28,406
社区成员
发帖
与我相关
我的任务
分享如何读*.TXT文本在WEB页面显示,包括文本文件里的所有格式.
如何读*.TXT文本在WEB页面显示,包括文本文件里的所有格式.谢谢兄弟们了.帮个忙吧.
...全文
请发表友善的回复…
发表回复
笨笨兔兔兔兔兔 2005-12-01
- 打赏
- 举报
fso你有什么不懂的?
Function ReadAllTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadAllTextFile = f.ReadAll
End Function
Function ReadAllTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadAllTextFile = f.ReadAll
End Function
