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

(21-03-14, 05:28 AM)elgokr كتب : حبيب يا ابراهيم والله

شكلك مطلعتش على الكلام كله بس هختصر عليك دا كله وهاعملك الكود جاهز

مع انى نصيحة من اخ لاخيه تكود تطلع على الكود بنفسك عشان انت تقدر تنشاء منه كذا حاجة

الكود التالى هو
"(\|)(.*)(:8080 \| vpn \| " + TextBox3.Text + " \|)"

استبدله مكان
"(\|)(.*)(:" + TextBox3.Text + "\|*)"

ودوس F5 واكتب فى
TextBox3

كلمة http
بعد كده اضغط على Button

وادعيلى

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 \| vpn \| " + TextBox3.Text + " \|)")
Dim ip As String = ma.Groups(2).Value
TextBox4.Text = (ip)
Next
يا استاذ جوكر ربى يحفظك ويوفقك بحياتك وانا بشكرك جدا بس فى غلط لم يعرض اى بى خالص كدا