Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62174 / 76732 ←次へ | 前へ→

【19166】Re:文字列の切り取りについて
回答  ちゃっぴ  - 04/10/24(日) 12:33 -

引用なし
パスワード
    > SQL文中の()内の文字(1,2,3,4,5など)を取り出してA2に
> 出力したいと考えています。

こういった場合、正規表現を使いこなせるようになると
効率的な文字列抽出ができるようになります。

'要参照 Microsoft VBScript Regular Expressions 5.5

Sub GetArgs(strTarget As String)
  Dim objRegExp  As VBScript_RegExp_55.RegExp
  Dim colMatches As VBScript_RegExp_55.MatchCollection
  Dim objMatch  As VBScript_RegExp_55.Match
  
  Set objRegExp = New VBScript_RegExp_55.RegExp
  With objRegExp
    .Global = True
    .IgnoreCase = True
    .Pattern = "\([^\(\)]*\)"
    Set colMatches = .Execute(strTarget)
  End With
  
  For Each objMatch In colMatches
    With objMatch
      Debug.Print Mid$(.Value, 2, .Length - 2)
    End With
  Next objMatch
End Sub


ここら辺でお勉強ください。

Clinick's Clinic on Scripting: 正規表現による Visual Basic Scripting Edition (VBScript) の機能強化
http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp

0 hits

【19161】文字列の切り取りについて けんた 04/10/24(日) 6:37 質問
【19162】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 7:43 回答
【19163】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 8:32 回答
【19166】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 12:33 回答
【19167】Re:文字列の切り取りについて Kein 04/10/24(日) 13:02 回答
【19169】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 13:52 発言
【19170】Re:文字列の切り取りについて Kein 04/10/24(日) 14:17 発言

62174 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free