[gazawy]

السلام عليكم

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

1001:1234@192.168.1.1

1002:1234@192.168.1.2

1003:1234@192.168.1.3

بعد التعديل يصير هكذا


192.168.1.1@1001:1234
192.168.1.2@1002:1234
192.168.1.3@1003:1234

او العكس

[gazawy]

للرفع

[سعود]

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 


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

[gazawy]

(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 


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

مشكووور كثير اخي الكريم

[ghaner joseph]

صديقي كريم gazawyأنظر برنامج الة حاسبة