31-10-21, 01:42 AM
(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