اســــتفسار بخصوص حفظ اكثر من سطر في(Value )ملفini

[ياسرهتهت]

[CENTER] بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أساتـــذتي الكـــــرام
احتاج مساعدتكم في تعديل هذا الملف لحفظ البيانات في ملف ini
Input يدعم تعدد الاسطر ويحفظ الاسطر في الملف
لكن عند الاستدعاء يحضر سطر واحد فقط ...؟

هذا كــــــــــــــــــود الحفـــــظ



NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");

R1 = Input.GetText("m1");
R2 = Input.GetText("m2");
if RUDANAME =="" then
Dialog.Message("----", "----------------ð", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else

Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME);
end


if NAME =="" then
result = Dialog.Message("-----", "-------ð", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else


INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1", R1);
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2", R2);
end

وهــــــــــــــذا كود الاستعادة

NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");

R1 = Input.GetText("m1");
R2 = Input.GetText("m2");
if RUDANAME =="" then
Dialog.Message("-----", "--------ð", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else

Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME);
end


if NAME =="" then
result = Dialog.Message("-----", "---------Çð", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else


X1 =INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1");
Input.SetText("m1", X1);
X2 =INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2");
Input.SetText("m2", X2);
end


هذا ملف مفتوح مختصر
http://www.gulfup.com/?a5qsJZ

ولكم جزيل الشكر والتقدير
:abc_152::abc_152:[/CENTER

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
للحفظ:
NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");
g = Input.GetText("m1");
R1 = String.Replace(g, "\r\n", "belkiss", false);
g2 = Input.GetText("m2");
R2 = String.Replace(g2, "\r\n", "belkiss", false);
if RUDANAME =="" then
Dialog.Message("notice", "*****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME);
end
if NAME =="" then
result = Dialog.Message("notice", "***", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1", R1);
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2", R2);
end

[ثامر أبو بلقيس]

للاستعادة
NAME=Input.GetText("Input_Item");
RUDANAME = Input.GetText("Input2");
R1 = Input.GetText("m1");
R2 = Input.GetText("m2");
if RUDANAME =="" then
Dialog.Message("notice", "****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME);
end
if NAME =="" then
result = Dialog.Message("notice", "****", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
X1 = INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW1");
n = String.Replace(X1, "belkiss", "\r\n", false);
Input.SetText("m1", n);
X2 =INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\"..RUDANAME.."\\"..NAME..".ini", NAME, "RW2");
n2 = String.Replace(X2, "belkiss", "\r\n", false);
Input.SetText("m2", n2);
end

موفق:abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
:abc_152:أستاذي الفاضل / ابو بلقيس:abc_152:
الف شكر لك على هذا الكود الرائع
تم التطبيق بنجاح
--------------
http://im51.gulfup.com/zjUJEH.gif





شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
:abc_138::abc_138::abc_138:

[ثامر أبو بلقيس]

بارك الله فيك شكرا على هذه اللمسة الجميلة :abc_138:
ماشاء الله تصميمك و تصميماتك رائعة