- 帖子
- 7
- 积分
- 175
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2008-11-26
|
回复 2# Demon
首先感谢Demon赐教!
同时祝各位大侠,新年快乐!
这两天把这个应用扩展了一下,但是数组赋值的问题让我头疼了(确切的是失眠了!)
最终还是http://demon.tw/ 参考了几篇文章后解决了。
- function get_ip(iptxt_path)'txt文档中提取IP地址
- Dim ip_str, re, ms, m, i,tmp
- Dim fso, regex, str
- Set fso = CreateObject("Scripting.FileSystemObject")
- ip_str = fso.OpenTextFile(iptxt_path).ReadAll
- Set re = New RegExp
- re.Global = True
- re.MultiLine = True
- re.Pattern = "((25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[0-9])\.){3}(25[0-5]|2[0-4][0-9]|1[09][0-9]|[1-9][0-9]|[0-9])"
- Set ms = re.Execute(ip_str)
- i=0
- tmp = "Array("
- For Each m In ms
- tmp = tmp & """" & m & ""","
- i = i + 1
- Next
- get_ip =Eval(Left(tmp, Len(tmp) - 1) & ")")
- end function
最后,还是对数组赋值的问题,请教下,不明白啊!不明白!(小白都这样吧^^)
第一种,直接for循环赋值,报错:
- dim a
- for i = 0 to 2
- a(i) = i
- next
- msgbox a(0)
第二种,先数组赋值,再for循环赋值,结果ok!
- dim a
- a = array(0,0,0)
- for i = 0 to 5
- a(i) = i
- next
- msgbox a(0)
|
|