تقييم الموضوع :
  • 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
شكررراااا جزيلا عاشت الايادي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 160 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
  ممكن مساعدة في ايجاد حل لهذه المشكلة الغريبة مبرمج جديد 2 109 01-08-17, 04:18 AM
آخر رد: مبرمج جديد
  مساعدة VB6 مشكل تنصيب ومكافح الفيروسات bidai 3 104 29-07-17, 06:23 PM
آخر رد: bidai
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 82 27-07-17, 12:17 PM
آخر رد: shadi_alfares
  [vb6.0] ممكن شرح طريقة ربط مشروع بقاعدة بيانات واحدة بجدولين فيصل علي 2 124 01-07-17, 03:31 PM
آخر رد: فيصل علي
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 183 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy
  مساعدة في تفعيل اداة VSFlexGrid ياسر عبد الكريم 4 454 28-04-17, 03:14 AM
آخر رد: أبوسعود
  مساعدة فى إخفاء الملفات عبد الرحمن على 2 225 21-04-17, 04:30 PM
آخر رد: عبد الرحمن على
  [vb6.0] مساعدة في تعديل هاذا المثال Abdellah 5 331 20-04-17, 05:38 PM
آخر رد: Abdellah
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 207 11-04-17, 06:08 PM
آخر رد: sendbad100

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


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