تمرين : استدعاء بيانات

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

السلام عليكم ورحمة الله وبركاته
باختصار شديد
سنقوم بحفظ هذه القيمة
Application.SaveValue("abou_belkiss2015", "10", "20");

على أن abou_belkiss2015 هي section

و القيمة 10 هي key

و القيمة 20هي value

طبعا في هذا المثال ... لو كتبت مثلا ثلاث قيم للحفظ :
Application.SaveValue("abou_belkiss2015", "10", "20");
Application.SaveValue("abou_belkiss2014", "11", "21");
Application.SaveValue("abou_belkiss2013", "12", "22");

السؤال في المثال السابق كم عندنا قسم طبعا ثلاثة
abou_belkiss2015
abou_belkiss2014
abou_belkiss2013

ما هو الكود الذي يستخلص هاته الأسماء " الاقسام" الثلاث في مشروع
لا يشمل إلا زر فقط .

موفق :abc_138:

[فرح صالحي]

Application.SaveValue("abou_belkiss2015", "10", "20");("11", "21");("12", "22");

[الحارث بن فيصل]

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

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

أخي فرح صالحي
الكود الذي أرسلت ياحبذا لو ترسله في ملف مفتوح
شكرا :abc_010:

http://www.abc4web.net/vb/kingnet/abc4web/statusicon/user_online.gif

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

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

شكرا أخي مرور عطر :abc_138:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
اعتذر
الكود غير صحيح ولا يعمل
أتأكد يوما بعد يوم انني لم اخلق للبرمجة .
موفق بإذن الله ..:abc_023:. لك مني أجمل تحية .

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

موفق بإذن الله ... لك مني أجمل تحية . :abc_023:

[الجارف]

جرب هذا الكود أستاذ ثامر
وسيتم حفظ القيم key و value


Application.SaveValue("abou_belkiss2015", "", "");

a =""
b = "Registry.GetKeyNames (HKEY_CURRENT_USER, *Software\\Indigo Rose\\ACData"..a.."*)";
bel=""
if b then
d = Registry.GetKeyNames(HKEY_CURRENT_USER, "Software\\Indigo Rose\\ACData"..a)
if d ~= nil then
total = Table.Count(d);
t = 0;
r = total;
belkiss = 0;
for dd = t, r do
belkiss = belkiss + 1;
natiga = Table.Concat(d, "", belkiss, belkiss);
bel=bel..natiga.."\r\n"
end
end
end
Dialog.Message("Notice",bel);

[عبود عبود]

الحفظ يكون فى النظام " الرجيسترى "

:abc_023:

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

جرب هذا الكود أستاذ ثامر
وسيتم حفظ القيم key و value


Application.SaveValue("abou_belkiss2015", "", "");

a =""
b = "Registry.GetKeyNames (HKEY_CURRENT_USER, *Software\\Indigo Rose\\ACData"..a.."*)";
bel=""
if b then
d = Registry.GetKeyNames(HKEY_CURRENT_USER, "Software\\Indigo Rose\\ACData"..a)
if d ~= nil then
total = Table.Count(d);
t = 0;
r = total;
belkiss = 0;
for dd = t, r do
belkiss = belkiss + 1;
natiga = Table.Concat(d, "", belkiss, belkiss);
bel=bel..natiga.."\r\n"
end
end
end
Dialog.Message("Notice",bel);



سلمت أناملك أستاذ فقط وجبت الاشارة إلى جعل البرنامج مسؤولا
في غير الــ xp:abc_138:
:abc_152:بارك الله فيك :abc_152:
----------------
:shokr:

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

الحفظ يكون فى النظام " الرجيسترى "

:abc_023:

الأكواد السابقة في مشاركة الأخ الجارف أثبتت ذلك أستاذي الكريم :abc_138:

:abc_9:

[الجارف]

الحفظ يكون فى النظام " الرجيسترى "

:abc_023:

http://im77.gulfup.com/2QuzEa.png

[الجارف]

سلمت أناملك أستاذ فقط وجبت الاشارة إلى جعل البرنامج مسؤولا
في غير الــ xp:abc_138:
:abc_152:بارك الله فيك :abc_152:
----------------
:shokr:

أصبح من الضروري عند استخدام أي اصدار أعلى من الـ XP

أن يكون المستخدم Administrator

بالتوفيق أستاذ ثامر :abc_138:

[الجارف]

بما أن السؤال عبارة عن تمرين ..

هل يمكننا استدعاء أسماء معينة دون غيرها ؟
ما الشرط الذي يمكن أن نضعه قبل التخزين حتى يتم لنا ذلك ؟؟؟


أرك لك التفكير في ذلك :abc_088:

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

نعم أخي الجارف عند تطبيق الكود سيتم استدعاء كل الاسماء
المخزنة في هذا المجلد ACData سواء كان التخزين تم من برنامجنا
أو هي قيمة سابقة عرفنا نصف الطريق ووجب التفكير في كيفية
استخلاص ما تم تخزينه دون غيره .... هناك لمسة برمجية غائبة أين ؟ متى ؟ كيف سيتم التغلب
على المشكلة ؟ لا أدري
هل نخزن أسماء المجلدات قبل العملية ثم تتم المقارنة و ترك الأسماء الأولى؟
هل نشترط أن يكون التخزين أرقاما و من ثمة يسهل عند الاستدعاء اشتراط الاسماء الرقمية ؟
كثيرة هي التساؤلات لكن يعلم الله أني لا أملك حلا و ما أشرت له فعلا معضلة بالنسبة لي
إن شاء الله ... يوفق أحدنا يوما في ذلك

تقديري :abc_138:

[ياسرهتهت]

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