[ابو روضة]

(22-11-22, 03:41 PM)yaser27 كتب : ما رأيك بهذه الفكرة السهلة

---

اعمل ملف في الريسورس وسمه 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

جزاك الله كل الخير أخى الكريم ، فكرة جميلة بالفِعل وسأقوم بتجربتها.

لكن ممكن لو تسمح يكون كأول كود ؟ 

لآنى اصلا أريد اضافة كل هذا لملفات ويب ، لآنى عامل صفحة خاصة لى 

لقراءة المقالات والقصص والكود الأول مختصر وجميل ماشاء الله