vbs的正则表达式 可以把匹配的内容赋值给 变量吗？

aigol

例如：
dim ip_str,ip_addr
ip_str="sfsdfasdfsd 192.168.1.1 dfsdfsdfsdfsad"  
不规律的字符串ip_str中，有IP地址,要把IP提取出来赋值给 ip_addr

正则不行的话，有其它方法实现？

请赐教！！！
谢！

Demon

1. 
   
2. Dim ip_str, ip_addr, re, ms, m
   
3. ip_str = "sfsdfasdfsd 192.168.1.1 dfsdfsdfsdfsad"
   
4. Set re = New RegExp
   
5. re.Global = True
   
6. 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])"
   
7. Set ms = re.Execute(ip_str)
   
8. For Each m In ms
   
9.     WScript.Echo m
   
10. Next
    

复制代码

aigol

回复 2# Demon

   很严谨！！
   感谢！！！
  看了您的Blog很强大，有机会再向您讨教！

aigol

回复 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)
  

powerbat

这么基础的问题，为什么让你头疼呢？走路都没学过，就想跑，注定要摔跟头。
看别人的Blog很强大，是因为别人把基础掌握牢固了，才能应用自如。
去教学资料区多看看的。

Demon

1. 
   
2. Function GetIP(path)
   
3.     Dim fso, re, str, ms, i, a()
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     Set re = New RegExp
   
6.    
   
7.     re.Global = True
   
8.     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])"
   
9.    
   
10.     str = fso.OpenTextFile(path).ReadAll
    
11.    
    
12.     Set ms = re.Execute(str)
    
13.     ReDim a(ms.Count - 1)
    
14.    
    
15.     For i = 0 To ms.Count - 1
    
16.         a(i) = ms.Item(i)
    
17.     Next
    
18.    
    
19.     GetIP = a
    
20. End Function
    

复制代码

aigol

回复 5# powerbat

感谢！

aigol

回复 6# Demon
感谢！Demon ！！！