|
icyheart
中级用户
积分 216
发帖 81
注册 2007-8-6
状态 离线
|
『楼 主』:
[已解决]能否用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 ]
|
Crossings must be my teacher
Modest progress can be |
|
 2007-9-24 07:54 |
|
|
icyheart
中级用户
积分 216
发帖 81
注册 2007-8-6
状态 离线
|
『第
2 楼』:
我忘了说一点，取的时候要同时满足右边的所有数,就是说取右边的时候，要对8080和80都有效，不能说只能取8080而不能取80,像right和left这样的函数我想不行吧
[ Last edited by icyheart on 2007-9-24 at 08:00 AM ]
|
Crossings must be my teacher
Modest progress can be |
|
|
2007-9-24 07:58 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
3 楼』:
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
|
|
|
2007-9-24 08:26 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
『第
4 楼』:
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
|
|
|
2007-9-24 09:04 |
|
|
icyheart
中级用户
积分 216
发帖 81
注册 2007-8-6
状态 离线
|
『第
5 楼』:
| Quote: | Originally posted by wudixin96 at 2007-9-24 09:04 AM:
[code]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
... |
|
谢谢啦成功啦，就差这一步啦，呵呵，谢谢，这个正是我想要的
|
Crossings must be my teacher
Modest progress can be |
|
|
2007-9-24 12:56 |
|
