سلام
فرض کنید که در فایل a.txt محتویات زیر وجد دارد :
کد php:
Setting1, Setting2, Setting3
چطوری میشه کاری کرد که وقتی این فایل را به برنامه می دی طوری بخونش که Setting1 و Setting2 و Settning3 را هر کدام در یک تکست باکس قرار بده ؟
یه چیز تو مایه های برنامه هایی که تنظیماتشون توی یک فایل ini هست و از روی تنظیمات را می خوانند !
از کمک همتون ممنونم و امیدوارم که نماز روزتون مقبول در درگاه الهی باشه
شما باید محتویات رو به صورت 1 رشته در نظر بگیرین و از کاراکتر اول شروع به جستجو کنین و هر جا به , برخوردین متن قبلشو کپی کنین تو تکس باکس
سلام
مي توني تنظيمات 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
ممنون جناب DiDi
من منظورم همون روشی است که lord_viper عزیز گفته .
کد نویسی اون روش چطوریاست ؟
سلام.
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
حالا مي توني هرکدوم رو هرجا خواستي قرار بدي يا از شون براي کار خاصي استفاده کني.
موفق باشي.