[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()

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

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

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

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

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

تحياتى لك 

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