Samsam2010
چهارشنبه 10 شهریور 1389, 18:46 عصر
با سلام
دوستان من با فایل تصادفی کار می کنم و وقتی چند تا تکس باکس رو می خوام توی یک فایل متنی ذخیره کنم خطای 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
دوستان من با فایل تصادفی کار می کنم و وقتی چند تا تکس باکس رو می خوام توی یک فایل متنی ذخیره کنم خطای 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