UC知道vb语句解释???
来源：百度知道 编辑：UC知道 时间：2024/06/06 12:33:42
Open App.Path & "\st.txt" For Random As #FileNo Len = Len(st1)
是什么意思??
Private Type st
xm As String * 8
xb As String * 2
zz As String * 40
dw As String * 40
dh1 As String * 11
dh2 As String * 11
dh3 As String * 11
yb As String * 6
End Type
Dim st1 As st
Dim number As Integer
Dim nfile As Integer
Dim FileNo As Integer
Private Sub Form_Load()
FileNo = FreeFile
Open App.Path & "\st.txt" For Random As #FileNo Len = Len(st1)
是什么意思??
Private Type st
xm As String * 8
xb As String * 2
zz As String * 40
dw As String * 40
dh1 As String * 11
dh2 As String * 11
dh3 As String * 11
yb As String * 6
End Type
Dim st1 As st
Dim number As Integer
Dim nfile As Integer
Dim FileNo As Integer
Private Sub Form_Load()
FileNo = FreeFile
Open App.Path & "\st.txt" For Random As #FileNo Len = Len(st1)
以 random (随机文件) 方式打开程序目录下的st.txt文件
每次put/get出＜＝Len(st1)的内容
就是写入或读出每次都是Len(st1),不足Len(st1)的按实际大小处理
正常情况下(不加 Len = Len(st1))写入或读出每次是1byte
以 random (随机文件) 方式打开文件 st.txt
你要问明白就把所有代码都发上来。