تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اتمنى مساعدتي في هدا الكود
#1
السلام عليكم ورحمة الله وبركاته

إخوانى عندي هدا الكود وهو يعمل بشكل جيد لكنى اريد تغير بعض الأشياء فيه فقط

PHP كود :
Dim txt_1 As String
        Dim text_strs 
As String
        txt_1 
File.ReadAllText(My.Application.Info.DirectoryPath "\conter")
        
text_strs File.ReadAllText(My.Application.Info.DirectoryPath "\desktop.txt")
        
text_strs Replace(text_strsChr(10), "")
        
'-----------------------------------------
        Dim desktop_splt() As String
        '
----------
        
desktop_splt text_strs.Split(vbCrLf)
        
'--------------
        If txt_1 = "" Then
            File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
            MsgBox(desktop_splt(0))
            
        Else
            If txt_1 = desktop_splt.Length - 1 Then
                File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
                MsgBox(desktop_splt(0))
               
            Else
                File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", txt_1 + 1)
                MsgBox(desktop_splt(txt_1 + 1))
                
            End If
           
        End If 

انا اريد بدل القراءة من ملف التاكست والكتابة فى ملف التاكست اريد القراة من اداة تاكست بوكس والكتابة في اداة تاكست بكس ايضا يعني اريد التخلص من ملفات التاكست ويكون كل شئ داخل الفورم وشكرا للجميع مسبقا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] وين الخطأ في هذا الكود (إستعلام) asadtaif 10 208 أمس, 12:37 PM
آخر رد: asadtaif
  اتمنى مساعدتي في كتابة كود توقيف التكست عند القيمة صفر asoomh1416 9 257 06-06-19, 05:59 AM
آخر رد: ابراهيم ايبو
Lightbulb [VB.NET] الرجاء تعديل الكود بالملف المرفق الراس الكبيرة 2 95 01-06-19, 01:40 AM
آخر رد: الراس الكبيرة
  ماهو الكود الصحيح و العملي لهذا kador 12 420 12-05-19, 05:07 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 120 07-05-19, 06:02 PM
آخر رد: dubai.eig
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 185 03-05-19, 01:29 AM
آخر رد: saoud2
  رسالة خطأ فى الكود احمد خطاب 4 186 19-04-19, 11:56 AM
آخر رد: elgokr
  مثال لنفس الكود nourmandour 6 172 13-04-19, 12:18 AM
آخر رد: nourmandour
  [تم الحل] مشكلة فى تحويل هذا الكود الى كلاس ابو روضة 3 190 10-04-19, 11:35 PM
آخر رد: ابو روضة
  [VB.NET] [تم الحل] يرجى المساعده في تصحيح الكود dubai.eig 8 206 10-04-19, 01:54 AM
آخر رد: dubai.eig

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


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