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
مرفق مثال