目前可以直接提取头部索引
: T' N! S+ L9 K4 _3 ]结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,9 }2 k n% Q6 Z0 M) f
谁把汉化的文件快给我....
! N+ R# ^ ? K# \: m' a" N- Private Sub MakeNewRes()
- Dim strFilePath As String
- Dim strFullPath As String
- strFilePath = App.path & "\\"
- strFullPath = App.path & "\\" & txtOgri.Text
- '检测文件是否存在
- If CheckFileExist(strFullPath) = False Then
- MsgBox "Err Exist.": Exit Sub
- End If
- Dim OldHead As ResHeadInfo, OldFile As FixFile
- With OldFile
- .intNums = FreeFile
- .strPath = strFullPath
- Open .strPath For Binary Access Read As #.intNums
- Get #.intNums, 1, OldHead.strPackName
- Get #.intNums, 5, OldHead.lngHeadLeng
-
- ReDim OldHead.bData(OldHead.lngHeadLeng)
- Get #.intNums, 9, OldHead.bData()
-
- Close #.intNums
-
- End With
- '创建新的头文件
- Dim NewFileHead As FixFile
-
- With NewFileHead
- .intNums = FreeFile
- .strPath = strFilePath & "Head.sl"
- Open .strPath For Binary Access Write As #.intNums
-
- Put #.intNums, 1, OldHead
- Close #.intNums
-
- End With
-
- End Sub
复制代码 |