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


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

/(\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”にできます。

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


コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>