(21-11-22, 09:20 AM)ابو روضة كتب : السلام عليكم ورحمة الله وبركاته
لدى ملف تكست به هذه الأكواد
book = new Array
book[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)
وكلما أردت إضافة link تضيفه في ملف txtLink.txt وتنفذ الكود وتجد النتيجة في ملف htmlLink.txt