Public Structure sPackItem
Public ResourceType As UInt32
Public ResourceGroup As UInt32
Public InstanceHi As UInt32
Public InstanceLo As UInt32
Public Chunkoffset As UInt32
Public Filesize As UInt16
Public Unknown1 As UInt16
Public Memsize As UInt32
Public Compressed As UInt16
Public Unknown2 As UInt16
End Structure
Public Shared Function FiletoList(file As String) As List(Of sPackItem)
Dim list As New List(Of sPackItem)
Using fi As New IO.FileStream(file, IO.FileMode.Open)
Dim bin(255) As Byte
fi.Read(bin, 0, 4) 'magic ;; "DBPF"
Dim head As String = System.Text.Encoding.ASCII.GetString(bin, 0, 4)
If head <> "DBPF" Then Throw New ApplicationException("No DBPF file")
fi.Read(bin, 0, 4) 'major ;; 2
If bin(0) <> 2 Then Throw New ApplicationException("No DBPF file")
fi.Read(bin, 0, 4) 'minor ;; 1
If bin(0) <> 1 Then Throw New ApplicationException("No DBPF file")
fi.Read(bin, 0, 24) 'unknown1
fi.Read(bin, 0, 4) 'インデックスエントリの数 - ゼロ、サイズ、および位置もゼロの場合
Dim indexEntries As UInt32 = BitConverter.ToUInt32(bin, 0)
fi.Read(bin, 0, 4) 'unknown2
fi.Read(bin, 0, 4) 'ディスク上のインデックスのサイズ（バイト単位）
Dim size As UInt32 = BitConverter.ToUInt32(bin, 0)
fi.Read(bin, 0, 12) 'unknown3
fi.Read(bin, 0, 4) 'インデックスバージョン ;; 常に3
If bin(0) <> 3 Then Throw New ApplicationException("No DBPF file")
fi.Read(bin, 0, 4) 'インデックスの位置（絶対）
Dim indexPosition As UInt32 = BitConverter.ToUInt32(bin, 0)
fi.Read(bin, 0, 28) 'unknown4
fi.Seek(indexPosition, IO.SeekOrigin.Begin) 'インデックス位置へ
fi.Read(bin, 0, 4) ‘インデックスデータ省略フラグ
Dim IndexType As UInt32 = BitConverter.ToUInt32(bin, 0)
Dim first As sPackItem = Nothing
For i As Integer = 0 To indexEntries - 1
Dim item As New sPackItem
'0:ResourceType
If i = 0 OrElse (IndexType And &H1) = 0 Then
fi.Read(bin, 0, 4)
item.ResourceType = BitConverter.ToUInt32(bin, 0)
Else
item.ResourceType = first.ResourceType
End If
'1:ResourceGroup
If i = 0 OrElse (IndexType And &H2) = 0 Then
fi.Read(bin, 0, 4)
item.ResourceGroup = BitConverter.ToUInt32(bin, 0)
Else
item.ResourceGroup = first.ResourceGroup
End If
'2:InstanceHi
If i = 0 OrElse (IndexType And &H4) = 0 Then
fi.Read(bin, 0, 4)
item.InstanceHi = BitConverter.ToUInt32(bin, 0)
Else
item.InstanceHi = first.InstanceHi
End If
'3:InstanceLo
If i = 0 OrElse (IndexType And &H8) = 0 Then
fi.Read(bin, 0, 4)
item.InstanceLo = BitConverter.ToUInt32(bin, 0)
Else
item.InstanceLo = first.InstanceLo
End If
'4:Chunkoffset
If i = 0 OrElse (IndexType And &H10) = 0 Then
fi.Read(bin, 0, 4)
item.Chunkoffset = BitConverter.ToUInt32(bin, 0)
Else
item.Chunkoffset = first.Chunkoffset
End If
'5:Filesize and Unknown1
If i = 0 OrElse (IndexType And &H20) = 0 Then
fi.Read(bin, 0, 4)
item.Filesize = BitConverter.ToUInt16(bin, 0)
item.Unknown1 = BitConverter.ToUInt16(bin, 3)
Else
item.Filesize = first.Filesize
item.Unknown1 = first.Unknown1
End If
'6:Memsize
If i = 0 OrElse (IndexType And &H40) = 0 Then
fi.Read(bin, 0, 4)
item.Memsize = BitConverter.ToUInt32(bin, 0)
Else
item.Memsize = first.Memsize
End If
'7:Compressed and Unknown2
If i = 0 OrElse (IndexType And &H80) = 0 Then
fi.Read(bin, 0, 4)
item.Compressed = BitConverter.ToUInt16(bin, 0)
item.Unknown2 = BitConverter.ToUInt16(bin, 3)
Else
item.Compressed = first.Compressed
item.Unknown2 = first.Unknown2
End If
list.Add(item)
If i = 0 Then first = item
Next
End Using
Return list
End Function
gracieabrams
2087
ellievsbear
snowghoul
origamiaround
gamechangershow