[ابو روضة]

جربت الطريقة وللأسف لم تفلح معى ، لم يتم اضافة شيئ.....

مع انها فكرة رائعة...

الفكرة االأولى كانت ايضا جميلة

ومنها قمت بعمل الكود كالتالى  ، فقط باضافة تكست بوكس أضع به الاسم

PHP كود :

  Dim txt = IO.File.ReadAllText("screbt.js")
        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 = TextBox1.Text & ".html" ' TextBox.Text
        book = book.Trim & vbNewLine & "book[" & i - 1 & "] = """ & newLink & """"
        txt = book & vbNewLine & func
        IO.File.WriteAllText("screbt.js", txt) 


وجزاك الله كل الخير أخى الكريم