تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 175 10-07-18, 06:06 PM
آخر رد: elgokr
  ارجو تصحيح الكود التالي bidaya 1 36 30-06-18, 09:24 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 174 29-06-18, 07:40 PM
آخر رد: elgokr
  هل هناك طريقة لتسريع هذا الكود ابو روضة 2 117 29-06-18, 03:00 AM
آخر رد: YousefOkasha
  [سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود dametucorazon 12 230 21-06-18, 05:19 AM
آخر رد: dametucorazon
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 0 59 15-06-18, 07:33 AM
آخر رد: رمضان محمد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 15 1,979 15-06-18, 07:28 AM
آخر رد: رمضان محمد
  استفسار في هذا الكود فراس الغزي 1 63 09-06-18, 05:04 AM
آخر رد: elgokr
  ما الخطأ في هذا الكود ؟؟ hichem1 4 91 07-06-18, 02:04 AM
آخر رد: elgokr
  هل يمكن اختصار هذا الكود blida02 6 135 29-05-18, 04:29 PM
آخر رد: blida02

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


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