10月 25

半角スペースが続くヤツを半角スペース一つにする正規表現

半角スペースが続くヤツを半角スペース一つにする正規表現はこんな感じ

/(\s)\1{1,}/

VB2010での使い方のサンプルとしては、

Dim sql As String = "select         * from    Table"
Dim r As New System.Text.RegularExpressions.Regex("(\s)\1{1,}")
sql = r.Replace(sql, " ")

こんな感じで”select * from Table”にできます。

半角スペースを意図的に利用している時はこれじゃ使えないケドね・・・