شرح دستور لیست

[arastooms 1,046]

سلام عزیزان 
ممکنه دوستی برای من و عزیزانی که با دستور لیست آشنایی دارند یک مثال ساده از این دستور برای من و دوستانی که آشنایی ندارند  بنویسه
من قصد دارم با این دستور 15 مقدار استرینگ رو بگیرم و در لیست ذخیره کنم و استفاده کنم اما نمی دونم چه طور وارد لیست کنم 
و چه طور از لیست بخونم 
مرسی و تشکر

[محمد رشوند 1,208]

@,

با دو خط کد یه مثال ساده میزنم

Dim l1 As List
l1.AddAll(Array As String("v1","v2","v3","v4","v5"))

Msgbox(l1.Get(0),"title")

امیدوارم کد رو درست نوشته باشم و متوجه شده باشین

[محمد رشوند 1,208]

این کد هم میتونیم لیست رو که به صورت ارایه بهش مقدار دادیم داخل یه فایل ذخیره کنیم

 

جدا از اون میتونیم با حلقه از 0 تا اندازه لیست مسیج باکس نمایش بدیم وتمام محتوایت لیست رو به نمایش در بیاریم

Dim l1 As List

l1.AddAll(Array As String("v1","v2","v3","v4","v5"))

File.WriteList(File.DirInternal,"mfile.txt",l1)

For i = 0 To l1.Size-1
Msgbox(l1.Get(i),"title"&"#"&i)
Next