サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/08/06 16:20
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[文字列処理][][] *
* キーワード：正規表現,,,,, *
***********************************************************************************
元質問：文字列の前後からスペース削除 - べた 2007/03/29-10:33 No.8759
文字列の前後から半角スペース、または、全角スペースを削除しています。
rtrim、ltrim、trim関数を使えば、前後のスペースは削除されます。
例えば、半角全角スペース混在の場合、どちらかのスペースのみだけを削除したい場合は、この関数は使えません。両方とも消えてしまいます。
どちらかのスペースのみを削除したい場合、１文字ずつみていくしかないのでしょうか。
-----------------------------------------------------------------------------------
Re: 文字列の前後からスペース削除 - 魔界の仮面弁士 2007/03/29-14:20 No.8764
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim myString As String
myString = " あいうEO "
With CreateObject("VBScript.RegExp")
.Pattern = "^ *(([^ ]+.*)?[^ ])? *$"
Debug.Print "[" & .Replace(myString, "$1") & "]" '結果 [あいうEO ]
myString = " あいうEO "
.Pattern = "^ *(([^ ]+.*)?[^ ])? *$"
Debug.Print "[" & .Replace(myString, "$1") & "]" '結果 [ あいうEO]
End With
myString = " あいうEO "
Debug.Print "[" & Trim$(myString) & "]" '結果 [あいうEO]
End Sub
 |
