复制代码
- Dim a
- set fso=CreateObject("Scripting.FileSystemObject")
- set fr=fso.opentextfile("d:\block.dat",1)
- do
- data=fr.readline
- a=split(data,",")
- msgbox a(0)
- msgbox a(1)
- loop until fr.atendofstream
欢迎光临 批处理之家 (http://www.bathome.net/) | Powered by Discuz! 7.2 |