(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.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()
مع كود استرجاع الملف الى الكود الافتراضي
يارب الفكرة تكون واضحة
والرجاء مراجعة الكود انا قمت بكتابة الكود يدوياً
مع النسخ الكواد من التعليقات السابقة
حيث لا يكون خطاء باحرف او ما شبه
تحياتى لك
وتمنياتى لك التوفيق