m javad
کاربر متخصص
دوست عزیز فکر کنم که کمی منظورم رو بد گفتم...
من یک فایل txtحاوی یک سری صفر و یک از سرور دربافت میکنم...
می خوام بدونم که چه جوری میشه این صفر و یک ها رو واسه خورم تجزیه تحلیل بکنم.
..
بطور مثال وقتی فایلی که گرفتم دارای اعداد زیر بود:
110
این اعداد رو چه جوری تحلیل کنم..مثلا از چپ به راست
-اگر 1 بود پسوورد رو وارد کن و اگر 0 بود یک پیامی رو نمایش بده....
-اگر 1بود برو صفحه بعد و اگر0بود یک عکس رو نمایش بده..
اگر 1 بود از برنامه خارج شو و اگر 0 بود برو صفحه بعد...
.....
خدا کنه کنه منظورم رو تونسته باشم برسونم...ممنون...
این کدش:
کد:
**فرض کنيد فايل رو توي آدرس زير ذخيره کرديد
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