[الـ ـجارح]

السلام عليكم

طلب برنامج او مشروع محول تكست مثلا اختار ملف التكست

ملف txt يحتوي على ايميلات بالطريقه هذي
xxxxxx1@hotmail.com:9998
xxxxxx2@hotmail.com:9998
xxxxxx3@hotmail.com:9998

اريد تحويل وجعلهم بالطريقه هذي بجانب بعض وليس تحت بعض وببين كل ايميل والاخر هالفاصله,
xxxxxx1@hotmail.com:9998,xxxxxx2@hotmail.com:9998,xxxxxx3@hotmail.com:9998

بانتظاركم

[أسامة السالمي]

PHP كود :

TextBox1.Text = TextBox1.Text.Replace(vbNewLine, ",") 


[silverlight]

يمكنك استخدام الدالة التالية

PHP كود :

   Private Function ReadFile(fileName As String) As String
        If Not String.IsNullOrEmpty(fileName) AndAlso IO.File.Exists(fileName) Then
            Dim lines As String() = IO.File.ReadAllLines(fileName)
            Dim i As Integer = 0
            Dim s As String = String.Empty
            While i < lines.Length
                Dim line As String = lines(i)
                If Not String.IsNullOrEmpty(line) Then
                    s += line
                    s += ","
                End If
                i += 1
            End While
            Return s.TrimEnd(",")
        End If
        Return String.Empty
    End Function 


الإستخدام
حدد إسم الملف شاملا المسار و مرره للدالة
لو افترضنا ان الملف  موجود تحت فهرس المشروع و اسم الملف datafile.txt
يكون الكود كالتالي

PHP كود :

       Dim s As String = ReadFile(".\" + "datafile.txt") 


[سعود]

PHP كود :

Public Class Form1
    Private Sub gd()
        TextBox1.Text = My.Computer.FileSystem.ReadAllText("t.txt")
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text.Replace(vbNewLine, ",")
        My.Computer.FileSystem.WriteAllText("t.txt", TextBox1.Text, False)
        gd()
    End Sub
End Class 


مجرد مشاركة فقط

[الـ ـجارح]

الف شكر لكم جميعا
واخص بالشكر الاخ سعود وتم تحميل المشروع يعمل 100%