读出文本所有内容Function ReadTxt(pathway) Dim fso,myfile,i'Dim ReadLine(10)Set fso=CreateObject("Scripting.FileSystemObject")If fso.FileExists(pathway) Then Set myfile=fso.OpenTextFile(pathway,1,False)ElseWScript.Echo "该文档不存在"End Ifi=0If Not myfile.AtEndOfStream Then While Not myfile.AtEndOfLine ...