ورود

نسخه کامل مشاهده نسخه کامل : کد نوشتن در فایل تصادفی



ali_gamer
06-05-2009, 21:31
سلام دوستان من یه کد می خوام که یه سری اصلاعات که کاربر تعیین کرده فک کنم UDT بش می گن رو از کاربر بگیره و بعد اونو تو یه فایل تصادفی دخیر کنه
اگه امکانش هست یه توضیح هم بدید که چیکار کردید خصوصا اگه تو سورس توضیح بدید که بهتره
منظورم ایناست

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
یه همچین چیزی بعد هر چی تو اینا تعریف کردین تو فایل ذخیره کنه البته به روش تصادفی
پیشاپیش ممنون

ali_gamer
07-05-2009, 17:59
من ایم کدو نوشتم از روی یه رکورد بخونه
ولی فقط یه حرفو چاپ می کنه


Private Sub Command1_Click()
Dim intNum As Integer
Dim I As Integer
Dim st As String

intNum = FreeFile
Open "c:\txtfile.txt" For Random As #intNum
Do While Not EOF(intNum)
Get #intNum, 1, st
Print st
Loop
Close #intNum

End Sub