[问题求助] vbs的正则表达式 可以把匹配的内容赋值给 变量吗？

aigol

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

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

请赐教！！！
谢！

aigol

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

aigol

回复 5# powerbat

感谢！

Demon

Function GetIP(path)
    Dim fso, re, str, ms, i, a()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set re = New RegExp
    
    re.Global = 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])"
    
    str = fso.OpenTextFile(path).ReadAll
    
    Set ms = re.Execute(str)
    ReDim a(ms.Count - 1)
    
    For i = 0 To ms.Count - 1
        a(i) = ms.Item(i)
    Next
    
    GetIP = a
End Function
复制代码

powerbat

这么基础的问题，为什么让你头疼呢？走路都没学过，就想跑，注定要摔跟头。
看别人的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)
  

aigol

回复 2# Demon

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

Demon

Dim ip_str, ip_addr, re, ms, m
ip_str = "sfsdfasdfsd 192.168.1.1 dfsdfsdfsdfsad"
Set re = New RegExp
re.Global = 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)
For Each m In ms
    WScript.Echo m
Next
复制代码