[Easy4ever]

وما اريده ان يتم استخلاص الرقم قبل الحروف وبعدها كل على حده

اتبع الخطوات التالية لأستخراج الأرقام ماقبل الاحرف وبعده :-

1- أفتح فورم جديد وضع الأدوات التالية Textbox1 + Textbox2 + Textbox3 + Button1
2- في حدث Button1_Click ضع الكود التالي :

كود :

[b]TextBox2.Text = [color=#b22222]""[/color][/b]
[SIZE=4][b]TextBox3.Text = [color=#b22222]""[/color][/b][/SIZE]
[SIZE=4][b][color=#0000ff]Dim[/color] p [color=#0000ff]As String[/color] = TextBox1.Text[/b][/SIZE]
[SIZE=4][b][color=#0000ff]Dim [/color]G [color=#0000ff]As Boolean[/color] = [color=#0000ff]False[/color][/b][/SIZE]

[SIZE=4][b][color=#0000ff]For Each[/color] i [color=#0000ff]In[/color] p[/b][/SIZE]
[SIZE=4][b][color=#0000ff]If[/color] IsNumeric(i) [color=#0000ff]And[/color] G = [color=#0000ff]True Then[/color][/b][/SIZE]
[SIZE=4][b][color=#0000ff]If[/color] i = [color=#b22222]"0"[/color] [color=#0000ff]And[/color] TextBox3.Text = [color=#b22222]""[/color] [color=#0000ff]Then[/color][/b][/SIZE]
[color=#0000ff][SIZE=4][b]Else[/b][/SIZE][/color]
[SIZE=4][b]TextBox3.Text &= i[/b][/SIZE]
[color=#0000ff][SIZE=4][b]End If[/b][/SIZE][/color]

[SIZE=4][b][color=#0000ff]ElseIf[/color] IsNumeric(i)[color=#0000ff] And[/color] G =[color=#0000ff] False Then[/color][/b][/SIZE]
[SIZE=4][b][color=#0000ff]If[/color] i =[color=#b22222] "0"[/color] [color=#0000ff]And[/color] TextBox2.Text =[color=#b22222] ""[/color] [color=#0000ff]Then[/color][/b][/SIZE]
[color=#0000ff][SIZE=4][b]Else[/b][/SIZE][/color]
[SIZE=4][b]TextBox2.Text &= i[/b][/SIZE]
[color=#0000ff][SIZE=4][b]End If[/b][/SIZE][/color]

[color=#0000ff][SIZE=4][b]Else[/b][/SIZE][/color]
[SIZE=4][b][color=#0000ff]If Not[/color] IsNumeric(i)[color=#0000ff] Then[/color][/b][/SIZE]
[SIZE=4][b]G = [color=#0000ff]True[/color][/b][/SIZE]
[color=#0000ff][SIZE=4][b]End If[/b][/SIZE][/color]
[color=#0000ff][SIZE=4][b]End If[/b][/SIZE][/color]
[color=#0000ff][b]Next[/b][/color]

3- نفذ البرنامج وأكتب النص في Textbox1 واضغط على Button1 وسترى النتيجة في Textbox2 و Textbox3
حيث ان Textbox2 سيعرض الأرقام قبل الأحرف باستثناء رقم 0 الذي يكون في البداية
و Textbox3 سيعرض الأرقام بعد الأحرف باستثناء رقم 0 الذي يكون في البداية