تقييم الموضوع :
  • 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 ك ب / التحميلات : 9)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#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أنظر برنامج الة حاسبة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بسيط في ال count khaled12345 2 77 27-05-17, 06:52 PM
آخر رد: khaled12345
  [VB.NET] طلب كود بسيط MOSTAFA.KAMEL 1 60 19-05-17, 10:57 PM
آخر رد: alma2
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 141 13-05-17, 07:41 AM
آخر رد: أبو نقطة
  [VB.NET] استفسار بسيط جدا بخصوص الطباعه !!! CoderMM 1 59 03-05-17, 04:34 PM
آخر رد: mansoor
  [VB.NET] سؤال بسيط لو سمحتم ali abd alhadi 3 93 29-04-17, 01:27 AM
آخر رد: bidaya
  [VB.NET] عايز كود بسيط خاص بال list box MOSTAFA.KAMEL 1 75 24-04-17, 04:26 AM
آخر رد: silverlight
  استفسار بسيط عن الداتا جريد فيو و عملية البيع CoderMM 2 108 18-04-17, 06:01 PM
آخر رد: CoderMM
  مطلوب كود بسيط عند الظغط على Button في فورم واحد يتم الظغط على Button في الفورم 2 nmst70 2 121 09-04-17, 03:07 PM
آخر رد: nmst70
  [VB.NET] المشروع جاهز ولكن بحاجة لتعديل بسيط 3asfa~mdmra 2 226 14-02-17, 01:00 AM
آخر رد: 3asfa~mdmra
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 240 29-11-16, 11:10 PM
آخر رد: rabeh.ram

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


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