منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود بسيط (/showthread.php?tid=15228)



طلب كود بسيط - gazawy - 26-03-16

السلام عليكم
اريد برنامج بسيط
يعدل ع ملف تكست مثلا يكون بداخلو
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

او العكس



RE: طلب كود بسيط - gazawy - 26-03-16

للرفع Sad Sad Sad


RE: طلب كود بسيط - سعود - 26-03-16

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 ObjectAs EventArgsHandles MyBase.Load
        gstr
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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"all2False)
 
       gstr()
 
   End Sub 
هذا الكود المطلوب



RE: طلب كود بسيط - gazawy - 27-03-16

(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 ObjectAs EventArgsHandles MyBase.Load
        gstr
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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"all2False)
 
       gstr()
 
   End Sub 
هذا الكود المطلوب



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


RE: طلب كود بسيط - ghaner joseph - 07-04-16

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