re.pattern による条件分岐 (ID:143446)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 このコードは VB.NET のものでは無さそうですね。VBS/VBA/VB6 等かな? > 住所文字列に神奈川なら関東、秋田なら東北,北海道なら北海道 「東京都千代田区」という住所には、"京都"という文字列が含まれます。 「北海道北広島市」という住所には、"広島"という文字列が含まれます。 先頭一致にするとか、検索順を調整するなど、何かしらの対策を 打たないと、誤った分類になってしまうかもしれません。ご注意あれ。 > if の多重化になってしまいなんとなく気持ち悪いのですが、 私なら、 キー：地域名 値：正規表現 とした Dictionary を用意します。 'Set dict = CreateObject("Scripting.Dictionary") Set dict = New Scripting.Dictionary '都道府県を地方別のグループに定義しておく dict.Add "関東", "神奈川県|埼玉県|千葉県" dict.Add "東北", "秋田県|青森県|岩手県" dict.Add "四国", "香川県|高知県|愛媛県" -------- で、調査するときにはこんな感じ。 グループがどんなに増えても、If 文は一個で済みます。 sArea = "" For Each vKey In dict re.Pattern = dict(vKey) If re.Test(sAddress) Then sArea = vKey Exit For End If Next