[مجهول]

السلام عليكم ورحمة الله وبركاتة 
والصلاة والسلام على نبينا محمد 
كيفكم ان شاء الله تكونو في افضل حال . 
ي جماعة الخير 
انا حاولت اسوي كود يستخرج User-Pass من بين كلمات 
فمثلا 
[ aaaaa  nnnn:nnnn aaaa ] 
بيسحب nnnn:nnnn فقط اما الباقي يتجاهله
المهم 
المشكلة انه لو في كلمات فوقه ما تتضمن  : يسحب اخرها .. 
اتوقع محد فهم 
هاذي صوره



ذي الاكواد 

كود :

       Me.TextBox9.Clear()
       Me.Label20.Text = "0"
       Try
               Dim input As String = TextBox10.Text
               Dim regex As New Regex("([\w.-]+[^:.&\~ ]{4,}:[\w+]+[^@&\~ ]{1,})")
               Dim matchs As MatchCollection = regex.Matches(input)
               Dim enumerator As IEnumerator = matchs.GetEnumerator
               Dim builder As New StringBuilder
               Do While enumerator.MoveNext
                   Dim current As Match = DirectCast(enumerator.Current, Match)
                   builder.AppendLine(current.ToString)
               Loop
               If TypeOf enumerator Is IDisposable Then
                   TryCast(enumerator, IDisposable).Dispose()
               End If
               Me.TextBox9.Text = (Me.TextBox9.Text & builder.ToString)
       Catch ex As Exception
       End Try
   End Sub

[elgokr]

وعليكم اسلام ورحمة الله وبركاته

يبدو ان البيانت بيتم جلبها من خلال موقع

المشكلة ان الصورة م توضح ما تريده

وانت لم تشرح ماذا تفعل وماذا تريد ان تنفذ

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

والكود لا يحتوى على كامل البيانات واليم التى يتطلب العمل عليها

الموضوع محتاج لتوضيح اكتر عن ماذا تفعل وماذا تريد ات تفعله بعد

حتى يتم وض الكود اصحيح والمناسب لما تريد

تحياتى لك

وتمنياتى لك التوفيق

[مجهول]

(14-12-18, 06:31 PM)elgokr كتب :

وعليكم اسلام ورحمة الله وبركاته

يبدو ان البيانت بيتم جلبها من خلال موقع

المشكلة ان الصورة م توضح ما تريده

وانت لم تشرح ماذا تفعل وماذا تريد ان تنفذ

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

والكود لا يحتوى على كامل البيانات واليم التى يتطلب العمل عليها

الموضوع محتاج لتوضيح اكتر عن ماذا تفعل وماذا تريد ات تفعله بعد

حتى يتم وض الكود اصحيح والمناسب لما تريد

تحياتى لك

وتمنياتى لك التوفيق

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



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


اتمنى وصلت الفكره

[trakktour]

و عليكم السلام اخي
تفضل 

كود :

Imports System.IO
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.OpenFileDialog1.FileName = ""
       Try
           Me.OpenFileDialog1.ShowDialog()
           Dim items As String() = File.ReadAllLines(Me.OpenFileDialog1.FileName)
           Me.ListBox1.Items.AddRange(items)
       Catch exception1 As Exception
       End Try
       Me.OpenFileDialog1.FileName = ""
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim num As Integer = (Me.ListBox1.Items.Count - 1)
       Dim i As Integer = 0
       Do While (i <= num)
           Try
               Dim separator As Char() = New Char() {":"c}
               Dim strArray As String() = Conversions.ToString(Me.ListBox1.Items.Item(i)).Split(separator)
               Dim str3 As String = strArray(1)
               Dim str2 As String = strArray(0)
               Dim chArray2 As Char() = New Char() {"@"c}
               Dim strArray2 As String() = str2.Split(chArray2)
               Me.ListBox1.Items.Item(i) = (strArray2(0) & ":" & str3)

           Catch exception1 As Exception
           End Try
           i += 1
       Loop
   End Sub
End Class

[مجهول]

(15-12-18, 04:51 PM)trakktour كتب : و عليكم السلام اخي
تفضل 

كود :

Imports System.IO
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.OpenFileDialog1.FileName = ""
       Try
           Me.OpenFileDialog1.ShowDialog()
           Dim items As String() = File.ReadAllLines(Me.OpenFileDialog1.FileName)
           Me.ListBox1.Items.AddRange(items)
       Catch exception1 As Exception
       End Try
       Me.OpenFileDialog1.FileName = ""
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim num As Integer = (Me.ListBox1.Items.Count - 1)
       Dim i As Integer = 0
       Do While (i <= num)
           Try
               Dim separator As Char() = New Char() {":"c}
               Dim strArray As String() = Conversions.ToString(Me.ListBox1.Items.Item(i)).Split(separator)
               Dim str3 As String = strArray(1)
               Dim str2 As String = strArray(0)
               Dim chArray2 As Char() = New Char() {"@"c}
               Dim strArray2 As String() = str2.Split(chArray2)
               Me.ListBox1.Items.Item(i) = (strArray2(0) & ":" & str3)

           Catch exception1 As Exception
           End Try
           i += 1
       Loop
   End Sub
End Class

شكرا لك 
انا ما ابغى احول الايميل الى يوزر
انا كل الي ابيه استخرج يوزر وباسورد من بين مثلا capture او كلمات معينة

[elgokr]

لنقول ان البيانات على هذا النحو

PHP كود :

aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa
aaaaa nnnn:nnnn aaaa 


وكل المطلوب ان يعرض البيانات بهذا الشكل

PHP كود :

nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn
nnnn:nnnn 


اذا كان هذا ما تطلبه فكل ما عليك ان تجعل الكود بهذا الشكل

كود :

       For Each strLine As String In TextBox1.Text.Split(vbNewLine)
           Dim ss As String() = strLine.Split(Space(1))
           TextBox2.Text += ss(1) & vbNewLine
       Next

حيث تضع القسم الاولى فى TextBox1  وعند الضغط على الزر وما يخصه الكود بالاعلى

ستجد الناتج بالنهاية فى TextBox2

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

فبناءاً على قمت بطلبه فى توضيح بالرد تم ذكر هذا بهذا الكود لتبسيط وسهولة الامر فاتمنا هذا ما تريده

صورة توضح الناتج النهائي للكود

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

كود :

ss(0) '  يعنى ما هو قبل
ss(2) '  يعنى ما هو بعد

تحياتى لك

وتمنياتى لك التوفيق