منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(26-03-16, 05:18 PM)سعود كتب : [ -> ]

PHP كود :

 Private Sub gstr()
        Try
            t1.Text = My.Computer.FileSystem.ReadAllText("t1.txt")
            t2.Text = My.Computer.FileSystem.ReadAllText("t2.txt")
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gstr()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim all() As String = t1.Text.Split(vbNewLine)
        Dim all2 As String = ""
        For Each h In all
            Dim n() As String = h.Split("@")
            all2 &= n(1) & "@" & n(0) & vbNewLine
        Next
        My.Computer.FileSystem.WriteAllText("t2.txt", all2, False)
        gstr()
    End Sub 


هذا الكود المطلوب