[ابو روضة]

(21-11-22, 10:30 AM)yaser27 كتب : افترضت ان الملف الاساسي لديك ليس فيه تكرار 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)

الله يسعدك أخى الكريم ياسر ، فعلا نجح ماشاء الله عليك...

لو تسمح سؤال أخر يُشبه الأول :

أيضا لدى ملف به هذه الأكواد

    <select size="39%" id="menu" style="width:400px;" onChange="sami(selectedIndex)">

         <option>قصص جميلة في الدعوة

         <option >قصة الأسد الطماع

         <option>قصة نهاية محتال

         <option>القط مشمش ومصيدة الفئران

            

         </h1>   

       </select>

وأيضا أريد كلما أضيف عنوان  جديد ،  يتم اضافته تحت أخر سطر هذا

<option>القط مشمش ومصيدة الفئران

ويكون بنفس التنثيق للكود

هكذا  مثلا <option>السيرة النبوية فى سطور

وجزاك الله كل الخير