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

[davoodx]

سلام
فرض کنید که در فایل a.txt محتویات زیر وجد دارد :

کد php:

Setting1, Setting2, Setting3 


چطوری میشه کاری کرد که وقتی این فایل را به برنامه می دی طوری بخونش که Setting1 و Setting2 و Settning3 را هر کدام در یک تکست باکس قرار بده ؟
یه چیز تو مایه های برنامه هایی که تنظیماتشون توی یک فایل ini هست و از روی تنظیمات را می خوانند !

از کمک همتون ممنونم و امیدوارم که نماز روزتون مقبول در درگاه الهی باشه

[lord_viper]

شما باید محتویات رو به صورت 1 رشته در نظر بگیرین و از کاراکتر اول شروع به جستجو کنین و هر جا به , برخوردین متن قبلشو کپی کنین تو تکس باکس

[Di Di]

سلام
مي توني تنظيمات 1و2و3و .... رو به طور جداگانه در هر خط از فايل بنويسي و بعد فايل رو با دستور Open داخل برنامه باز كني.
حالا با دستور Input اين تنظيمات رو خط به خط بخون و داخل تكست باكس قرار بده.

کد:

Open FilePath For Input As #1
        Dim Setting(100) as string
        While EOF(1) <> True
        Input #1, txt
        Setting(s) = txt
       s=s+1    
          
        Wend
        Close #1

[davoodx]

ممنون جناب DiDi
من منظورم همون روشی است که lord_viper عزیز گفته .
کد نویسی اون روش چطوریاست ؟

[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

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

موفق باشي.