22-11-22, 03:41 PM
(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"
وكل ما أضيف سطر جديد يتم اضافته بعد اخر سطر ضفته
فهل هناك طريقة لذلك الله يكرمكم ؟.
(21-11-22, 06:53 PM)ابو روضة كتب :أيضا لدى ملف به هذه الأكواد
<select size="39%" id="menu" style="width:400px;" onChange="sami(selectedIndex)"><option>قصص جميلة في الدعوة<option >قصة الأسد الطماع<option>قصة نهاية محتال<option>القط مشمش ومصيدة الفئران</h1></select>وأيضا أريد كلما أضيف عنوان جديد ، يتم اضافته تحت أخر سطر هذا<option>القط مشمش ومصيدة الفئرانويكون بنفس التنثيق للكودهكذا مثلا <option>السيرة النبوية فى سطوروجزاك الله كل الخير
ما رأيك بهذه الفكرة السهلة
اعمل ملف في الريسورس وسمه htmlOption وضع فيه الكود بدون العناصر
كود :
<select size="39%" id="menu" style="width:400px;" onChange="sami(selectedIndex)">
$
</h1>
</select>ثم اعمل ملف txtOption.txt فيه فقط العناصر مثل
كود :
قصص جميلة في الدعوة
قصة الأسد الطماع
قصة نهاية محتال
القط مشمش ومصيدة الفئرانثم نفذ هذا الكود
كود :
Dim options = IO.File.ReadLines("txtOption.txt")
Dim txt = My.Resources.htmlOption
Dim lst As New List(Of String)
For Each o As String In options
If o.Trim <> "" Then lst.Add(" <option>" & o)
Next
txt = txt.Replace("$", String.Join(vbNewLine, lst))
IO.File.WriteAllText("htmlOption.txt", txt)وكلما أردت إضافة option تضيفه في ملف txtOption.txt وتنفذ الكود وتجد النتيجة في ملف htmlOption.txt
وإذا أردنا تطبيق نفس الفكرة على الطلب الاول مصفوفة book array
يكون اسم ملف الروابط txtLink.txt فيه الروابط فقط
كود :
ferst.html
11.html
22.html
33.html
44.html
5.html
9.html
3.html
88.html
666.html
a.html
s.html
d.htmlوملف الريسورس htmlLink يكون فيه
كود :
book = new Array
$
function sami(link) {
getfram = document.getElementById("frm")
getfram.setAttribute("src", book [link])
}ثم تنفيذ هذا الكود
كود :
Dim options = IO.File.ReadLines("txtLink.txt")
Dim txt = My.Resources.htmlLink
Dim lst As New List(Of String)
Dim i As Integer = 0
For Each o As String In options
If o.Trim <> "" Then
lst.Add(" book[" & i & "] = """ & o & """")
i += 1
End If
Next
txt = txt.Replace("$", String.Join(vbNewLine, lst))
IO.File.WriteAllText("htmlLink.txt", txt)