标题: [已解决]能否用vbs获取指定内容 [打印本页]
作者: icyheart 时间: 2007-9-24 07:54 标题: [已解决]能否用vbs获取指定内容
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 ]
作者: icyheart 时间: 2007-9-24 07:58
我忘了说一点，取的时候要同时满足右边的所有数,就是说取右边的时候，要对8080和80都有效，不能说只能取8080而不能取80,像right和left这样的函数我想不行吧
[ Last edited by icyheart on 2007-9-24 at 08:00 AM ]
作者: jmz573515 时间: 2007-9-24 08:26
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
readtext("33.11.24.67:80")
sub readtext(text)
s=split(text,":")
msgbox "a=" & s(0) & vbcrlf & "b=" & s(1)
end sub
作者: wudixin96 时间: 2007-9-24 09:04
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
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
作者: icyheart 时间: 2007-9-24 12:56
| Quote: | |
|
谢谢啦成功啦，就差这一步啦，呵呵，谢谢，这个正是我想要的