联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
readtext("202.99.12.98:8080")
readtext("33.11.24.67:80")
sub readtext(text)
s=split(text,":")
msgbox "a=" & s(0) & vbcrlf & "b=" & s(1)
end sub
Dim MyVar,f,fso,ln,fl,IP
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("2.txt",1)
Do While f.AtEndOfStream <> True
ln=f.ReadLine
fl=InStr(1,ln,":",1)
IP=Left(ln,fl-1)
MyVar=Right(ln,Len(ln)-fl)
msgbox "IP="&ip&vbCrLf&"端口="&MyVar
Loop
f.Close
Set f=Nothing
Set fso=NothingOriginally posted by wudixin96 at 2007-9-24 09:04 AM:
Dim MyVar,f,fso,ln,fl,IP
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("2.txt",1)
Do While f.AtEndOfStream <> True
ln=f.ReadLine
...