[silverlight]

لا أستطيع تنزيل الملف

عموما هذا تعديل بسيط علي الكود اعلاه
اعتقد انك تريد إعادة ملأ التكست بوكس بالبيانات لكن بدون #

PHP كود :

Public Class Form1

    Private stringsWithoutSeparator As List(Of String) = New List(Of String)()
    Private Const separator As Char = "#"c

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
        Dim s As String = RichTextBox1.Text
        ' نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها 
        If Not String.IsNullOrEmpty(s) Then
            For Each value As String In s.Split(separator)
                If Not String.IsNullOrEmpty(value) Then
                    ' إضافة البيانات الي مصفوفة عامة
                    stringsWithoutSeparator.Add(value)
                    ' إضافة البيانات الي الليست بوكس
                    ListBox1.Items.Add(value)
                End If

            Next
        End If

        RichTextBox1.Text = Nothing
        ' الباقي لم أفهمه رجاء التوضيح ماذا تريد أ نتفعل هنا لاحقا
        Dim textboxString As String = ""
        For Each v As String In stringsWithoutSeparator
            textboxString += v
        Next

        textboxString.TrimEnd()

        RichTextBox1.Text = textboxString

    End Sub

End Class