目前可以直接提取头部索引* U9 Q* w0 r3 h; y# _! u: I
结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,
: K& |( c0 B2 g1 t7 T7 W谁把汉化的文件快给我....0 q+ j- g. D3 @1 E1 D
- 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
复制代码 |