جدا کردن شماره های با فرمت خاص از رشته با REGEX

[arash020]

سلام
فرض کنید میخوایم از فایل متنی که ضمیمه کردم شماره موبایل ها رو که با 0912 شروع میشن رو جدا کنیم و توی یه لیست باکس درج کنیم
میدونم که میشه با Regex این کارو کرد.

خودم کدی براش نوشتم ولی مشکل داره و درست کار نمیکنه...!

این تکه کدیه که خودم نوشتم برای جدا کردن شماره موبایل ها از فایل:

Dim s = Web_tel.Document.Body.InnerText.ToLower.TrimStart

Dim mc_tel As MatchCollection = Regex.Matches(s, "([0912]+)([ -][0-9]{11,20})")

For i = 0 To mc_tel.Count - 1
List1_tel.Items.Add(mc_tel(i).Value)
Next


میشه کمکم کنید؟

فایل ضمیمه (http://s2.picofile.com/file/7606262361/Document.rar.html)

[asghar2008]

سلام دوست عزیز


Dim value As String = "/content/09122222rnate-1.aspx"

' Invoke the Match method.
Dim m As Match = Regex.Match(value, "0912([0-9]+)", RegexOptions.IgnoreCase)
If m.Success Then
lst.Items.Add(m.Value)
End If