12/10/27 01:21:41.49 I32pGO/EP
正規表現を使う
moji = "w12345678" //文字列例
regex = CREATEOLEOBJ("VBScript.RegExp")
regex.Pattern = "\D" //正規表現のパターン
regex.Global = True //マッチングする文字が見つかったらその時点で終了
regex.IgnoreCase = True //大文字小文字を区別しない
ans = regex.Replace(moji, "") //上記のパターンに一致する文字を消す(""に変換)
print ans //プリント表示