+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] ممكن مساعدة تتعلق بالمصفوفات (/showthread.php?tid=2162)
ممكن مساعدة تتعلق بالمصفوفات - الوفا - 07-03-14
السلام عليكم
ممكن مساعده في الفيجول واكون ممنونه منكم..
اذا عندي مصفوفه مثلا تتكون من [e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8]
كيف استطيع ان الغي العناصر المتكرره فيها وارتبها بالتسلل اي تصبح
[e1,e2,e3,e4,e5,e6,e8]
؟؟؟؟؟؟؟
والسؤال الثاني اذا لم اعرف طول مصفوفه واريد افتح for بحجم المصفوفه فكيف هو الكود لذلك
؟؟؟؟؟؟
ارجووو المساعده وشكرررا
RE: ممكن مساعدة تتعلق بالمصفوفات - asto - 08-03-14
ج1:
تضيفها الى لست
و بعدين
كود :
xx=list1.listcount-1
for i=0 to xx
text1.text=list1.list(0)
for for ii=0 to xx
if text1.text = list1.list(ii) then
list1.removeitem(ii)
endif
next ii
x=list1.listcount-1
list1.additem(x)
list1.list(x)=text1.text
next i
للترتيب من خصائص اللست توجد خاصية stored اجعلها true
ج2: تضع المصفوفة في لست ثم
text2.text =list1.listcountRE: ممكن مساعدة تتعلق بالمصفوفات - الوفا - 08-03-14
شكرا asto بس انا عندي كود كبير وبداخله وصلت الى مصفوفه مثلا [upper(12)=[e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8 واريد احذف العناصر المتكرره فيها اي تصبح
[e1,e2,e3,e4,e5,e6,e8] .........فكيف اضعها في لست
ممكن طريقه اخرى واكدر اضيفه بنفس الكود الي عندي ؟؟؟؟؟؟؟؟؟؟؟؟؟
RE: ممكن مساعدة تتعلق بالمصفوفات - asto - 08-03-14
بسيطة
كود :
for i=0 to 11
list1.additem(i)
list1.list(i)=upper(i)
next i
لكن بعد تعريف المصفوفة على شكل
redim upper(12(
و ادخال العناصر اليها
بالشكل
upper(0)="e1"
او ادخالها في تكست واحد و بينها فواصل و استعمال الامر Split ثم
upper(0)=Split(text3.text,",")(0(
حتى آخر عنصرRE: ممكن مساعدة تتعلق بالمصفوفات - الوفا - 10-03-14
شكررراااا جزيلا عاشت الايادي