Fa فراخوان random فايل تكست

[noorabas]

سلام
مثل اينكه اگه ما نباشيم سئوال كنيم اين درياي علم شما مرداب مي شه .
خب و اما (سوال):
چطور ميشه يه برنامه با mmb ساخت كه از n فايل تكست با n سطر ، كه داراي آدرس متفاوت مي باشند ، سطري را به تصادف از يكي از فايل ها به عنوان پيغام و فقط يك بار در ابتداي اجراي برنامه نمايش بدهد و در اجراهاي بعدي سطري ديگر را.
جهت سهولت كار پوشه ها را با يك نام و فقط تغيير شماره مثل m1 , m2 , m3 , ...و فايل تكست هم نام باشد مثلاً a.txt
يا علي

جايزه اين مسابقه :
بليط يك طرفه به قلب ما+دعا براي سلامتي شما+...
​

 

[evil_gates]

دوست عزيز

اول اينكه بايد مشخص كنيد كه چندتا پوشه داريد. مثلا با فرض اينكه شما 10 تا پوشه داريد كه به همون روشي كه گفتيد نامگذاري شدن يعني m1 و m2 و m3 و ... و داخل هر پوشه تعدادي فايل وجود داره و اين فايلها هم با ترتيب خاصي شماره گذاري شدن مثلا a1.txt و a2.txt و a3.txt و ... در اينصورت من اين كد رو پيشنهاد ميكنم:

x=RND(10)
If (x=0) Then
  x=1
End
path$='<SrcDir>\m'+CHAR(x)+'\\'
x=RND(n)
[COLOR="DarkGreen"]*** n is number of your text files in folder[/COLOR]
If (x=0) Then
x=1
End
path$=path$+'a'+CHAR(x)+'.txt'
nol=NOL(path$)
x=RND(nol)
If (x=0) Then
x=1
End
str$=StrFromFile(path$,x,1)

مقدار $str عبارت متني شماست كه به طور تصادفي تو 10 تا پوشه و n فايل متني و n خط جستجو شده و بدست اومده.

... فقط يك بار در ابتداي اجراي برنامه نمايش بدهد و در اجراهاي بعدي سطري ديگر را...

منظورتون رو از اين جمله متوجه نشدم

 

[noorabas]

عزيز جان!
ببخشيد اگه مفهوم نبود اما:
1.تعداد پوشه ها 114 تا است
2.در هر پوشه يك فايل text به نام مثلاً a.txt قرار داره.
3.
... فقط يك بار در ابتداي اجراي برنامه نمايش بدهد و در اجراهاي بعدي سطري ديگر را... منظورتون رو از اين جمله متوجه نشدم
منظور اينه كه در هر بار اجراي برنامه نمايش داده شود و در طول اجراي برنامه خير كه فكر كنم اگه بذاريم توي يك صفحه جدا گانه كه در طول برنامه آن صفحه فراخوان نشه كفايت كنه اين طور نيست؟اگه روش بهتر هست ممنون مي شم روشنم كنيد ؟!

 

[evil_gates]

عزيز جان!
ببخشيد اگه مفهوم نبود اما:
1.تعداد پوشه ها 114 تا است
2.در هر پوشه يك فايل text به نام مثلاً a.txt قرار داره.

در اينصورت من اين كد رو پيشنهاد ميكنم:

x=RND(114)
If (x=0) Then
  x=1
End
path$='<SrcDir>\m'+CHAR(x)+'\a.txt'
nol=NOL(path$)
x=RND(nol)
If (x=0) Then
  x=1
End
str$=StrFromFile(path$,x,1)

فقط يك بار در ابتداي اجراي برنامه نمايش بدهد و در اجراهاي بعدي سطري ديگر را

اين كد رو تو يك اسكريپت بنويسيد و اسكريپت رو در page start صفحه اول برنامه اجرا كنيد. با اجرا شدن برنامه شما اين كد هم اجرا خواهد شد.

 

[noorabas]

اما evil_gates
پيغام نمي ده . دستور پيغام رو كجاي اين دستور بايد بذاريم؟
ممنون

 

[evil_gates]

به آخرين خط اين كد رو اضافه كنيد:

MessageEx("your program name","str$")

 

[noorabas]

تا سوال ديگر يا ....
ممنون و سپاسگذارم.

 

[evil_gates]

قانون شماره 29 ) جهت تشكر از مطالب ارائه شده در يك تاپيك و يا تاييد حرفهاي نويسنده آن تاپيك به جاي ارسال يك تاپيك جديد و پاسخ به آن تاپيك (كه فقط هدفتان تشكر و يا تاييد مطالب آن تاپيك است) از كليد تشكر كه در زير هر تاپيك وجود دارد استفاده كنيد.

 

[noorabas]

سلام عزيزان
يه مثال پيوستي گذاشتم كه لطف كنيد اگه تونستيد كاملش كنيد چون هر چه سعي كردم فايل صوتي رو پخش نكرد.

 

[evil_gates]

اصلاح شد

 

[noorabas]

سلام عزيزم!
يه مشكل
اگه چند بار پشت سر هم اجرا كني مي بيني براي سوره آخري متن با صدا هماهنگي ندارن؟
امتحان كن اگه درست بود بگو اشكال از كجاست لطفاً.

 

[evil_gates]

مشكلتون در نامگذاري فايل هاي صوتي هست. برنامه صحيح عمل ميكنه ولي فايلهاي صوتي اشتباه نامگذاري شدن.