[wahmed]

PHP كود :

Dim v = Regex.Match(TextBox1.Text, "\+CUSD:(.+?)OK", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value
Dim Credit = Regex.Match(v, "Credit\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Bonus = Regex.Match(v, "Bonus\s?(\d+(\.\d+)?)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim
Dim Internet = Regex.Match(v, "Internet:(\d+)", RegexOptions.Singleline Or RegexOptions.IgnoreCase).Groups(1).Value.Trim

TextBox1.Text = v

MsgBox("Credit= " & Credit)
MsgBox("Bonus= " & Bonus)
MsgBox("Internet= " & Internet)