bad record length چیست؟

[Samsam2010]

با سلام
دوستان من با فایل تصادفی کار می کنم و وقتی چند تا تکس باکس رو می خوام توی یک فایل متنی ذخیره کنم خطای run time می گیره با شمار ه 59 ,Bad record length به نظر شما مشکل از کجاست اینم از کد :




Private Type update

UpdateVersion As String
UpdateFileName As String
FileSize As String
UpdateInfo As String
link As String

End Type


Private Sub putupdate(txtupver As TextBox, txtfilename As TextBox, txtsize As TextBox, txtupdinfo As TextBox, txtlink As TextBox)

Dim filename, upver, Size, updinfo, lnk As String
Dim I As update


filename = txtfilename.Text
upver = txtupver.Text
Size = txtsize.Text
updinfo = txtupdinfo
lnk = txtlink.Text

Open "C:\UpdateHRF.txt" For Random As #1

I.FileSize = Size
I.UpdateFileName = filename
I.UpdateInfo = updinfo
I.UpdateVersion = upver
I.link = lnk


Put #1, 1, I

Close

End Sub

[M.T.P]

روش اصولی ثبت رکورد در دسترسی Random اینه که هر عضو از Type رو با طول مشخص تعریف کنید.


Private Type update
UpdateVersion As String * 50
UpdateFileName As String * 50
FileSize As String * 50
UpdateInfo As String * 50
link As String * 50
End Type

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

[Samsam2010]

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

Private Type update
UpdateVersion As String * 500
UpdateFileName As String * 500
FileSize As String * 500
UpdateInfo As String * 500
link As String * 500
End Type

اما بازم نشد

[M.T.P]

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

Private Type update
UpdateVersion As String * 500
UpdateFileName As String * 500
FileSize As String * 500
UpdateInfo As String * 500
link As String * 500
End Type

اما بازم نشد

خب دراین صورت یعنی با طول ثابت اونوقت باید فایل رو اینطوری باز کنی:


Open "C:\UpdateHRF.txt" For Random As 1 Len = Len(I)

[Samsam2010]

ممنون دوست عزیز اما باز مشکلم حل نشد اینم از عکسش

55193

[M.T.P]

همون چیزی که در بالا بهش اشاره شد.