تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الكتابة داخل ملف تكست فى سطر محدد
#1
السلام عليكم ورحمة الله وبركاته..
لدى ملف تكست به هذه السطور

book[0] = "ferst.html"
book[1] = "11.html"
book[2] = "22.html"
book[3] = "33.html"
book[4] = "44.html"



أريد كتابة أسطر تحتها بحيث لو وضعت مثلا
book[6] = "55.html"
يتم وضعها تحتهم
وكل ما أريد وضع نص مثلهم يتم وضعه تحت أخر سطر
كيف يتم هذا الله يكرمكم......
الرد
تم الشكر بواسطة: أشرف كريم 2
#2
وعليكم السلام ورحمة الله وبركاته
استخدم الكود (vbNewLine ) مثلاً :
كود :
vbNewLine & "book[6] = 55.html"
الرد
تم الشكر بواسطة: أشرف كريم 2 , ابو روضة , ابو روضة
#3
(30-10-21, 04:46 PM)ابو روضة كتب :
السلام عليكم ورحمة الله وبركاته..
لدى ملف تكست به هذه السطور

book[0] = "ferst.html"
book[1] = "11.html"
book[2] = "22.html"
book[3] = "33.html"
book[4] = "44.html"



أريد كتابة أسطر تحتها بحيث لو وضعت مثلا
book[6] = "55.html"
يتم وضعها تحتهم
وكل ما أريد وضع نص مثلهم يتم وضعه تحت أخر سطر
كيف يتم هذا الله يكرمكم......

و عليكم السلام 
تفضل اخي الكريم ان شاء الله نكون فهمتك صح
كود :
       Dim inputData As String
       inputData = InputBox("اكتب ما تشاء هنا")
       Dim FILE_NAME As String = "book.txt"

       If System.IO.File.Exists(FILE_NAME) = True Then
           Dim objWriter As New System.IO.StreamWriter(FILE_NAME, IO.FileMode.Append)
           objWriter.WriteLine(inputData)
           objWriter.Close()
           MsgBox("تم الحفظ")
       Else
           MsgBox("ملف تكست غير موجود")
           Dim writeFile As IO.StreamWriter
           writeFile = IO.File.CreateText(FILE_NAME)
           writeFile.WriteLine(inputData)
           writeFile.Close()
       End If
الرد
تم الشكر بواسطة: أشرف كريم 2 , ابو روضة , ابو روضة
#4
(30-10-21, 05:03 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
استخدم الكود (vbNewLine ) مثلاً :
كود :
vbNewLine & "book[6] = 55.html"

(31-10-21, 01:42 AM)trakktour كتب : و عليكم السلام 
تفضل اخي الكريم ان شاء الله نكون فهمتك صح
كود :
       Dim inputData As String
       inputData = InputBox("اكتب ما تشاء هنا")
       Dim FILE_NAME As String = "book.txt"

       If System.IO.File.Exists(FILE_NAME) = True Then
           Dim objWriter As New System.IO.StreamWriter(FILE_NAME, IO.FileMode.Append)
           objWriter.WriteLine(inputData)
           objWriter.Close()
           MsgBox("تم الحفظ")
       Else
           MsgBox("ملف تكست غير موجود")
           Dim writeFile As IO.StreamWriter
           writeFile = IO.File.CreateText(FILE_NAME)
           writeFile.WriteLine(inputData)
           writeFile.Close()
       End If



ربنا يبارك فيكم أخوتى الغاليين ....

جزاكم الله كل الخير...
الرد
تم الشكر بواسطة: أشرف كريم 2


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يمكن كتابة كود جافا داخل مشروع فيجوال بيسك muad 0 51 , 11:50 PM
آخر رد: muad
  اريد كود الكتابة في ملف txt في مكان محدد العواجي 1 402 28-11-21, 08:13 PM
آخر رد: سعود
  فتح نموذج عند اختيار سجل محدد من نموذج اخر Arfat007 7 202 28-11-21, 06:49 PM
آخر رد: Arfat007
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 88 27-11-21, 02:56 PM
آخر رد: جيولوجي مبتدئ
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 747 14-11-21, 03:47 PM
آخر رد: kebboud
  [VB.NET] اجراء العمليات الحسابية داخل خلية داتا غريد فيو العواد الصغير 3 1,461 14-11-21, 03:15 PM
آخر رد: walkady
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 4 217 10-11-21, 02:54 PM
آخر رد: Anas Mahmoud
  [سؤال] سؤال في تكست بوكس حسن الجلب 1 140 08-11-21, 12:47 PM
آخر رد: Anas Mahmoud
  كيفية البحث عن رقم داخل حقل في الجدول عبدالكريم برشدان 6 323 03-11-21, 09:01 PM
آخر رد: عبدالكريم برشدان
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 1 302 15-10-21, 06:47 PM
آخر رد: asemshahen5

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


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