[مجهول]

(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 او كلمات معينة