منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > الكتابة داخل ملف نصى
نسخة كاملة : الكتابة داخل ملف نصى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

ابو روضة

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"

وكل ما أضيف سطر جديد يتم اضافته بعد اخر سطر ضفته

فهل هناك طريقة لذلك الله يكرمكم ؟.

yaser27

21-11-22, 10:30 AM
(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"

وكل ما أضيف سطر جديد يتم اضافته بعد اخر سطر ضفته

فهل هناك طريقة لذلك الله يكرمكم ؟.

افترضت ان الملف الاساسي لديك ليس فيه تكرار 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)

ابو روضة

21-11-22, 06:53 PM
(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>السيرة النبوية فى سطور
وجزاك الله كل الخير

yaser27

22-11-22, 03:41 PM
(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

ابو روضة

22-11-22, 08:06 PM
(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

جزاك الله كل الخير أخى الكريم ، فكرة جميلة بالفِعل وسأقوم بتجربتها.
لكن ممكن لو تسمح يكون كأول كود ؟ 
لآنى اصلا أريد اضافة كل هذا لملفات ويب ، لآنى عامل صفحة خاصة لى 
لقراءة المقالات والقصص والكود الأول مختصر وجميل ماشاء الله 

ابو روضة

24-11-22, 02:49 AM
جربت الطريقة وللأسف لم تفلح معى ، لم يتم اضافة شيئ.....
مع انها فكرة رائعة...
الفكرة االأولى كانت ايضا جميلة
ومنها قمت بعمل الكود كالتالى  ، فقط باضافة تكست بوكس أضع به الاسم

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) 


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

kebboud

07-04-23, 11:43 AM
(24-11-22, 02:49 AM)ابو روضة كتب : [ -> ]
جربت الطريقة وللأسف لم تفلح معى ، لم يتم اضافة شيئ.....
مع انها فكرة رائعة...
الفكرة االأولى كانت ايضا جميلة
ومنها قمت بعمل الكود كالتالى  ، فقط باضافة تكست بوكس أضع به الاسم

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) 


وجزاك الله كل الخير أخى الكريم
السلام عليكم الكاتب ابو سريع
لو تفضلت برفع كود المشروع حتى نستفيد أكثر 
شكرا
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > الكتابة داخل ملف نصى