(25-05-18, 10:28 PM)elgokr كتب :

بسيطة

قم بعمل كود sub وظيفته استرجاع الملف مرة اخرى

من ثم استدعى ذلك مع كل زر فى بداية الكود

من حيث ى كل مرة يضغط المستخدم بين الزر والاخر

يقوم اولاً باسترجاع الملف لاى طبعه الرئيسي

من ثم يقوم بتنفيذ تغيير المطلوب

يرب تكون الفكرة مبسطة

تحياتى لك

(25-05-18, 09:19 PM)trakktour كتب : اخي العزيز انا اريد تفيير كلمة FirAs كل مرة و المشكل عند استعمال replace لا يمكنني التعديل على الملف مرة اخرى
و قمت ب اضافة كود عودة الملف كما كان بعد ثواني قليلة و لكن يظهر لي خطأ لان الملف مفتوح في webbrowser و لا يمكن التعديل عليه

(26-05-18, 12:34 AM)elgokr كتب :

(25-05-18, 09:19 PM)trakktour كتب : اخي العزيز انا اريد تفيير كلمة FirAs كل مرة و المشكل عند استعمال replace لا يمكنني التعديل على الملف مرة اخرى
و قمت ب اضافة كود عودة الملف كما كان بعد ثواني قليلة و لكن يظهر لي خطأ لان الملف مفتوح في webbrowser و لا يمكن التعديل عليه

ارفق المشروع مجدداً بعد اضافة كود استرجاع الملف

حتى يتم عمل التعديل المبسط على نفس الكود بدون اى تغيير او اضافات بالكود

تحياتى لك

---

فى حاجة ممكن تسهل عليك الامر ايضاً فى الجزء ده

كود :

Dim hamdane As String = "FirAs"

لو تحول لــ

كود :

Dim hamdane As String = My.Settings.FirAs

بحيث يتم انشاء فى Settings للمشروع حقل باسم FirAs

ويتم عملية تسجيل قيمة Me.channels_url فى حقل 

كود :

My.Settings.FirAs

من خلال تطبق الكود

كود :

My.Settings.number_name = Me.channels_url
My.Settings.Save()

من ثم تحويل كود الملف الى

كود :

Dim txtFile As String = Application.StartupPath & "P2.html"
If My.Settings.FirAs = "" Then
My.Settings.FirAs = "FirAs"
My.Settings.Save()
End If
Dim hamdane As String = My.Settings.FirAs
File.WriteAllText(txtFile, File.ReadAllText(txtFile).Replace(hamdane, Me.channels_url))

وبكده كل عملية تغيير فى الملف للقيمة من خلال الضغط الزر سيتم تسجيلها فى My.Settings.FirAs

هيكون الامر سهل انه يستعين القيمة الاخير المستخدمة

طيب وللاحتياط اكتر

عند اغلاق البرنامج طبق الكود التالى

كود :

My.Settings.FirAs = ""
My.Settings.Save()

مع كود استرجاع الملف الى الكود الافتراضي

يارب الفكرة تكون واضحة

والرجاء مراجعة الكود انا قمت بكتابة الكود يدوياً 

مع النسخ الكواد من التعليقات السابقة

حيث لا يكون خطاء باحرف او ما شبه

تحياتى لك 

وتمنياتى لك التوفيق

(26-05-18, 05:40 AM)elgokr كتب :

بدلاً من تعقيد الامور وتغيير فى الاكواد او اضافات كثيرة

فقط قم بفتح المشروع لديك

وقم باستبدال كود Sub chan()

بالكود التالى:

كود :

Public Sub chan()
       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\FIRAS\P2.html", Application.StartupPath & "\P2.html", True)
       Dim txtFile As String = "P2.html"
       Dim hamdane As String = "FirAs"
       System.IO.File.WriteAllText(txtFile, System.IO.File.ReadAllText(txtFile).Replace(hamdane, Me.channels_url))
       Me.WebBrowser1.Navigate("http://localhost:19762/P2.html")

   End Sub

بكده الملف الرئيسي لعرض القناه 

PHP كود :

P2.html 


والذى يوجد بجانب البرنامج

بينما النسخة الافتراضية يجب ان تكون فى مجلد بجانب البرنامج 

كما هو موضح هنا

PHP كود :

\FIRAS\P2.html 


تم تجربة الامر ويعمل فى كل مرة يتم الضغط الزر بتغيير الرابط

تحياتى لك

وتمنياتى لك التوفيق