目前可以直接提取头部索引
0 G7 P/ b" a7 I; L2 C$ W9 A( E5 C" O结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,0 J3 B/ L+ F9 R V9 P& ?" K
谁把汉化的文件快给我....* V/ W/ a2 K$ K# v! ]' H
- 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
复制代码 |