VBScript - regexp

Question

tarafından sayfa kaynağından Kesme alt dize bir sayfa kodu almak, (aralarında) o böyle parçadan oluşur: IP kesip dize vars iki belirteci için bir yol

marker.server = '81.30.178.138'; 
marker.number = '001-999-141'; 
marker.token = 'b402e62ca6934e00919045e1da2f0fb9'; 

var mı, onları aynı orta şeyle bulma - marker.number? VBS'de ne de regexp şeylerinde iyi değilim ... Lütfen yardım edin.

Answer 1

Eğer IP adresi ayıklamak bu kodu bakmak istediğiniz anlamına edin:

Option Explicit 
Dim Title,Data 
Title = "IP Public Adress" 
Data = "marker.server = '81.30.178.138';"&_ 
"marker.number = '001-999-141';"&_ 
"marker.token = 'b402e62ca6934e00919045e1da2f0fb9';" 

MsgBox "My IP Public Adress is : " & vbCr & Extract_IP_Public(Data),64,Title 
'************************************************************** 
Function Extract_IP_Public(Data) 
    Dim objRegex,Match,Matches 
    Set objRegex = new RegExp 
    objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b" 
    objRegex.Global = False 
    objRegex.IgnoreCase = True 
    Set Matches = objRegex.Execute(Data) 
    For Each Match in Matches 
     Extract_IP_Public = Match.Value 
    Next 
End Function 
'**************************************************************