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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 58 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 137 29-10-16, 03:42 PM
آخر رد: أبووسم
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 332 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
Lightbulb طلب بسيط: فورم إدخال (4) خانات... Arabia 6 137 25-10-16, 04:36 PM
آخر رد: Arabia
  سؤال بسيط في فصل التاريخ عن الوقت فراس صلاح 3 134 19-10-16, 04:17 AM
آخر رد: mhmd_911
  [VB.NET] تعديل بسيط في الطباعة المباشرة فقط ReportViewer sniperjawadino 20 587 16-08-16, 11:46 AM
آخر رد: sniperjawadino
  سؤال بسيط بخصوص ال web browser وصفحات الويب ali ahmed 1997 2 153 06-07-16, 08:30 PM
آخر رد: أسامة
Wink [VB.NET] مطلوب تعديل على مشروع بسيط جدا CLARO 7 255 11-06-16, 01:13 AM
آخر رد: Adrees
  طلب تعديل بسيط لو سمحتم bidaya 2 146 08-06-16, 05:25 AM
آخر رد: bidaya
  [vb6.0] اريد <شرح بسيط> بداية لتصميم انتي فيروس djatv 1 279 29-05-16, 10:35 PM
آخر رد: CLARO

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


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