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

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
复制代码

• 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
  

• dim a
  
• for i = 0 to 2
  
•         a(i) = i
  
• next
  
• msgbox a(0)
  

• dim a
  
• a = array(0,0,0)
  
• for i = 0 to 5
  
•         a(i) = i
  
• next
  
• msgbox a(0)
  

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
复制代码