خواندن محتویات فایل متنی

[alaska]

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

[Ghoghnus]

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

دوست عزیز برای کار با فایلها اینجا راببین!

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

[alaska]

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

سلام . ممنون ققنوس جان . (آدم یاد لرد میوفته )
فایل تکست رو میتونم بخونم ولی نمیتونم رندمی یک سری از عددهاش رو بکشم بیرون. این قسمتی که گفتی رو میتونی واضحتر توضیح بدی؟؟

[Ghoghnus]

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

سلام . ممنون ققنوس جان . (آدم یاد لرد میوفته )
فایل تکست رو میتونم بخونم ولی نمیتونم رندمی یک سری از عددهاش رو بکشم بیرون. این قسمتی که گفتی رو میتونی واضحتر توضیح بدی؟؟

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

[alaska]

سلام
ممنون ققنوس جان . ببینم چیکار میتونم بکنم.
نمونه کد نداری؟

[Ghoghnus]

سلام
ممنون ققنوس جان . ببینم چیکار میتونم بکنم.
نمونه کد نداری؟

کد:

Dim str(10) As String
Dim r As Integer
r = Rnd * 10
str (r)

این کد یک عدد تصادفی بین صفر تا10ایجاد میکنه!یک ارایه دهتایی از یک رشته ایجاد میکنه
سپس به خانه تصادفی از این ارایه دسترسی پیدا میکنه

[alaska]

سلام
بازم ممنون از کمکتون ولی من نتونستم مشکلم رو حل کنم. میشه بیشتر کمک کنین. یه فایل متنی که توش مثلا 50 تا شماره ملی هستش و باید مثلا 20 تاش به صورت شانسی انتخاب و تو یه جای دیگه نشون داده بشن .
مرسی از کمکتون

[Di Di]

مهندس فایل متنی رو بزار اینجا ;)

[alaska]

سلام استاد دی دی عزیز. خوبین شما؟ سال نو مبارک.
فایل متنی زیاد مهم نیست. یه فایل با نوت پد که توش مثلا 50 تا کد ملی یا هر عدد دیگه ای به صورت سطر سطر باشه

[Ghoghnus]

کد:

Dim str(10) As String
Dim r As Integer
r = Rnd * 10



Dim FileGet As String * 1
Dim Counter As Long
Open "c:\test.txr" For Binary As 1
For Counter = 1 To LOF(1)
Get 1, , FileGet
str(Counter) = FileGet
Next
Close


Print str(r)

[1120]

سلام آقا معلم .
انشالا که خوب و سلامتید همگی