请问：谁有使用vb成功读取.grd文件的经验？

山水美不美

我的代码咋就不能正确读取数据了，望大虾们救助。
Dim cFile As String, cHead As String * 4
Dim NUM_X As Integer, NUM_Y As Integer, Fid As Long, i As Long, j As Long
Dim X_BEGIN As Single, X_END As Single, Y_BEGIN As Single, Y_END As Single
Dim Zmin As Single, Zmax As Single, Z() As Single
cFile = App.Path & "\tmp.grd"
Fid = FreeFile
Open cFile For Binary As #Fid
Get #Fid, , cHead
Get #Fid, , NUM_X
Get #Fid, , NUM_Y
Get #Fid, , X_BEGIN
Get #Fid, , X_END
Get #Fid, , Y_BEGIN
Get #Fid, , Y_END
Get #Fid, , Zmin
Get #Fid, , Zmax
ReDim Z(1 To NUM_X, 1 To NUM_Y)
For j = 1 To NUM_Y
   For i = 1 To NUM_X
      Get #Fid, , Z(i, j)
   Next
Next
Close (Fid)

qxtjls

需要把数据类型设成单精度的就好了

guandanhuang

谢谢分享 ！！！！