[ابو روضة]

السلام عليكم ورحمة الله وبركاته..

لدى ملف تكست به هذه السطور

book[0] = "ferst.html"

book[1] = "11.html"

book[2] = "22.html"

book[3] = "33.html"

book[4] = "44.html"

أريد كتابة أسطر تحتها بحيث لو وضعت مثلا

book[6] = "55.html"

يتم وضعها تحتهم

وكل ما أريد وضع نص مثلهم يتم وضعه تحت أخر سطر

كيف يتم هذا الله يكرمكم......

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
استخدم الكود (vbNewLine ) مثلاً :

كود :

vbNewLine & "book[6] = 55.html"

[trakktour]

(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

[ابو روضة]

(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

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

جزاكم الله كل الخير...