خواندن از فایل متنی و ریختن آن ها روی TextBox

[mbza11]

سلام.
1- متن رو از فايلت مي خوني و داخل يه رشته مي نويسي.
2- يه متغير ارايه اي از نوع رشته اي تعريف مي کني.
dim X() as string
3- با استفاده از دستور Split رشته رو با کاراکتر مورد نظر (کاراکتر جداکننده) جدا کرده و داخل متغير مي ريزي.
X()=Split(Str, ",") 'smb
Str: رشته اي که متن رو داخلش ريختي.
,: کاراکتر جداکننده که مي تونه هرچيزي مثل ; : و... باشه.
4- با استفاده از دستور UBound(X) مي توني حد بالاي آرايه رو بدست بياري.

کلا يه همچين چيزي در مياد. (منوي اديتور براي من نشون داده نشد)
Str="Setting1, Setting2, Setting3" 'smb
Dim X() as string
X()=Split(Str, ",") 'smb

نتيجه:
X(0)="Setting1" 'smb
X(1)="Setting2" 'smb
X(2)="Setting3" 'smb

حالا مي توني هرکدوم رو هرجا خواستي قرار بدي يا از شون براي کار خاصي استفاده کني.

موفق باشي.