(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 بيخرجه وكدا غلط انا اريد عرض السطر الذى كاتب الكلمه المحدده يعرض ليا كل الاسطر التى تحمل هذا الاسم
حبيب يا ابراهيم والله
شكلك مطلعتش على الكلام كله بس هختصر عليك دا كله وهاعملك الكود جاهز
مع انى نصيحة من اخ لاخيه تكود تطلع على الكود بنفسك عشان انت تقدر تنشاء منه كذا حاجة
الكود التالى هو
"(\|)(.*)(:8080 \| vpn \| " + TextBox3.Text + " \|)"
استبدله مكان
"(\|)(.*)(:" + TextBox3.Text + "\|*)"
ودوس F5 واكتب فى
TextBox3
كلمة http
بعد كده اضغط على Button
وادعيلى
بقولك اكتب الكود دا كده
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
لازم عمل فلتر اخى الاستاذ جوكر وان شاء الله بفضل ربنا يكمل الامر
مفيش مشكلة
خد الكود دا كده
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% من التجارب
راجع التعليق تانى تم التعديل
(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 |
طيب ولو قلنا خليك على ما انت عليه تانى
فى قالب Form2_Load
وهتعدل تعديل بسيط اللى هو فى السطر الاخير من الكود فى الرد السابق
MsgBox(TextBox2.Lines(i))
وتخلى السطر كده
MsgBox(TextBox2.Lines())
اكتبلى القيمة هنا هتكون ايه