دریافت خط مورد نظر از فایل تکست

[Singular]

چطور میتوان خط مورد نظر را دریافت کنیم

مثلا در یک فایل تکس میخاهیم خط 12 هرچی هست را بگیریم و پیام بده متن خط 12 را

 

[mohamadarab]

سلام..

**فرض کنيد فايل رو توي آدرس زير ذخيره کرديد
file$='c:\temp\test.txt'
**بدست آوردن خط اول از فايل 
line$=StrFromFile(file$,1,1)
**بدست آوردن خط دوم از فايل 
 
**line$=StrFromFile(file$,2,1)
**بدست اوردن حرف اول از خط اول
H1$=StrCopy(line$,1,1)
If (H1$='1') Then
MessageEx("Password","Please insert the Password.")
Else
MessageEx("Password","incorect Password.")
End
**بدست اوردن حرف دوم از خط اول
H2$=StrCopy(line$,2,1)
If (H2$='1') Then
NextPage()
Else
ViewImage("<SrcDir>\","CENTER")
End
**بدست اوردن حرف سوم از خط اول
H3$=StrCopy(line$,3,1)
If (H3$='1') Then
Exit()
Else
NextPage()
End
موفق باشید

 

[Singular]

چطور میشه نوشته درون " " را بگیریم




khat aval
khat dovom
" khat sevom " salam

 

[mohamadarab]

میشه دقیقا بگید میخوایید تو نرم افزار چیکار انجام بدید؟اینجوری راحت تر میشه راهنماییی کرد.
موفق باشی

 

[Singular]

میخام نوشته درون " " رو بگیرم
همین
که بتونم اسم فایلمو به نوشته درونه " " تغییر بدم

 

[mohamadarab]

میخام نوشته درون " " رو بگیرم
همین
که بتونم اسم فایلمو به نوشته درونه " " تغییر بدم

..؟؟
میخوایین ی اسم رو از داخل ی متن بگیرید و ی فولدر به اون نام درست کنید؟

 

[Singular]

میخام در خط مثلا 13
متنی که داخل " " هست رو بگیریم
و فایلی که در کد بعدیش اجرا میشه اون فایل رو با این نام سیو بشه

فقط مشکلم اینه چطور این متن داخل " " رو بگیرم

 

[MahmoodM30]

میتونید از این کد استفاده کنید میره خط سوم رو میخونه و با اونجایی " هست رو جدا میکنه و براتون نشون میده

filename$='c:\users\mahmoodm30\desktop\new text document (2).txt'
M$=StrFromFile(filename$,3,1)
get$=GetArrayItem(M$,",2)
MessageEx("","get$")

 

[Singular]

مرسی . فقط یه مشکل که هست خیلی ازیتم میکنه..

کارم گیرشه

اینه که تموم این کارها کد ها رو فایل که ب صورت Unicode ضخیره شده جواب نمیده... کاش میشد کدی میدادید فایل تکس رو به ANSI تبدیل کنه