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

(21-03-14, 03:43 AM)elgokr كتب : ابسطلك الامر خالص ونشغل عقلنا شوية مع الكود ونبتكر فى حاجة حلوة

تعال نتخيل فى السطر الاول كده عند الكود
"(\|)(.*)(:8080\|*)"

لو فكرنا وخليناه مثلاً كده
"(\|)(.*)(:" + TextBox3.Text + "\|*)"

طيب ايه الفكرة من كده
تعال هقولك ايه الفكرة

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

ونعمل معينة F5

وتكتب فى TextBox3 وتخلى القيمة 8080

وتضغط على Button
هتلاقى استخرج الاى بى بالطريقة لو كانت مكتوبة افتراضى

طيب ايه الفكرة من دا وليه نحير نفسنا

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

هنعدل فى الكود
"(\|)(.*)(:8080\|*)"

بحيث هنخلى وليكن
"(\|)(.*)(:8080\| vpn | http |)"

بس هنغير كلمة http

ونخليها زى الفكرة المعينة اللى وضحتها فى اول الرد بتاعت TextBox3
بحيث انك لما تكتب http وتضغط على Button
يطلعلك القيمة اللى هى الاى بى

وبلاحظ فى اول الموضوع ان الكود بيكون

| 212.55.11.58:8080 | vpn | http |
| 212.55.11.55:1080 | vpn | socks3 |
| 212.55.11.52:1080 | vpn | scock4 |
| 212.55.11.50:1080 | vpn | socks5 |

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

http أو socks3 أو scock4 أو socks5

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


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

كل الفكرة بس ازاى تستغل الكود فى اكتر من استخدام دا الاهم فى البرمجة

تحياتى لك

الف االف شكرا يا استاذ يا مبدع

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

(21-03-14, 04:30 AM)ابراهيم مراد كتب :

(21-03-14, 03:43 AM)elgokr كتب : ابسطلك الامر خالص ونشغل عقلنا شوية مع الكود ونبتكر فى حاجة حلوة

تعال نتخيل فى السطر الاول كده عند الكود
"(\|)(.*)(:8080\|*)"

لو فكرنا وخليناه مثلاً كده
"(\|)(.*)(:" + TextBox3.Text + "\|*)"

طيب ايه الفكرة من كده
تعال هقولك ايه الفكرة

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

ونعمل معينة F5

وتكتب فى TextBox3 وتخلى القيمة 8080

وتضغط على Button
هتلاقى استخرج الاى بى بالطريقة لو كانت مكتوبة افتراضى

طيب ايه الفكرة من دا وليه نحير نفسنا

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

هنعدل فى الكود
"(\|)(.*)(:8080\|*)"

بحيث هنخلى وليكن
"(\|)(.*)(:8080\| vpn | http |)"

بس هنغير كلمة http

ونخليها زى الفكرة المعينة اللى وضحتها فى اول الرد بتاعت TextBox3
بحيث انك لما تكتب http وتضغط على Button
يطلعلك القيمة اللى هى الاى بى

وبلاحظ فى اول الموضوع ان الكود بيكون

| 212.55.11.58:8080 | vpn | http |
| 212.55.11.55:1080 | vpn | socks3 |
| 212.55.11.52:1080 | vpn | scock4 |
| 212.55.11.50:1080 | vpn | socks5 |

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

http أو socks3 أو scock4 أو socks5

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


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

كل الفكرة بس ازاى تستغل الكود فى اكتر من استخدام دا الاهم فى البرمجة

تحياتى لك

الف االف شكرا يا استاذ يا مبدع

الاخ الاستاذ جوكر عند عمل
For i As Integer = 0 To TextBox2.Lines.Length - 1
Dim ma As Match = Regex.Match(TextBox2.Lines(i),
"(\|)(.*)(:" + TextBox3.Text + "\|*)")
Dim ip As String = ma.Groups(2).Value
MsgBox(ip)
Next
لو حتى السطر الثانى لم يكون http بيخرجه وكدا غلط انا اريد عرض السطر الذى كاتب الكلمه المحدده يعرض ليا كل الاسطر التى تحمل هذا الاسم

[elgokr]

حبيب يا ابراهيم والله

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

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

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

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

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

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

وادعيلى

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

(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
يا استاذ جوكر ربى يحفظك ويوفقك بحياتك وانا بشكرك جدا بس فى غلط لم يعرض اى بى خالص كدا

[elgokr]

بقولك اكتب الكود دا كده
MsgBox(TextBox2.Lines(i))

داخل Form2_Load

واضغط F5

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

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

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

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

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

(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
لازم عمل فلتر اخى الاستاذ جوكر وان شاء الله بفضل ربنا يكمل الامر

[elgokr]

مفيش مشكلة

خد الكود دا كده

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
MsgBox(TextBox2.Lines(i))


وقم باضافته داخل
Form2_Load

متنساش تخلى قيمة TextBox1 و TextBox2
افتراضى من الخصائص لان المفروض اول ما تشغل البرنامج

هيعمل بحث تلقائى

وهاتلى قيمة الرسالة اللى هتظهر فى الصندوق

عشان اقدر افيدك المشكلة فين بظبط ونختصر 80% من التجارب

[elgokr]

راجع التعليق تانى تم التعديل

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

(21-03-14, 06:34 AM)elgokr كتب : راجع التعليق تانى تم التعديل

دا كدا لا بقى يطلع الاى بى وبقى يكرر كل سطر مرتين
فى المسج

| 212.55.11.58:8080 | vpn | http |
| 212.55.11.55:1080 | vpn | socks3 |
| 212.55.11.52:1080 | vpn | scock4 |
| 212.55.11.50:1080 | vpn | socks5 |

[elgokr]

طيب ولو قلنا خليك على ما انت عليه تانى
فى قالب Form2_Load

وهتعدل تعديل بسيط اللى هو فى السطر الاخير من الكود فى الرد السابق
MsgBox(TextBox2.Lines(i))

وتخلى السطر كده
MsgBox(TextBox2.Lines())

اكتبلى القيمة هنا هتكون ايه