منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف عمل filter - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف عمل filter (/showthread.php?tid=2307)

الصفحات: 1 2 3

RE: كيف عمل filter - ابراهيم مراد - 21-03-14

(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

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


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

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

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

RE: كيف عمل filter - ابراهيم مراد - 21-03-14

(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

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


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

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

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

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

RE: كيف عمل filter - elgokr - 21-03-14

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

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

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

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

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

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

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

وادعيلى Big Grin Big Grin Sleepy Tongue

RE: كيف عمل filter - ابراهيم مراد - 21-03-14

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

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

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

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

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

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

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

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

RE: كيف عمل filter - elgokr - 21-03-14

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

داخل Form2_Load

واضغط F5

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

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

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

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

RE: كيف عمل filter - ابراهيم مراد - 21-03-14

(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 ميعرضش حاجة Wink

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

RE: كيف عمل filter - elgokr - 21-03-14

مفيش مشكلة

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

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
افتراضى من الخصائص لان المفروض اول ما تشغل البرنامج

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

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

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

RE: كيف عمل filter - elgokr - 21-03-14

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

RE: كيف عمل filter - ابراهيم مراد - 21-03-14

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

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

| 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 |

RE: كيف عمل filter - elgokr - 21-03-14

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

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

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

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