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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ممكن مساعدة يا اخوان كيف بدي اربط الفورم في الاكسل ضروري بارك الله فيكم محمد جبريل 3 99 29-08-18, 08:56 PM
آخر رد: مصمم هاوي
  [مشروع] مساعدة في البرمجة بالاكواد sulimanalahdl 22 576 15-08-18, 08:16 PM
آخر رد: elgokr
Big Grin [vb6.0] مساعدة في خصوص اداة Winstock anoname 2 109 30-07-18, 09:26 PM
آخر رد: anoname
  [سؤال] كيف ممكن احمي source code من السرقه؟ mera 7 202 15-07-18, 12:01 PM
آخر رد: mera
  ممكن كود استعلام (Select Count(*) princeofislam 6 309 22-06-18, 01:05 AM
آخر رد: Amir_Alzubidy
  هل ممكن عمل إتصال بقاعدة بيانات اكسيس محمية بكلمة مرور مع الاداة Data الاساسية عبدالله الصافي 3 211 24-05-18, 03:19 PM
آخر رد: larbihamri
  مساعدة في كود الحفظ bidaya 5 243 22-04-18, 06:47 PM
آخر رد: bidaya
  [vb6.0] ممكن المساعدة في اضافة الايام بين تاريخين في الفيلكس قريد mustafa mohamed 0 113 12-04-18, 04:30 PM
آخر رد: mustafa mohamed
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 207 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  هل من مساعدة في تعديل كود الحفظ مصمم هاوي 7 260 06-03-18, 02:20 PM
آخر رد: sendbad100

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


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