VBScriptの - 正規表現

Question

により、ページのソースからのカット部分文字列は、私は（他の中で）このような部分から構成されていること、ページのコードを取得する：、

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

するIPをカットし、2つの文字列のVARSにトークンする方法はあります同じ真ん中のものでそれらを見つける - marker.number？ 私はVBSでも正規表現のものでも良くないです...助けてください。

Answer 1

あなたは、IPアドレスを抽出し、このコードを見てみたいことを意味している場合：

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 
'**************************************************************