تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود بسيط
#1
Sad 
السلام عليكم
اريد برنامج بسيط
يعدل ع ملف تكست مثلا يكون بداخلو
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

او العكس
الرد }}}
تم الشكر بواسطة:
#2
للرفع Sad Sad Sad
الرد }}}
تم الشكر بواسطة:
#3
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 
هذا الكود المطلوب


الملفات المرفقة
.zip   For_gazawy.zip (الحجم : 81.85 ك ب / التحميلات : 33)
الرد }}}
تم الشكر بواسطة:
#4
(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 
هذا الكود المطلوب



مشكووور كثير اخي الكريم
الرد }}}
تم الشكر بواسطة:
#5
صديقي كريم gazawyأنظر برنامج الة حاسبة
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم