ذخیره اطلاعات با سرعت بالا

[esmaeil21]

سلام
من در یک متغیر از نوع string یک سری اطلاعات با حجم بالا مثلن 10mb دارم ، حالا میخوام این اطلاعات رو در هارد در یک فایل خاص ذخیره کنم برای این کار از دستور Put #1, 1, x استفاده میکنم . مسئله اینجاست که سرعت این دستور خیلی پایینه و در اکثر مواقع باعث هنگ کردن سیستم هم میشود(اگر حجم بالا باشد)
دوستان راه حلی به ذهنشان نمیرسه؟

[esmaeil21]

سوالش خیلی سخت بود ؟؟؟ :افسرده:

[m.4.r.m]

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

Private Function ReadFile1(sFile As String) As Byte()
Dim nFile As Integer

nFile = FreeFile
Open sFile For Input Access Read As #nFile
If LOF(nFile) > 0 Then
ReadFile1 = InputB(LOF(nFile), nFile)
End If
Close #nFile
End Function

Private Function ReadFile2(sFile As String) As Byte()
Dim nFile As Integer

nFile = FreeFile
Open sFile For Binary Access Read As #nFile
If LOF(nFile) > 0 Then
ReDim ReadFile2(0 To LOF(nFile) - 1)
Get nFile, , ReadFile2
End If
Close #nFile
End Function

[haaz14]

چطور ممکن است ؟