21-03-14, 06:20 AM
(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
لازم عمل فلتر اخى الاستاذ جوكر وان شاء الله بفضل ربنا يكمل الامر

