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

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

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

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

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

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

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

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

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

تحياتى لك

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

(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