0

次のような数字でいっぱいのWebページがあります。

xxxx.xxx.xxx.xxx[space]xx

例えば:

124.240.187.79 82

プログラムで検索して取得するにはどうすればよいですか?

4

1 に答える 1

0

regexp03.vbs:

Dim objRegExp    : Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Dim input
input = "I have a webpage full of numbers like: xxxx.xxx.xxx.xxx[space]xx E.g.: 124.240.187.79 82 How do I search and get them programatically?"

Dim Pattern : Pattern = "[0-9]{3}\.[0-9]{3}\.[0-9]{3}\.[0-9]{2}\s[0-9]{2}"
WScript.Echo "Pattern : " & Pattern

objRegExp.Pattern = Pattern

Set objMatches = objRegExp.Execute(input)

For i=0 To objMatches.Count-1
  Set objMatch = objMatches.Item(i)
  WScript.Echo objMatch.Value
Next

コマンドライン:

cscript //nologo regexp03.vbs 

出力:

Pattern : [0-9]{3}\.[0-9]{3}\.[0-9]{3}\.[0-9]{2}\s[0-9]{2}
124.240.187.79 82
于 2013-02-08T22:50:00.447 に答える