Private Sub Command1_Click() Dim Num As Integer Dim k As Integer Dim LenFi As Single Dim F_point As Single CommonDialog1.DialogTitle = "OPen" CommonDialog1.Filter = "DAT|*.dat" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 LenFi = LOF(1)
但不知道有没有使用过QQwry.dat文件的,不知道怎么读出它内部的数据
Dim Num As Integer
Dim k As Integer
Dim LenFi As Single
Dim F_point As Single
CommonDialog1.DialogTitle = "OPen"
CommonDialog1.Filter = "DAT|*.dat"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Binary As #1
LenFi = LOF(1)
For F_point = Star To LenFi
Get #1, , stu()
Next F_point