中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-25 21:18

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,275 会员排行

DOS批处理 & 脚本技术（批处理室） » [已解决]能否用vbs获取指定内容

可打印版本　806 / 4

第1楼　icyheart	发表于 2007-09-24 07:54
中级用户　发帖 81　积分 216
[已解决]能否用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 ]

第2楼　icyheart	发表于 2007-09-24 07:58
中级用户　发帖 81　积分 216
我忘了说一点，取的时候要同时满足右边的所有数,就是说取右边的时候，要对8080和80都有效，不能说只能取8080而不能取80,像right和left这样的函数我想不行吧 [ Last edited by icyheart on 2007-9-24 at 08:00 AM ]

第3楼　jmz573515	发表于 2007-09-24 08:26
银牌会员　发帖 464　积分 1,212
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

第4楼　wudixin96	发表于 2007-09-24 09:04
银牌会员　发帖 931　积分 1,928
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

第5楼　icyheart	发表于 2007-09-24 12:56
中级用户　发帖 81　积分 216
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 ... 谢谢啦成功啦，就差这一步啦，呵呵，谢谢，这个正是我想要的

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023