03-04-14, 06:00 PM
نحمده ونصلي على رسوله الكريم
اولا نستورد التالي:
الان نعرف متغير للكتابة:
في الوسيطه نرسل مسار حفظ الملف
الان نضيف البيانات:
اما قراءة الملف:
مرفق مثال
السلام عليكم ورحمة الله
اولا نستورد التالي:
:#C
:VB
كود :
using System.Resources;:VB
كود :
Imports System.Resourcesالان نعرف متغير للكتابة:
:#C
:VB
كود :
ResXResourceWriter xWriter = new ResXResourceWriter(path);:VB
كود :
Dim xWriter As New ResXResourceWriter(path)في الوسيطه نرسل مسار حفظ الملف
الان نضيف البيانات:
:#C
:VB
كود :
xWriter.AddResource("Name", "الاسم");
xWriter.AddResource("Address", "العنوان");
xWriter.AddResource("Phone", "رقم الهاتف");
xWriter.AddResource("Image", "الصورة");
xWriter.AddResource("File", "ملف مرفق");:VB
كود :
xWriter.AddResource("Name", "الاسم")
xWriter.AddResource("Address", "العنوان")
xWriter.AddResource("Phone", "رقم الهاتف")
xWriter.AddResource("Image", "الصورة")
xWriter.AddResource("File", "ملف مرفق")اما قراءة الملف:
:#C
:VB
كود :
ResXResourceReader xReader = new ResXResourceReader(path);
foreach (DictionaryEntry de in xReader)
switch (de.Key.ToString())
{
case "Name":
الاسم = de.Value.ToString();
break;
case "Address":
العنوان = de.Value.ToString();
break;
case "Phone":
رقم الهاتف = de.Value.ToString();
break;
case "Image":
الصورة = (byte[])de.Value;
break;
case "File":
الملف المرفق = (byte[])de.Value;
break;
}:VB
كود :
Dim xReader As New ResXResourceReader(path)
For Each de As DictionaryEntry In xReader
Select Case de.Key.ToString()
Case "Name"
الاسم = de.Value.ToString()
Case "Address"
العنوان = de.Value.ToString()
Case "Phone"
رقم الهاتف = de.Value.ToString()
Case "Image"
الصورة = CType(de.Value, Byte())
Case "File"
الملف المرفق = CType(de.Value, Byte())
End Select
Next deمرفق مثال


ههه
string name, string value) الوسيطة الاولى هي مفتاح القيمة التي نستطيع معرفتها عند القراءه والثانية هي القيمة، كما فعلنا في المثال: