تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن مساعدة تتعلق بالمصفوفات
#1
السلام عليكم

ممكن مساعده في الفيجول واكون ممنونه منكم..

اذا عندي مصفوفه مثلا تتكون من [e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8]

كيف استطيع ان الغي العناصر المتكرره فيها وارتبها بالتسلل اي تصبح

[e1,e2,e3,e4,e5,e6,e8]

؟؟؟؟؟؟؟

والسؤال الثاني اذا لم اعرف طول مصفوفه واريد افتح for بحجم المصفوفه فكيف هو الكود لذلك
؟؟؟؟؟؟

ارجووو المساعده وشكرررا
الرد }}}}
تم الشكر بواسطة:
#2
ج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.listcount
الرد }}}}
تم الشكر بواسطة: Easy4ever
#3
شكرا asto بس انا عندي كود كبير وبداخله وصلت الى مصفوفه مثلا [upper(12)=[e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8 واريد احذف العناصر المتكرره فيها اي تصبح
[e1,e2,e3,e4,e5,e6,e8] .........فكيف اضعها في لست Huh ممكن طريقه اخرى واكدر اضيفه بنفس الكود الي عندي ؟؟؟؟؟؟؟؟؟؟؟؟؟
الرد }}}}
تم الشكر بواسطة:
#4
بسيطة
كود :
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(
حتى آخر عنصر
الرد }}}}
تم الشكر بواسطة: Easy4ever
#5
شكررراااا جزيلا عاشت الايادي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 0 12 منذ 6 ساعة مضت
آخر رد: Microformt
  [سؤال] مساعدة لوتكرمتم في صنع برنامج تخفيضات Visual Basic 8 92 17-11-17, 12:00 AM
آخر رد: Visual Basic
  مساعدة في البحث والجمع sulimanalahdl 4 95 10-11-17, 02:17 AM
آخر رد: sulimanalahdl
  [vb6.0] هل ممكن تعديل البيانات فى الفليكس جريد؟ ahmed_egypt 2 78 21-10-17, 03:35 AM
آخر رد: sendbad100
  مساعدة في حل رسالة خطأ تظهر لي Error 5000 loayrefai 3 99 15-10-17, 01:50 AM
آخر رد: Amir_alzubidy
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 212 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
  ممكن مساعدة في ايجاد حل لهذه المشكلة الغريبة مبرمج جديد 2 137 01-08-17, 04:18 AM
آخر رد: مبرمج جديد
  مساعدة VB6 مشكل تنصيب ومكافح الفيروسات bidai 3 146 29-07-17, 06:23 PM
آخر رد: bidai
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 129 27-07-17, 12:17 PM
آخر رد: shadi_alfares
  [vb6.0] ممكن شرح طريقة ربط مشروع بقاعدة بيانات واحدة بجدولين فيصل علي 2 161 01-07-17, 03:31 PM
آخر رد: فيصل علي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم