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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن طلب بسيط MOSTAFA.KAMEL 4 94 14-10-17, 05:36 AM
آخر رد: حريف برمجة
  مطلوب كود بسيط لربط الCombobox مع dgw lemozza 2 58 12-10-17, 05:26 AM
آخر رد: lemozza
  [VB.NET] طلب كود بسيط MOSTAFA.KAMEL 3 108 02-10-17, 03:46 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] هل الكود التالي يمكن ان يسجل صوت الكومبيوتر بعد تعديل بسيط سعود 4 154 09-08-17, 03:56 AM
آخر رد: سعود
  تعديل كود بسيط لو سمحتوا يا جماعه نبيل كونكت 1 122 26-07-17, 01:49 PM
آخر رد: محمود بكرى
  مشكل بسيط rabeh.ram 2 148 11-06-17, 10:09 PM
آخر رد: rabeh.ram
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 11 659 05-06-17, 03:24 PM
آخر رد: أبووسم
  سؤال بسيط في ال count khaled12345 2 189 27-05-17, 06:52 PM
آخر رد: khaled12345
  [VB.NET] طلب كود بسيط MOSTAFA.KAMEL 1 141 19-05-17, 10:57 PM
آخر رد: alma2
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 287 13-05-17, 07:41 AM
آخر رد: أبو نقطة

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


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