set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("2.txt",1,ture) do while file.atendofstream<>true line=line+1 zsc.add line,file.readline msgbox "第" & line & "行: " & zsc(line) &"内容:" loop 复制代码
set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("2.txt",1,ture) do while file.atendofstream<>true line=line+1 zsc.add line,file.readline msgbox "第" & line & "行: " & zsc(line) &"内容:" loop