目前可以直接提取头部索引
: `6 X: ~5 z5 a+ i8 b% u! R结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,
& `" ~. `# i! J8 f! R3 f谁把汉化的文件快给我....4 { M, E2 ]- A
- 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
复制代码 |