Skip to content

Commit f3de722

Browse files
taljaardstaljaards
committed
All the things!
1 parent ccf144a commit f3de722

File tree

8 files changed

+229
-20
lines changed

8 files changed

+229
-20
lines changed

‎Soartex Texture Zipper/Soartex Texture Zipper/Form1.Designer.vb

+95-2
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎Soartex Texture Zipper/Soartex Texture Zipper/Form1.vb

+31
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,34 @@
11
Public Class Form1
22

3+
Private Sub btn_selectFolderToCompress_Click(sender As Object, e As EventArgs) Handles btn_selectFolderSource.Click
4+
FolderBrowserDialog_toZip.ShowDialog()
5+
If FolderBrowserDialog_toZip.SelectedPath <> "" Then
6+
tb_folderSource.Text = FolderBrowserDialog_toZip.SelectedPath
7+
End If
8+
End Sub
9+
10+
Private Sub btn_selectFolderTarget_Click(sender As Object, e As EventArgs) Handles btn_selectFolderTarget.Click
11+
FolderBrowserDialog_toZip.ShowDialog()
12+
If FolderBrowserDialog_toZip.SelectedPath <> "" Then
13+
tb_folderTarget.Text = FolderBrowserDialog_toZip.SelectedPath
14+
End If
15+
End Sub
16+
17+
Private Sub btn_run_Click(sender As Object, e As EventArgs) Handles btn_run.Click
18+
Dim dirSource As String = tb_folderSource.Text
19+
Dim dirTarget As String
20+
21+
If dirSource = "" Then
22+
MsgBox("Select a folder to compress to a resource pack file", MsgBoxStyle.Exclamation, "Select folder to convert")
23+
Else
24+
25+
If tb_folderTarget.Text = "" Then
26+
dirTarget = tb_folderSource.Text
27+
Else
28+
dirTarget = tb_folderTarget.Text
29+
End If
30+
31+
makeResourcePack(dirSource, dirTarget)
32+
End If
33+
End Sub
334
End Class

‎Soartex Texture Zipper/Soartex Texture Zipper/My Project/AssemblyInfo.vb

+2-2
Original file line numberDiff line numberDiff line change
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
3131
' by using the '*' as shown below:
3232
' <Assembly: AssemblyVersion("1.0.*")>
3333

34-
<Assembly: AssemblyVersion("1.0.0.0")>
35-
<Assembly: AssemblyFileVersion("1.0.0.0")>
34+
<Assembly: AssemblyVersion("0.0.0.1")>
35+
<Assembly: AssemblyFileVersion("0.0.0.1")>

‎Soartex Texture Zipper/Soartex Texture Zipper/My Project/Resources.Designer.vb

+22-11
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎Soartex Texture Zipper/Soartex Texture Zipper/My Project/Resources.resx

+12-5
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,7 @@
4646
4747
mimetype: application/x-microsoft.net.object.binary.base64
4848
value : The object must be serialized with
49-
: System.Serialization.Formatters.Binary.BinaryFormatter
49+
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
5050
: and then encoded with base64 encoding.
5151
5252
mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
6060
: and then encoded with base64 encoding.
6161
-->
6262
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63+
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
6364
<xsd:element name="root" msdata:IsDataSet="true">
6465
<xsd:complexType>
6566
<xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
6869
<xsd:sequence>
6970
<xsd:element name="value" type="xsd:string" minOccurs="0" />
7071
</xsd:sequence>
71-
<xsd:attribute name="name" type="xsd:string" />
72+
<xsd:attribute name="name" use="required" type="xsd:string" />
7273
<xsd:attribute name="type" type="xsd:string" />
7374
<xsd:attribute name="mimetype" type="xsd:string" />
75+
<xsd:attribute ref="xml:space" />
7476
</xsd:complexType>
7577
</xsd:element>
7678
<xsd:element name="assembly">
@@ -85,9 +87,10 @@
8587
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
8688
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
8789
</xsd:sequence>
88-
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
90+
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
8991
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
9092
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93+
<xsd:attribute ref="xml:space" />
9194
</xsd:complexType>
9295
</xsd:element>
9396
<xsd:element name="resheader">
@@ -109,9 +112,13 @@
109112
<value>2.0</value>
110113
</resheader>
111114
<resheader name="reader">
112-
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
115+
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
113116
</resheader>
114117
<resheader name="writer">
115-
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
118+
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116119
</resheader>
120+
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
121+
<data name="openfolder" type="System.Resources.ResXFileRef, System.Windows.Forms">
122+
<value>..\Resources\openfolder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
123+
</data>
117124
</root>

‎Soartex Texture Zipper/Soartex Texture Zipper/Resources/openfolder.png

3.31 KB
Loading

‎Soartex Texture Zipper/Soartex Texture Zipper/Soartex Texture Zipper.vbproj

+8
Original file line numberDiff line numberDiff line change
@@ -50,6 +50,7 @@
5050
<Reference Include="System.Data" />
5151
<Reference Include="System.Deployment" />
5252
<Reference Include="System.Drawing" />
53+
<Reference Include="System.IO.Compression.FileSystem" />
5354
<Reference Include="System.Windows.Forms" />
5455
<Reference Include="System.Xml" />
5556
<Reference Include="System.Core" />
@@ -70,6 +71,7 @@
7071
<Import Include="System.Threading.Tasks" />
7172
</ItemGroup>
7273
<ItemGroup>
74+
<Compile Include="compress.vb" />
7375
<Compile Include="Form1.vb">
7476
<SubType>Form</SubType>
7577
</Compile>
@@ -94,6 +96,9 @@
9496
</Compile>
9597
</ItemGroup>
9698
<ItemGroup>
99+
<EmbeddedResource Include="Form1.resx">
100+
<DependentUpon>Form1.vb</DependentUpon>
101+
</EmbeddedResource>
97102
<EmbeddedResource Include="My Project\Resources.resx">
98103
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
99104
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -113,6 +118,9 @@
113118
</None>
114119
<None Include="App.config" />
115120
</ItemGroup>
121+
<ItemGroup>
122+
<None Include="Resources\openfolder.png" />
123+
</ItemGroup>
116124
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
117125
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
118126
Other similar extension points exist, see Microsoft.Common.targets.

‎Soartex Texture Zipper/Soartex Texture Zipper/compress.vb

+59
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,59 @@
1+
Imports System
2+
Imports System.IO
3+
Imports System.IO.Compression
4+
Imports System.Text
5+
6+
Module compress
7+
Public Sub makeResourcePack(dirSource As String, dirTarget As String)
8+
Dim rpName As String
9+
rpName = extractName(dirSource)
10+
11+
'create the pack.mcmeta file (temporary)
12+
createDescriptionFile(dirTarget, rpName)
13+
14+
'get last modified version of the directory
15+
Dim ver As String = getVersion(dirSource)
16+
17+
'create the resource pack
18+
ZipFile.CreateFromDirectory(dirSource, My.Computer.FileSystem.SpecialDirectories.Temp & "\" & rpName & "-" & ver & ".zip")
19+
My.Computer.FileSystem.MoveFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\" & rpName & "-" & ver & ".zip", dirSource & "\" & rpName & "-" & ver & ".zip")
20+
21+
'delete the temporary pack.mcmeta file
22+
My.Computer.FileSystem.DeleteFile(dirSource & "\pack.mcmeta")
23+
24+
MsgBox("Done!", MsgBoxStyle.OkOnly)
25+
End Sub
26+
27+
Private Function extractName(dir As String) As String
28+
Dim lastSlash As Integer = InStrRev(dir, "\")
29+
Dim len As Integer = Strings.Len(dir)
30+
31+
Dim name As String = Right(dir, len - lastSlash)
32+
33+
Return name
34+
End Function
35+
36+
Private Sub createDescriptionFile(dirTarget As String, rpName As String) 'creates the pack.mcmeta
37+
Dim fs As FileStream = File.Create(dirTarget & "\pack.mcmeta")
38+
39+
Dim str As String
40+
Dim tab As String = " "
41+
str = "{" & vbNewLine & _
42+
tab & """pack"":{" & vbNewLine & _
43+
tab & tab & """pack_format"":1," & vbNewLine & _
44+
tab & tab & """description"":""" & rpName & """" & vbNewLine & _
45+
tab & "}" & vbNewLine & _
46+
"}"
47+
48+
Dim info As Byte() = New UTF8Encoding(True).GetBytes(str)
49+
fs.Write(info, 0, info.Length)
50+
fs.Close()
51+
End Sub
52+
53+
Private Function getVersion(dir As String)
54+
Dim lastWritten As String
55+
lastWritten = My.Computer.FileSystem.GetDirectoryInfo(dir).LastWriteTime
56+
57+
Return Left(lastWritten, 10)
58+
End Function
59+
End Module

0 commit comments

Comments
 (0)