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

[Di Di]

سلام
خوب هستید. سال نو شما هم مبارک باشه.

خوشبحالت چقدر هوادار داری اینجا! حسودیم شد!! (;

کد:

Dim A(10) As String
Open "C:\Test.Txt" For Input As #1
While EOF(1) = False
Input #1, A(I)
I = I + 1
Wend
Close 1#
MsgBox CStr(A(Int(Rnd * 10)))

اینم از طرف من

[alaska]

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

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

سلام
خوب هستید. سال نو شما هم مبارک باشه.

خوشبحالت چقدر هوادار داری اینجا! حسودیم شد!!

کد:

Dim A(10) As String
Open "C:\Test.Txt" For Input As #1
While EOF(1) = False
Input #1, A(I)
I = I + 1
Wend
Close 1#
MsgBox CStr(A(Int(Rnd * 10)))

اینم از طرف من

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

[1120]

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

[alaska]

سلام
دست مریزاد. خدایی همونی شد که می خواستم. دیدم تشکر کمه پست زدم تا تشکر کنم.
دی دی جان از شما هم ممنون