UC知道vb文件的长度
来源：百度知道 编辑：UC知道 时间：2024/05/10 05:24:23
程序：
Private Type numval
a As String * 4
b As String * 1
c As String * 3
d As String * 11
End Type
Dim nv As numval
Private Sub Command1_Click()
Open "111.dat" For Random As #1
Dim t As Integer
t = LOF(1) / Len(nv) + 1
nv.a = Text1.Text
nv.b = Text2.Text
nv.c = Text3.Text
nv.d = Text4.Text
Put #1, t, nv
Close #1
我设定每条记录长度是19，为什么填入一条记录后用lof函数检测文件长度是19，填入两条记录后用lof函数检测文件长度是138？
鄙视一楼，不会就别瞎说。
二楼的答案跟我想得差不多，请问怎样操作，可以消除这些无用数据。
Private Type numval
a As String * 4
b As String * 1
c As String * 3
d As String * 11
End Type
Dim nv As numval
Private Sub Command1_Click()
Open "111.dat" For Random As #1
Dim t As Integer
t = LOF(1) / Len(nv) + 1
nv.a = Text1.Text
nv.b = Text2.Text
nv.c = Text3.Text
nv.d = Text4.Text
Put #1, t, nv
Close #1
我设定每条记录长度是19，为什么填入一条记录后用lof函数检测文件长度是19，填入两条记录后用lof函数检测文件长度是138？
鄙视一楼，不会就别瞎说。
二楼的答案跟我想得差不多，请问怎样操作，可以消除这些无用数据。
你的数据记录间隔之间被用0填充了,使最后一个记录之前的每个记录占据了128个字节空间,估计是格式数据文件的保留空间
=============================================
Open "111.dat" For Random As #1 Len=len(nv)
将19改成29