tagCANDY CGI VBレスキュー(花ちゃん) - 半角・全角を区別して文字列の前後のスペースを削除する(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
半角・全角を区別して文字列の前後のスペースを削除する(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

半角・全角を区別して文字列の前後のスペースを削除する(VB6.0) [No.125の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/08/06 16:20
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[文字列処理][][]                                                    *
* キーワード:正規表現,,,,,                                                       *
***********************************************************************************

元質問:文字列の前後からスペース削除 - べた  2007/03/29-10:33 No.8759

文字列の前後から半角スペース、または、全角スペースを削除しています。
rtrim、ltrim、trim関数を使えば、前後のスペースは削除されます。
例えば、半角全角スペース混在の場合、どちらかのスペースのみだけを削除したい場合は、この関数は使えません。両方とも消えてしまいます。
どちらかのスペースのみを削除したい場合、1文字ずつみていくしかないのでしょうか。

-----------------------------------------------------------------------------------
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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ