متن تصادفی

[alinazari]

چطور می شه چند جمله که در یه فایل text ذخیره شدند رو به صورت تصادفی نمایش داد؟
البته این متن هم به صورت اسکرول نمایش داده بشه

 

[alinazari]

کسی نیست به من کمک کنه؟

 

[nevercom]

دوست عزیز، خیلی از سوالاتی که ممکنه براتون پیش بیاد، به احتمال زیاد قبلاً در مورد اونها بحث شده، لطفاً قبل از ایجاد مبحث جستجو کنید، اینجوری هم وقت خودتون تلف نمیشه و هم تاپیک های تکراری کمتر میشه.

C7 - پیش از پاسخگویی سایر کاربران به آخرین پاسخی که خودتان ایجاد کرده اید پاسخی ندهید.
برای بالا آوردن مبحثی که خودتان ایجاد کرده اید پاسخ های بی مورد ارسال نکنید، برای دریافت کردن پاسخ از سایر کاربران باید صبور باشید. ارسال کردن مطالب بی مورد و اضافی اسپم محسوب شده و ممنوع است.
 

ضمن اینکه اگر مدتی صبر کنید دوستان پاسخ سوالتون رو خواهند داد، از ارسال پست های بی مورد خودداری کنید

[COLOR=#000090][B]OpenFile[/B][/COLOR]("Text Files|*.txt|All Files|*.*||","*.txt") 
[COLOR=#0000ff]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000ff]Then[/COLOR] 
  [COLOR=#000090][B]Message[/B][/COLOR]("Please select a file !","") 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000ff]End[/COLOR] 
NOL = [COLOR=#000090][B]NOL[/B][/COLOR](OpenFile$) 
RND = [COLOR=#000090][B]RND[/B][/COLOR](NOL+[COLOR=#ff0000]1[/COLOR])-[COLOR=#ff0000]1[/COLOR] 
Line$ = [COLOR=#000090][B]StrFromFile[/B][/COLOR](OpenFile$,RND,[COLOR=#ff0000]1[/COLOR]) 
[COLOR=#000090][B]Message[/B][/COLOR]("Line$","")

کلاً اول باید تعداد خط های فایل متنی رو بخونید، بعد با تابع RND یک عدد تصادفی از بین تعداد خطوط انتخاب کنید و با تابع StrFromFile خط موردنظر رو از فایل متنی بخونید.

 

[m javad]

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

[LEFT]file$='C:\1.txt'
nol=NOL(file$)
rmd=RND(nol)
If (rmd=0) Then
rmd=1
End
ReturnStr$=StrFromFile(file$,rmd,1)[/LEFT]

خط اول که آدرس فایل رو مشخص میکنه
خط دوم تعداد خطهای موجود توی فایل رو برمیگردونه
خط سوم یه عدد تصادفی از بین صفر تا تعداد خطوط انتخاب میکنه (مطمئن نیستم از 0 یا 1)
و یه شرط اون جا گذاشتم که اگر عدد انتخابی احتمالا صفر شد خط یک رو بگیره
اینجا رو این سیستم بیلدر نداشتم، که از راهنماش ببینم که RND از 0 میگیره یا از 1 به همین خاطر شرط رو گذاشتم
خط آخر هم داره محتویات خطی که شماره اون به طور اتفاقی انتخاب شده رو برمیگردونه
--------------------------------
وقتی پست رو ارسال کردم همزمان شد با پست آقای nevercom ، ببخشید