الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دروس متفرقة : Data Dictionary

مغلق
بدأه محمد خليل أبو صلاح في 2 يونيو 2002 · 2 رد · 888 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الكائن /dictionary هو جزء من Microsoft Scripting Runtime

و التي تعتبر فيزيائيا مثل مصفوفة ثنائية الأبعاد البعد الثاني

عبارة عن مفتاح لما هو مخزن في البعد الأول .. و طبعا لانشاء هذا

الكائن اتبع التالي :

[l]

set myDict=Server.CreateObject("Scripting.Dictionary")

[/l]

و بالتالي تنتج مصفوفة ثنائية تحوي مصفوفتين بداخلها

الأولى من نوع keys أي المفاتيح و الثانية items لتخزين

البيانات أو المتغيرات .. و طبعا سمي بال dictionary أي القاموس

لسهولة الحصول على البيانات فيه عن طريق المفتاح ..

تستطيع أن تضيف قيمة للكائن dectionary بطريقتين الأولى و هي

عن طريق المنهج ADD كالتالي :

[l]

Dim myDict

set myDict=Server.CreateObject("Scripting.Dictionary")

myDict.Add "pentium II",1

myDict.Add("pentium II")=1

[/l]

طبعا انا ذكرت طريقتين الأولي الصريحة للإضافة و هي المعتمدة

و الشائعة أما الثانية فهي ضمنية و قد تتسبب في تكوين مشاكل

او تعديل على البيانات دون قصد خصوصا اذا كان المفتاح كان موجودا

مسبقا..

طبعا كمثال للعرض من ال Dictionary :

[l]

Dim myDict

Dim counter

set myDict=Server.CreateObject("Scripting.Dictionary")

keys=myDict.keys

items=myDict.items

myDict.Add "pentium II",1

myDict.Add "pentium III",4

For each count in myDict.count-1

response.write "There is " & keys(count) & "pices of "& items(count)

Next

[/l]

طبعا يمكن ازالة المفتاح عن طريق myDict.remove(key) أو افراغ الكل

عن طريق removeAll

You can fly while you can touch the sky

#2

ووفقك الله

#3

مثال واضح على هذا الكائن ..

كون Dictionary Object عارضا مربعي ادخال للبيانات . الأول لأسم الطالب

و الثاني لعلامته ثم ارفق معهما زرين أحدهما لإضافة الطالب و الآخر لعرض

الطلاب المخزنين .

الحل :

[l]

<script language="vbscript">

set MyDict=CreateObject("scripting.Dictionary")

sub Add_onclick

MyDict.add document.formi.dname.value,document.formi.dgrade.value

End sub

sub show_onclick

myKeys=MyDict.keys

myItems=MyDict.items

for i=0 to MyDict.count-1

document.write "Name :" & myKeys(i) & "

"

document.write "Grade :" & myItems(i) & "

"

Next

End sub

Name :

Grade :

[/l]

طبعا اظن ان فهم هذا الكود سيعين على فهم الكثير من الأفكار

الموجودة في مشروع التجارة الالكترونية و الذي وضعه الأخ عبد الرحمن

المعزاب .. و لديه ايضا نسخة انا صممتها و هي قوية و اتمنى ان يضعها

بدلا مني لانني تركتها في فلسطين و ليست معي الان ..

المهم ان لا نمر على هذا المثال مرور الكرام ..

و بالتوفيق للجميع ..

You can fly while you can touch the sky

هذا الموضوع مغلق.

مواضيع مشابهة