[ابراهيم مراد]

(21-03-14, 06:07 AM)elgokr كتب : بقولك اكتب الكود دا كده
MsgBox(TextBox2.Lines(i))

داخل Form2_Load

واضغط F5

وقولى الرسالة اللى هتظهر مكتوب فيها ايه

عشان انا مش عارف قيمة
TextBox2.Lines(i)

بتحتوى على
| 212.55.11.58:8080 | vpn | http |

زى ما انت كنت طالب ولا لا ودا سبب ان ip ميعرضش حاجة

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim a As String
Dim b As String

a = TextBox1.Text
b = InStr(TextBox2.Text, a)
If b Then
TextBox2.Focus()
TextBox2.SelectionStart = b - 1
TextBox2.SelectionLength = Len(a)
Else
MsgBox("No text Found!")
End If
For i = 0 To TextBox2.Lines.Length - 1
Dim ma As Match = Regex.Match(TextBox2.Lines(i), "(\|)(.*)(:8080:1080 \| vpn \|" + TextBox3.Text + "\|*)")
Dim ip As String = ma.Groups(2).Value
MsgBox(TextBox2.Lines(i))
Next
لازم عمل فلتر اخى الاستاذ جوكر وان شاء الله بفضل ربنا يكمل الامر