سوال در مورد فايل متني

harem · Mar 2, 2011

چگونه همزمان به طور تصادفي دوخط يكسان از دوفايل متني نشان داده شود. به طور مثال اگر درفايل متني شماره1 خط چهارم ظاهرشد در فايل متني شماره 2 نيز خط چهارم ظاهر شود.

مشاهده پیوست sample.zip

loo30fer · Mar 2, 2011

خوب این خیلی سادست کدش رو خودتون درست نوشتین فقط دو خط اضافه بود که باز میومد رندوم یک عدد رو انتخاب میکرد و اون خط رو از فایل دوم لود میکرد به هرحال کد شما میشه این :

کد:

filename$='<Embedded>\1.txt'
linecount=NOL(filename$)
fromline=RND(linecount)
txt$=StrFromFile(filename$,fromline,1)
DisplayValue("Text","txt$")
filename$='<Embedded>\2.txt'
txt$=StrFromFile(filename$,fromline,1)
DisplayValue("Text1","txt$")

harem · Mar 3, 2011

سلام دوست عزيز ببخشيد اون كدي كه شما براي من ويرايشش كرديد در بعضي مواقع اصلا هيچ متني رو از هيچ يك از فايلهاي متني نشون نميده اگه ميشه لطف كنيد و بگيد اشكال كار از كجاست؟
نمونه‌ي پايين رو با كد شما ساختم كه اگر امتحانش كنيد خواهيد ديد در بعصي دفعات Paragraph Text ها خالي ديده ميشوند.

مشاهده پیوست problem.zip

loo30fer · Mar 3, 2011

شرمنده دارم رو پلاگین هگز کار میکنم برای ویرایش و گرفتن و اضافه کردن هگز به فایل تا تو این انجمن قراربدم و و شما و دوستان استفاده کنید چون به نظر خودم خیلی میتونه کارا باشه برای مثال خواندن متن فارسی از فایلها برای همین یکم حواس پرت شدم به هر حال ببخشید دوتا چیز رو از کدتون کم کردم که نباید کم میکردم چون رندوم وقتی عدد 0 رو انتخاب میکرد دیگه لاین 0 وجود نداره پس میشه مثل این :

کد:

filename$='<Embedded>\1.txt'
linecount=NOL(filename$)-1
fromline=RND(linecount)+1
txt$=StrFromFile(filename$,fromline,1)
DisplayValue("Text","txt$")
filename$='<Embedded>\2.txt'
txt$=StrFromFile(filename$,fromline,1)
DisplayValue("Text1","txt$")