中国DOS联盟

202.99.12.98:8080
33.11.24.67:80
这是一个文本里的两行IP地址，能否用vbs获取不同的部分赋给不同的变量呢？例如：从右边取8080或80给a,从左边取IP给b，这样能实现吗？

Last edited by icyheart on 2007-9-24 at 01:12 PM ]

我忘了说一点，取的时候要同时满足右边的所有数,就是说取右边的时候，要对8080和80都有效，不能说只能取8080而不能取80,像right和left这样的函数我想不行吧

Last edited by icyheart on 2007-9-24 at 08:00 AM ]

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=Nothing

Originally 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

 ... 


谢谢啦成功啦，就差这一步啦，呵呵，谢谢，这个正是我想要的