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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود الحفظ bidaya 5 105 22-04-18, 06:47 PM
آخر رد: bidaya
  [vb6.0] ممكن المساعدة في اضافة الايام بين تاريخين في الفيلكس قريد mustafa mohamed 0 36 12-04-18, 04:30 PM
آخر رد: mustafa mohamed
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 87 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  هل من مساعدة في تعديل كود الحفظ مصمم هاوي 7 134 06-03-18, 02:20 PM
آخر رد: sendbad100
  مساعدة في تشغيل ملف صوتي VB.NET 7 83 01-03-18, 08:59 AM
آخر رد: Ahmed_Mansoor
  مساعدة في فورمات المبالع للفلكسي قريد khezzani 2 28 06-02-18, 08:05 AM
آخر رد: sendbad100
  [سؤال] طلب مساعدة بسيطة اي سفن 6 51 29-01-18, 12:41 PM
آخر رد: اي سفن
Heart [سؤال] مساعدة : أريد كود excel 2003 من إخواني مشكورين ؟؟؟؟؟؟ abdouhai 3 35 29-01-18, 03:33 AM
آخر رد: عبدالله الدوسري
  مساعدة ضروري saharramadan 1 61 16-01-18, 10:21 PM
آخر رد: Amir_alzubidy
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 168 12-01-18, 08:06 PM
آخر رد: khezzani

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


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