sdulj 当前离线
列兵
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复制代码
评分人数
Batcher 当前在线
管理员
TOP