System.Text.RegularExpressions:正規表現を使ってみる
簡単なサンプル.
111-222 という値を 222-111という形に入れ替えて返す。
VB6時代のReplaceではできなかったと思う。
VBScriptにもRegexあった気がするが...忘れました。
Imports System.Text.RegularExpressions Sub Main() Console.WriteLine(swaptext("200-300")) End Sub 'require "Imports System.Text.RegularExpressions" for Regex class Function swaptext(ByVal input As String) As String Return Regex.Replace(input, _ "\b(?\d{1,3})-(? \d{1,3})\b", _ "${second}-${first}") End Function