« VB6 - リストビュー | トップページ | Googleロゴ - 母の日 »

2009年5月10日 (日)

VB6 - 正規表現

VB6で正規表現を使う方法。

ファイル名のチェックなどで、If文と文字列操作関数を利用するのもいいが、
正規表現が使えると便利。

で、実は、VB6でも利用できる。

  1. 「プロジェクト」メニュー →「参照設定」
    Regexp00
  2. 「Microsoft VBScript Regular Expression 5.5」にチェックして、「OK」。
    Regexp01

ラジオ録音したMP3ファイルの整理用プログラムで使った。

Dim regEx As New RegExp
Dim colMatches As MatchCollection
Dim objMatch As Match

regEx.Pattern = "^([0-9]{4})([0-9]{2})([0-9]{2}).*\.mp3$"
If regEx.Test(strFilename) Then
  Set colMatches = regEx.Execute(strFilename)
  Set objMatch = colMatches.Item(0)
  MsgBox objMatch.SubMatches(0) & "-" & objMatch.SubMatches(1) & "-" & objMatch.SubMatches(2)
End If

関連ページ:
VB6 - リストビュー (2009-05-09)

« VB6 - リストビュー | トップページ | Googleロゴ - 母の日 »

プログラム・スクリプト」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: VB6 - 正規表現:

« VB6 - リストビュー | トップページ | Googleロゴ - 母の日 »

2019年11月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Amazonリンク

ダイビング写真(swf)

ブログ内検索

  • Google
    WWW を検索
    ブログ内を検索

リンク(いつもお世話さま)

  • ソニーストア
     iTunes Store(Japan)
    Just MyShop(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ