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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 8 95 منذ 3 ساعة مضت
آخر رد: Mohamed Magdy
  [سؤال] ارجو المساعدة في تصحيح هذا الكود لزر الحفظ gharib 0 46 19-10-18, 12:39 PM
آخر رد: gharib
Smile ممكن شرح هدا الكود الزوي 1 47 18-10-18, 02:17 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 90 11-10-18, 03:30 PM
آخر رد: Simo1991
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 201 06-10-18, 02:07 AM
آخر رد: ابو روضة
  ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة Hazem1 26 482 04-10-18, 09:47 PM
آخر رد: princelovelorn
  هل الكود التالي صحيح لاستعادة قاعدة بيانات أكسس Hazem1 8 190 30-09-18, 01:41 AM
آخر رد: Hazem1
  [VB.NET] اريد تغير بسيط ع الكود ... e-coder 3 125 29-09-18, 04:09 PM
آخر رد: عبد الرؤوف
  احد يساعدني في تعديل هذا الكود nagoma 0 59 29-09-18, 12:06 AM
آخر رد: nagoma
  كيف اجعل هذا الكود يعمل على فريم ورك 4 ابو روضة 6 159 25-09-18, 11:19 PM
آخر رد: ابو روضة

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


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