ある文字列の中で数字の20か19がでてくるところまでを取得したい。

恐れ入ります。
　
a　= "ごはん2006おちゃづけ"

として　ごはん　を取得したいんです。
ただこのaの中は　"のり1989おちゃ"
かもしれなくて　この場合だとのりなんですよね。

このaは年代をあらわしていて、1900～2006まであるんですよね・・。

20だと
Microsoft.VisualBasic.Left(a,InStr(textinnertext(2), 20) - 1)

で取得できるんですけど
20か19かどちらかわからないので困っています。
なるべくif文をつかわずにしたいのですが
どうすればよろしいでしょうか？教えてください。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/06/30 03:58

Imports System.Text.RegularExpressions

Dim a As String = "ごはん2006おちゃづけ"
Dim re As Regex = new Regex("(.+?)\d")
If re.Match(a).Success Then
Console.WriteLine(re.Match(a).Result("$1"))
End If

この回答へのお礼

BLUEPIXYさん、いつもありがとうございます！
おかげさまでできました！

お礼日時：2006/07/03 01:11