关于读取dat 文件的代码
Sub LOADTEM()
Dim dqsj As dsjzhh
Dim dpsjqlc As dsjzhhZA
Dim sjcp() As String
Dim sjcpsj() As String
Dim xhsj As Long
Open 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 #1
Label3.Caption = "共: " & xhsj & " 期数据"
End Sub
我不太懂读取dat 文件的代码,谁能帮我翻译一下以上代码
[解决办法]
这dat文件可没有什么固定的格式, 一般来说就是数据文件而已, 里面的结构想怎么写就怎么写.
以前VCD上的视频文件也是dat, 360安全卫士的库也是dat, 所以你这问题最好问一下当时定义这文件的人.