21-11-22, 10:30 AM
(21-11-22, 09:20 AM)ابو روضة كتب :السلام عليكم ورحمة الله وبركاتهلدى ملف تكست به هذه الأكوادbook = new Arraybook[0] = "ferst.html"book[1] = "11.html"book[2] = "22.html"book[3] = "33.html"book[4] = "44.html"book[5] = "5.html"book[6] = "9.html"book[7] = "3.html"book[8] = "88.html"book[9] = "666.html"book[9] = "666.html"book[9] = "666.html"book[9] = "666.html"book[9] = "666.html"book[10] = "a.html"book[11] = "s.html"book[12] = "d.html"function sami(link) {getfram = document.getElementById("frm")getfram.setAttribute("src", book [link])}واريد اضافة هذا السطرbook[13] = "f.html"بعد السطر الأخير هذاbook[12] = "d.html"
وكل ما أضيف سطر جديد يتم اضافته بعد اخر سطر ضفته
فهل هناك طريقة لذلك الله يكرمكم ؟.
افترضت ان الملف الاساسي لديك ليس فيه تكرار book[9]
كود :
Dim txt = IO.File.ReadAllText("book.txt")
Dim book = Regex.Match(txt, "book.+?(?=function)", RegexOptions.Singleline).Value
Dim func = Regex.Match(txt, "function.+", RegexOptions.Singleline).Value
Dim i = book.Trim.Split(vbNewLine).Count
Dim newLink = "d.html" ' TextBox.Text
book = book.Trim & vbNewLine & "book[" & i - 1 & "] = """ & newLink & """"
txt = book & vbNewLine & func
IO.File.WriteAllText("book.txt", txt)