关于读取dat 文件的代码

Question

Sub LOADTEM()
Dim dqsj As dsjzhh
Dim dpsjqlc As dsjzhhZA
Dim sjcp() As String
Dim sjcpsj() As String
Dim xhsj As LongOpen App.Path & "\ssq.dat" For Binary Access Read As #1
xhsj = LOF(1) \ Len(dqsj)
With MSFlexGrid1
    .Rows = xhsj + 1
     .Cols = 3
     .ColAlignment(0) = 4
.ColAlignment(1) = 4
.ColAlignment(2) = 4
       .TextMatrix(0, 0) = "序号"
       .TextMatrix(0, 1) = "期号"
       .TextMatrix(0, 2) = "中奖号码号"
       .ColWidth(0) = MSFlexGrid1.Width * 0.13
       .ColWidth(1) = MSFlexGrid1.Width * 0.27
       .ColWidth(2) = MSFlexGrid1.Width * 0.5
End With
 For i = xhsj To 1 Step -1
 Get #1, , dqsj
 With MSFlexGrid1
 .TextMatrix(i, 0) = xhsj - i + 1
 .TextMatrix(i, 1) = dqsj.xu
 .TextMatrix(i, 2) = StrConv(dqsj.sj, vbUnicode)
End With
Next i
Close #1Label3.Caption = "共: " & xhsj & " 期数据"
End Sub我不太懂读取dat 文件的代码，谁能帮我翻译一下以上代码

Answer 1

这dat文件可没有什么固定的格式, 一般来说就是数据文件而已, 里面的结构想怎么写就怎么写.
以前VCD上的视频文件也是dat, 360安全卫士的库也是dat, 所以你这问题最好问一下当时定义这文件的人.