├── .gitignore
├── README.md
├── WoT_XML_Setup
├── Debug
│ ├── WoT_XML_Setup.msi
│ └── setup.exe
├── Release
│ ├── WoT_XML_Setup.msi
│ └── setup.exe
├── WoT_XML_Setup.vdproj
└── banner.bmp
├── WoT_XML_Setup_009.msi
├── WoT_XML_Setup_010.msi
├── WoT_XML_Setup_011.msi
├── WoT_Xml_Editor
├── .gitignore
├── .tfignore
├── Git WoT_Xml_Editor.lnk
├── My Project
│ ├── Application.Designer.vb
│ ├── Application.myapp
│ ├── AssemblyInfo.vb
│ ├── Resources.Designer.vb
│ ├── Resources.resx
│ ├── Settings.Designer.vb
│ ├── Settings.settings
│ └── app.manifest
├── Resources
│ ├── 109_AllAnnotations_Help_24x24_72.png
│ ├── 112_ArrowReturnLeft_Blue_16x16_72.png
│ ├── 112_ArrowReturnRight_Blue_16x16_721.png
│ ├── ColorDialog_671_24.bmp
│ ├── Copy1.png
│ ├── Find.bmp
│ ├── Redo_16x_32.bmp
│ ├── Undo_16x_32.bmp
│ ├── copy.png
│ ├── cut.png
│ ├── delete.png
│ ├── delete_16x.ico
│ ├── delete_16x1.ico
│ ├── disk.png
│ ├── fonfont.ico
│ ├── font.png
│ ├── icon.png
│ └── search.ico
├── WoT_Xml_Editor.sln
├── WoT_Xml_Editor.vbproj
├── WoT_Xml_Editor_1_TemporaryKey.pfx
├── WoT_Xml_Editor_TemporaryKey.pfx
├── app.config
├── banner.bmp
├── banner.png
├── filtered_strings.txt
├── frmMain.Designer.vb
├── frmMain.resx
├── frmMain.vb
├── frmSetColors.Designer.vb
├── frmSetColors.resx
├── frmSetColors.vb
├── html
│ └── help.html
├── icon.ico
├── modGlobals.vb
├── packages.config
├── packages
│ ├── FCTB.2.16.24
│ │ ├── .signature.p7s
│ │ ├── FCTB.2.16.24.nupkg
│ │ └── lib
│ │ │ ├── FastColoredTextBox.dll
│ │ │ └── FastColoredTextBox.xml
│ └── repositories.config
├── publish
│ ├── Application Files
│ │ ├── WoT_Xml_Editor_1_0_0_0
│ │ │ ├── FastColoredTextBox.dll.deploy
│ │ │ ├── WoT_Xml_Editor.application
│ │ │ ├── WoT_Xml_Editor.exe.config.deploy
│ │ │ ├── WoT_Xml_Editor.exe.deploy
│ │ │ ├── WoT_Xml_Editor.exe.manifest
│ │ │ ├── XMLFile_789_32.ico.deploy
│ │ │ ├── filtered_strings.txt.deploy
│ │ │ ├── html
│ │ │ │ └── help.html.deploy
│ │ │ └── temp
│ │ │ │ └── TextFile1.txt.deploy
│ │ └── WoT_Xml_Editor_2_0_0_0
│ │ │ ├── FastColoredTextBox.dll.deploy
│ │ │ ├── WoT_Xml_Editor.application
│ │ │ ├── WoT_Xml_Editor.exe.config.deploy
│ │ │ ├── WoT_Xml_Editor.exe.deploy
│ │ │ ├── WoT_Xml_Editor.exe.manifest
│ │ │ ├── XMLFile_789_32.ico.deploy
│ │ │ ├── filtered_strings.txt.deploy
│ │ │ ├── html
│ │ │ └── help.html.deploy
│ │ │ └── temp
│ │ │ └── TextFile1.txt.deploy
│ └── WoT_Xml_Editor.application
└── visual loader
│ ├── packed_section.vb
│ ├── primitive_file.vb
│ └── vis_main.vb
└── setup.exe
/.gitignore:
--------------------------------------------------------------------------------
1 | Thumbs.db
2 | *.obj
3 | *.exe
4 | *.pdb
5 | *.user
6 | *.aps
7 | *.pch
8 | *.vspscc
9 | *_i.c
10 | *_p.c
11 | *.ncb
12 | *.suo
13 | *.sln.docstates
14 | *.tlb
15 | *.tlh
16 | *.bak
17 | *.cache
18 | *.ilk
19 | *.log
20 | bin/
21 | obj/
22 | [Bb]in
23 | [Dd]ebug*/
24 | *.lib
25 | *.sbr
26 | obj/
27 | [Rr]elease*/
28 | _ReSharper*/
29 | [Tt]est[Rr]esult*
30 | *.vssscc
31 | $tf*/
32 | .vs/
33 |
34 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # Wargaming XML editor.
2 | ## This tool decodes and opens Wargaming non_standard XML files.
3 |
4 | ### Please see the Help file (the blue question mark) for more info.
5 |
6 |
7 |
8 | ### Version 11:
9 | Save button saves with out asking.
10 | Added "Save As" button aslo.
11 |
12 | ### Version 9:
13 | Fixed a problem with tags in some files.
14 |
15 | ### Version 8:
16 | Fixed renaming primitive groups.. It now handles 91 groups.
17 |
18 | ### Version 7:
19 | Fixed a bug with "!--" comment tags.
20 | Fixed changed the default font size to a smaller size.
21 | Updated the Properties Tag string file (filtered_strings.txt).
22 | Added Crtl+O (file open) and Ctrl+s (file save) short cuts.
23 | Updated the Help HTML file.
24 |
25 |
26 |
--------------------------------------------------------------------------------
/WoT_XML_Setup/Debug/WoT_XML_Setup.msi:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup/Debug/WoT_XML_Setup.msi
--------------------------------------------------------------------------------
/WoT_XML_Setup/Debug/setup.exe:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup/Debug/setup.exe
--------------------------------------------------------------------------------
/WoT_XML_Setup/Release/WoT_XML_Setup.msi:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup/Release/WoT_XML_Setup.msi
--------------------------------------------------------------------------------
/WoT_XML_Setup/Release/setup.exe:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup/Release/setup.exe
--------------------------------------------------------------------------------
/WoT_XML_Setup/banner.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup/banner.bmp
--------------------------------------------------------------------------------
/WoT_XML_Setup_009.msi:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup_009.msi
--------------------------------------------------------------------------------
/WoT_XML_Setup_010.msi:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup_010.msi
--------------------------------------------------------------------------------
/WoT_XML_Setup_011.msi:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_XML_Setup_011.msi
--------------------------------------------------------------------------------
/WoT_Xml_Editor/.gitignore:
--------------------------------------------------------------------------------
1 | Thumbs.db
2 | *.obj
3 | *.exe
4 | *.pdb
5 | *.user
6 | *.aps
7 | *.pch
8 | *.vspscc
9 | *_i.c
10 | *_p.c
11 | *.ncb
12 | *.suo
13 | *.sln.docstates
14 | *.tlb
15 | *.tlh
16 | *.bak
17 | *.cache
18 | *.ilk
19 | *.log
20 | [Bb]in
21 | [Dd]ebug*/
22 | *.lib
23 | *.sbr
24 | obj/
25 | [Rr]elease*/
26 | _ReSharper*/
27 | [Tt]est[Rr]esult*
28 | *.vssscc
29 | $tf*/
--------------------------------------------------------------------------------
/WoT_Xml_Editor/.tfignore:
--------------------------------------------------------------------------------
1 | \.git
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Git WoT_Xml_Editor.lnk:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Git WoT_Xml_Editor.lnk
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Application.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 |
15 | Namespace My
16 |
17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
18 | ' or if you encounter build errors in this file, go to the Project Designer
19 | ' (go to Project Properties or double-click the My Project node in
20 | ' Solution Explorer), and make changes on the Application tab.
21 | '
22 | Partial Friend Class MyApplication
23 |
24 | _
25 | Public Sub New()
26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
27 | Me.IsSingleInstance = false
28 | Me.EnableVisualStyles = true
29 | Me.SaveMySettingsOnExit = true
30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
31 | End Sub
32 |
33 | _
34 | Protected Overrides Sub OnCreateMainForm()
35 | Me.MainForm = Global.xml_editor.frmMain
36 | End Sub
37 |
38 | _
39 | Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
40 | Me.MinimumSplashScreenDisplayTime = 0
41 | Return MyBase.OnInitialize(commandLineArgs)
42 | End Function
43 | End Class
44 | End Namespace
45 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Application.myapp:
--------------------------------------------------------------------------------
1 |
2 |
3 | true
4 | frmMain
5 | false
6 | 0
7 | true
8 | 0
9 | true
10 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/AssemblyInfo.vb:
--------------------------------------------------------------------------------
1 | Imports System.Resources
2 |
3 | Imports System
4 | Imports System.Reflection
5 | Imports System.Runtime.InteropServices
6 |
7 | ' General Information about an assembly is controlled through the following
8 | ' set of attributes. Change these attribute values to modify the information
9 | ' associated with an assembly.
10 |
11 | ' Review the values of the assembly attributes
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 | 'The following GUID is for the ID of the typelib if this project is exposed to COM
23 |
24 |
25 | ' Version information for an assembly consists of the following four values:
26 | '
27 | ' Major Version
28 | ' Minor Version
29 | ' Build Number
30 | ' Revision
31 | '
32 | ' You can specify all the values or you can default the Build and Revision Numbers
33 | ' by using the '*' as shown below:
34 | '
35 |
36 |
37 |
38 |
39 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Resources.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 | Imports System
15 |
16 | Namespace My.Resources
17 |
18 | 'This class was auto-generated by the StronglyTypedResourceBuilder
19 | 'class via a tool like ResGen or Visual Studio.
20 | 'To add or remove a member, edit your .ResX file then rerun ResGen
21 | 'with the /str option, or rebuild your VS project.
22 | '''
23 | ''' A strongly-typed resource class, for looking up localized strings, etc.
24 | '''
25 | _
29 | Friend Module Resources
30 |
31 | Private resourceMan As Global.System.Resources.ResourceManager
32 |
33 | Private resourceCulture As Global.System.Globalization.CultureInfo
34 |
35 | '''
36 | ''' Returns the cached ResourceManager instance used by this class.
37 | '''
38 | _
39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
40 | Get
41 | If Object.ReferenceEquals(resourceMan, Nothing) Then
42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("xml_editor.Resources", GetType(Resources).Assembly)
43 | resourceMan = temp
44 | End If
45 | Return resourceMan
46 | End Get
47 | End Property
48 |
49 | '''
50 | ''' Overrides the current thread's CurrentUICulture property for all
51 | ''' resource lookups using this strongly typed resource class.
52 | '''
53 | _
54 | Friend Property Culture() As Global.System.Globalization.CultureInfo
55 | Get
56 | Return resourceCulture
57 | End Get
58 | Set
59 | resourceCulture = value
60 | End Set
61 | End Property
62 |
63 | '''
64 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
65 | '''
66 | Friend ReadOnly Property AllAnnotations_Help_24x24_72() As System.Drawing.Bitmap
67 | Get
68 | Dim obj As Object = ResourceManager.GetObject("AllAnnotations_Help_24x24_72", resourceCulture)
69 | Return CType(obj,System.Drawing.Bitmap)
70 | End Get
71 | End Property
72 |
73 | '''
74 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
75 | '''
76 | Friend ReadOnly Property ColorDialog_671_24() As System.Drawing.Bitmap
77 | Get
78 | Dim obj As Object = ResourceManager.GetObject("ColorDialog_671_24", resourceCulture)
79 | Return CType(obj,System.Drawing.Bitmap)
80 | End Get
81 | End Property
82 |
83 | '''
84 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
85 | '''
86 | Friend ReadOnly Property cut() As System.Drawing.Bitmap
87 | Get
88 | Dim obj As Object = ResourceManager.GetObject("cut", resourceCulture)
89 | Return CType(obj,System.Drawing.Bitmap)
90 | End Get
91 | End Property
92 |
93 | '''
94 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
95 | '''
96 | Friend ReadOnly Property delete() As System.Drawing.Bitmap
97 | Get
98 | Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture)
99 | Return CType(obj,System.Drawing.Bitmap)
100 | End Get
101 | End Property
102 |
103 | '''
104 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
105 | '''
106 | Friend ReadOnly Property delete_16x() As System.Drawing.Bitmap
107 | Get
108 | Dim obj As Object = ResourceManager.GetObject("delete_16x", resourceCulture)
109 | Return CType(obj,System.Drawing.Bitmap)
110 | End Get
111 | End Property
112 |
113 | '''
114 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
115 | '''
116 | Friend ReadOnly Property delete_16x1() As System.Drawing.Bitmap
117 | Get
118 | Dim obj As Object = ResourceManager.GetObject("delete_16x1", resourceCulture)
119 | Return CType(obj,System.Drawing.Bitmap)
120 | End Get
121 | End Property
122 |
123 | '''
124 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
125 | '''
126 | Friend ReadOnly Property disk() As System.Drawing.Bitmap
127 | Get
128 | Dim obj As Object = ResourceManager.GetObject("disk", resourceCulture)
129 | Return CType(obj,System.Drawing.Bitmap)
130 | End Get
131 | End Property
132 |
133 | '''
134 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
135 | '''
136 | Friend ReadOnly Property Find() As System.Drawing.Bitmap
137 | Get
138 | Dim obj As Object = ResourceManager.GetObject("Find", resourceCulture)
139 | Return CType(obj,System.Drawing.Bitmap)
140 | End Get
141 | End Property
142 |
143 | '''
144 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
145 | '''
146 | Friend ReadOnly Property fonfont() As System.Drawing.Bitmap
147 | Get
148 | Dim obj As Object = ResourceManager.GetObject("fonfont", resourceCulture)
149 | Return CType(obj,System.Drawing.Bitmap)
150 | End Get
151 | End Property
152 |
153 | '''
154 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
155 | '''
156 | Friend ReadOnly Property font() As System.Drawing.Bitmap
157 | Get
158 | Dim obj As Object = ResourceManager.GetObject("font", resourceCulture)
159 | Return CType(obj,System.Drawing.Bitmap)
160 | End Get
161 | End Property
162 |
163 | '''
164 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
165 | '''
166 | Friend ReadOnly Property Redo_16x_32() As System.Drawing.Bitmap
167 | Get
168 | Dim obj As Object = ResourceManager.GetObject("Redo_16x_32", resourceCulture)
169 | Return CType(obj,System.Drawing.Bitmap)
170 | End Get
171 | End Property
172 |
173 | '''
174 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
175 | '''
176 | Friend ReadOnly Property search() As System.Drawing.Bitmap
177 | Get
178 | Dim obj As Object = ResourceManager.GetObject("search", resourceCulture)
179 | Return CType(obj,System.Drawing.Bitmap)
180 | End Get
181 | End Property
182 |
183 | '''
184 | ''' Looks up a localized resource of type System.Drawing.Bitmap.
185 | '''
186 | Friend ReadOnly Property Undo_16x_32() As System.Drawing.Bitmap
187 | Get
188 | Dim obj As Object = ResourceManager.GetObject("Undo_16x_32", resourceCulture)
189 | Return CType(obj,System.Drawing.Bitmap)
190 | End Get
191 | End Property
192 | End Module
193 | End Namespace
194 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Resources.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
121 |
122 | ..\Resources\Redo_16x_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
123 |
124 |
125 | ..\Resources\109_AllAnnotations_Help_24x24_72.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
126 |
127 |
128 | ..\Resources\fonfont.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
129 |
130 |
131 | ..\Resources\Undo_16x_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
132 |
133 |
134 | ..\Resources\font.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
135 |
136 |
137 | ..\Resources\delete_16x1.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
138 |
139 |
140 | ..\Resources\cut.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
141 |
142 |
143 | ..\Resources\search.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
144 |
145 |
146 | ..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
147 |
148 |
149 | ..\Resources\ColorDialog_671_24.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
150 |
151 |
152 | ..\Resources\delete_16x.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
153 |
154 |
155 | ..\Resources\Find.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
156 |
157 |
158 | ..\Resources\disk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
159 |
160 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Settings.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 |
15 | Namespace My
16 |
17 | _
20 | Partial Friend NotInheritable Class MySettings
21 | Inherits Global.System.Configuration.ApplicationSettingsBase
22 |
23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24 |
25 | #Region "My.Settings Auto-Save Functionality"
26 | #If _MyType = "WindowsForms" Then
27 | Private Shared addedHandler As Boolean
28 |
29 | Private Shared addedHandlerLockObject As New Object
30 |
31 | _
32 | Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
33 | If My.Application.SaveMySettingsOnExit Then
34 | My.Settings.Save()
35 | End If
36 | End Sub
37 | #End If
38 | #End Region
39 |
40 | Public Shared ReadOnly Property [Default]() As MySettings
41 | Get
42 |
43 | #If _MyType = "WindowsForms" Then
44 | If Not addedHandler Then
45 | SyncLock addedHandlerLockObject
46 | If Not addedHandler Then
47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 | addedHandler = True
49 | End If
50 | End SyncLock
51 | End If
52 | #End If
53 | Return defaultInstance
54 | End Get
55 | End Property
56 |
57 | _
60 | Public Property numeric() As Global.System.Drawing.Color
61 | Get
62 | Return CType(Me("numeric"),Global.System.Drawing.Color)
63 | End Get
64 | Set
65 | Me("numeric") = value
66 | End Set
67 | End Property
68 |
69 | _
72 | Public Property tags() As Global.System.Drawing.Color
73 | Get
74 | Return CType(Me("tags"),Global.System.Drawing.Color)
75 | End Get
76 | Set
77 | Me("tags") = value
78 | End Set
79 | End Property
80 |
81 | _
84 | Public Property textures() As Global.System.Drawing.Color
85 | Get
86 | Return CType(Me("textures"),Global.System.Drawing.Color)
87 | End Get
88 | Set
89 | Me("textures") = value
90 | End Set
91 | End Property
92 |
93 | _
96 | Public Property props() As Global.System.Drawing.Color
97 | Get
98 | Return CType(Me("props"),Global.System.Drawing.Color)
99 | End Get
100 | Set
101 | Me("props") = value
102 | End Set
103 | End Property
104 |
105 | _
108 | Public Property allothers() As Global.System.Drawing.Color
109 | Get
110 | Return CType(Me("allothers"),Global.System.Drawing.Color)
111 | End Get
112 | Set
113 | Me("allothers") = value
114 | End Set
115 | End Property
116 |
117 | _
120 | Public Property n_checked() As Boolean
121 | Get
122 | Return CType(Me("n_checked"),Boolean)
123 | End Get
124 | Set
125 | Me("n_checked") = value
126 | End Set
127 | End Property
128 |
129 | _
132 | Public Property t_checked() As Boolean
133 | Get
134 | Return CType(Me("t_checked"),Boolean)
135 | End Get
136 | Set
137 | Me("t_checked") = value
138 | End Set
139 | End Property
140 |
141 | _
144 | Public Property tex_c() As Boolean
145 | Get
146 | Return CType(Me("tex_c"),Boolean)
147 | End Get
148 | Set
149 | Me("tex_c") = value
150 | End Set
151 | End Property
152 |
153 | _
156 | Public Property prop_c() As Boolean
157 | Get
158 | Return CType(Me("prop_c"),Boolean)
159 | End Get
160 | Set
161 | Me("prop_c") = value
162 | End Set
163 | End Property
164 |
165 | _
168 | Public Property all_c() As Boolean
169 | Get
170 | Return CType(Me("all_c"),Boolean)
171 | End Get
172 | Set
173 | Me("all_c") = value
174 | End Set
175 | End Property
176 | End Class
177 | End Namespace
178 |
179 | Namespace My
180 |
181 | _
184 | Friend Module MySettingsProperty
185 |
186 | _
187 | Friend ReadOnly Property Settings() As Global.xml_editor.My.MySettings
188 | Get
189 | Return Global.xml_editor.My.MySettings.Default
190 | End Get
191 | End Property
192 | End Module
193 | End Namespace
194 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/Settings.settings:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | WhiteSmoke
7 |
8 |
9 | LightGreen
10 |
11 |
12 | Turquoise
13 |
14 |
15 | LightSteelBlue
16 |
17 |
18 | Beige
19 |
20 |
21 | True
22 |
23 |
24 | False
25 |
26 |
27 | True
28 |
29 |
30 | True
31 |
32 |
33 | False
34 |
35 |
36 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/My Project/app.manifest:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
54 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/109_AllAnnotations_Help_24x24_72.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/109_AllAnnotations_Help_24x24_72.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/112_ArrowReturnLeft_Blue_16x16_72.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/112_ArrowReturnLeft_Blue_16x16_72.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/112_ArrowReturnRight_Blue_16x16_721.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/112_ArrowReturnRight_Blue_16x16_721.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/ColorDialog_671_24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/ColorDialog_671_24.bmp
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/Copy1.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/Copy1.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/Find.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/Find.bmp
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/Redo_16x_32.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/Redo_16x_32.bmp
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/Undo_16x_32.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/Undo_16x_32.bmp
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/copy.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/copy.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/cut.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/cut.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/delete.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/delete.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/delete_16x.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/delete_16x.ico
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/delete_16x1.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/delete_16x1.ico
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/disk.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/disk.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/fonfont.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/fonfont.ico
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/font.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/font.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/icon.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/icon.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/Resources/search.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/Resources/search.ico
--------------------------------------------------------------------------------
/WoT_Xml_Editor/WoT_Xml_Editor.sln:
--------------------------------------------------------------------------------
1 |
2 | Microsoft Visual Studio Solution File, Format Version 12.00
3 | # Visual Studio 2013
4 | VisualStudioVersion = 12.0.31101.0
5 | MinimumVisualStudioVersion = 10.0.40219.1
6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WoT_Xml_Editor", "WoT_Xml_Editor.vbproj", "{EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}"
7 | EndProject
8 | Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "WoT_XML_Setup", "..\WoT_XML_Setup\WoT_XML_Setup.vdproj", "{8677EC72-88E7-4375-9621-A4E84819638C}"
9 | EndProject
10 | Global
11 | GlobalSection(SolutionConfigurationPlatforms) = preSolution
12 | Debug|Any CPU = Debug|Any CPU
13 | Debug|x86 = Debug|x86
14 | Release|Any CPU = Release|Any CPU
15 | Release|x86 = Release|x86
16 | EndGlobalSection
17 | GlobalSection(ProjectConfigurationPlatforms) = postSolution
18 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
19 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Debug|Any CPU.Build.0 = Debug|Any CPU
20 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Debug|x86.ActiveCfg = Debug|x86
21 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Debug|x86.Build.0 = Debug|x86
22 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Release|Any CPU.ActiveCfg = Release|Any CPU
23 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Release|Any CPU.Build.0 = Release|Any CPU
24 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Release|x86.ActiveCfg = Release|x86
25 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}.Release|x86.Build.0 = Release|x86
26 | {8677EC72-88E7-4375-9621-A4E84819638C}.Debug|Any CPU.ActiveCfg = Debug
27 | {8677EC72-88E7-4375-9621-A4E84819638C}.Debug|x86.ActiveCfg = Debug
28 | {8677EC72-88E7-4375-9621-A4E84819638C}.Debug|x86.Build.0 = Debug
29 | {8677EC72-88E7-4375-9621-A4E84819638C}.Release|Any CPU.ActiveCfg = Release
30 | {8677EC72-88E7-4375-9621-A4E84819638C}.Release|x86.ActiveCfg = Release
31 | {8677EC72-88E7-4375-9621-A4E84819638C}.Release|x86.Build.0 = Release
32 | EndGlobalSection
33 | GlobalSection(SolutionProperties) = preSolution
34 | HideSolutionNode = FALSE
35 | EndGlobalSection
36 | EndGlobal
37 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/WoT_Xml_Editor.vbproj:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | Debug
6 | AnyCPU
7 | {EB326178-DE33-4ED3-A3DD-3D4A5828CD0E}
8 | WinExe
9 | xml_editor.My.MyApplication
10 | xml_editor
11 | WoT_Xml_Editor
12 | 512
13 | WindowsForms
14 | v4.8.1
15 | false
16 |
17 | publish\
18 | true
19 | Disk
20 | false
21 | Foreground
22 | 7
23 | Days
24 | false
25 | false
26 | true
27 | http://worldoftanks.curseforge.com/wot-mods/wot-binary-xml-viewereditor/
28 | en-US
29 | World of Tanks Binary Converter Editor
30 | Coffee_
31 | false
32 | 11
33 | 2.0.0.11
34 | true
35 | true
36 | true
37 | true
38 |
39 |
40 | x86
41 | true
42 | full
43 | true
44 | true
45 | bin\Debug\
46 | WoT_Xml_Editor.xml
47 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
48 | false
49 |
50 |
51 | AnyCPU
52 | pdbonly
53 | false
54 | true
55 | true
56 | bin\Release\
57 | WoT_Xml_Editor.xml
58 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
59 | false
60 |
61 |
62 | On
63 |
64 |
65 | Binary
66 |
67 |
68 | Off
69 |
70 |
71 | On
72 |
73 |
74 | My Project\app.manifest
75 |
76 |
77 | B81157B9A914B79C649EC9977C859B7C7A4B7E91
78 |
79 |
80 | WoT_Xml_Editor_1_TemporaryKey.pfx
81 |
82 |
83 | false
84 |
85 |
86 | false
87 |
88 |
89 | icon.ico
90 |
91 |
92 | true
93 | true
94 | true
95 | bin\x86\Debug\
96 | WoT_Xml_Editor.xml
97 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
98 | full
99 | x86
100 | MinimumRecommendedRules.ruleset
101 | false
102 |
103 |
104 | true
105 | bin\x86\Release\
106 | WoT_Xml_Editor.xml
107 | true
108 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
109 | pdbonly
110 | x86
111 | MinimumRecommendedRules.ruleset
112 | false
113 |
114 |
115 | false
116 |
117 |
118 | WoT_Xml_Editor_1_TemporaryKey.pfx
119 |
120 |
121 | LocalIntranet
122 |
123 |
124 |
125 | packages\FCTB.2.16.24\lib\FastColoredTextBox.dll
126 |
127 |
128 |
129 |
130 |
131 |
132 |
133 |
134 |
135 |
136 |
137 |
138 |
139 |
140 |
141 |
142 |
143 |
144 |
145 |
146 |
147 |
148 |
149 | Form
150 |
151 |
152 | frmMain.vb
153 | Form
154 |
155 |
156 | frmSetColors.vb
157 |
158 |
159 | Form
160 |
161 |
162 |
163 |
164 | True
165 | Application.myapp
166 | True
167 |
168 |
169 | True
170 | True
171 | Resources.resx
172 |
173 |
174 | True
175 | Settings.settings
176 | True
177 |
178 |
179 |
180 |
181 |
182 |
183 |
184 | frmMain.vb
185 | Designer
186 |
187 |
188 | frmSetColors.vb
189 |
190 |
191 | VbMyResourcesResXFileCodeGenerator
192 | My.Resources
193 | Designer
194 | Resources.Designer.vb
195 |
196 |
197 |
198 |
199 |
200 | Designer
201 |
202 |
203 | MyApplicationCodeGenerator
204 | Application.Designer.vb
205 |
206 |
207 | SettingsSingleFileGenerator
208 | My
209 | Settings.Designer.vb
210 |
211 |
212 |
213 |
214 |
215 |
216 |
217 |
218 |
219 |
220 |
221 |
222 |
223 |
224 |
225 |
226 |
227 |
228 |
229 |
230 |
231 |
232 |
233 |
234 |
235 |
236 | Always
237 |
238 |
239 | Always
240 |
241 |
242 | Always
243 |
244 |
245 |
246 |
247 |
248 |
249 |
250 |
251 |
252 |
253 |
254 |
255 |
256 |
257 |
258 | False
259 | .NET Framework 3.5 SP1 Client Profile
260 | false
261 |
262 |
263 | False
264 | .NET Framework 3.5 SP1
265 | true
266 |
267 |
268 |
269 |
270 |
277 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/WoT_Xml_Editor_1_TemporaryKey.pfx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/WoT_Xml_Editor_1_TemporaryKey.pfx
--------------------------------------------------------------------------------
/WoT_Xml_Editor/WoT_Xml_Editor_TemporaryKey.pfx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/WoT_Xml_Editor_TemporaryKey.pfx
--------------------------------------------------------------------------------
/WoT_Xml_Editor/app.config:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 | WhiteSmoke
32 |
33 |
34 | LightGreen
35 |
36 |
37 | Turquoise
38 |
39 |
40 | LightSteelBlue
41 |
42 |
43 | Beige
44 |
45 |
46 | True
47 |
48 |
49 | False
50 |
51 |
52 | True
53 |
54 |
55 | True
56 |
57 |
58 | False
59 |
60 |
61 |
62 |
63 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/banner.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/banner.bmp
--------------------------------------------------------------------------------
/WoT_Xml_Editor/banner.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/WoT_Xml_Editor/banner.png
--------------------------------------------------------------------------------
/WoT_Xml_Editor/filtered_strings.txt:
--------------------------------------------------------------------------------
1 | # <-- this means comment line
2 | # There can be NO blank lines!
3 | # I have to replace 'diffuseMap2' with a temp name and then replace
4 | # the temp name after the first filter pass. Hence the following name.
5 | THISBAD
6 | diffuseMap
7 | # diffuseMap2 <-- this is dealt with in the filter logic. Leave it commented out!
8 | specularMap
9 | normalMap
10 | alphaReference
11 | alphaTestEnable
12 | doubleSided
13 | metallicGlossMap
14 | g_useNormalPackDXT1
15 | g_defaultPBSConversionParams
16 | g_metallicConversions
17 | g_glossConversions
18 | g_albedoConversions
19 | excludeMaskAndAOMap
20 | metallicDetailMap
21 | g_detailPower
22 | g_detailPowerAlbedo
23 | g_detailPowerGloss
24 | g_detailUVTiling
25 | g_useDetailMetallic
26 | g_maskBias
27 | selfIllumination
28 | colorIdMap
29 | vertices
30 | indices
31 | g_detailMap
32 | g_enableTerrainBlending
33 | g_atlasIndexes
34 | dirtMap
35 | atlasNormalGlossSpec
36 | atlasMetallicAO
37 | atlasBlend
38 | atlasAlbedoHeight
39 | g_enableTerrainBlending
40 | g_detailInfluences
41 | g_detailRejectTiling
42 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/frmMain.Designer.vb:
--------------------------------------------------------------------------------
1 | _
2 | Partial Class frmMain
3 | Inherits System.Windows.Forms.Form
4 |
5 | 'Form overrides dispose to clean up the component list.
6 | _
7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8 | Try
9 | If disposing AndAlso components IsNot Nothing Then
10 | components.Dispose()
11 | End If
12 | Finally
13 | MyBase.Dispose(disposing)
14 | End Try
15 | End Sub
16 |
17 | 'Required by the Windows Form Designer
18 | Private components As System.ComponentModel.IContainer
19 |
20 | 'NOTE: The following procedure is required by the Windows Form Designer
21 | 'It can be modified using the Windows Form Designer.
22 | 'Do not modify it using the code editor.
23 | _
24 | Private Sub InitializeComponent()
25 | Me.components = New System.ComponentModel.Container()
26 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
27 | Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
28 | Me.toolStripSeparator = New System.Windows.Forms.ToolStripSeparator()
29 | Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
30 | Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
31 | Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
32 | Me.m_search_text = New System.Windows.Forms.ToolStripTextBox()
33 | Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
34 | Me.m_Select_Font = New System.Windows.Forms.ToolStripSeparator()
35 | Me.m_edit_Filter = New System.Windows.Forms.ToolStripButton()
36 | Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
37 | Me.fctb = New FastColoredTextBoxNS.FastColoredTextBox()
38 | Me.fctb_context_strip = New System.Windows.Forms.ContextMenuStrip(Me.components)
39 | Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
40 | Me.seperator = New System.Windows.Forms.ToolStripSeparator()
41 | Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
42 | Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
43 | Me.FontDialog1 = New System.Windows.Forms.FontDialog()
44 | Me.cm_cut = New System.Windows.Forms.ToolStripMenuItem()
45 | Me.cm_copy = New System.Windows.Forms.ToolStripMenuItem()
46 | Me.cm_paste = New System.Windows.Forms.ToolStripMenuItem()
47 | Me.cm_delete = New System.Windows.Forms.ToolStripMenuItem()
48 | Me.cm_undo = New System.Windows.Forms.ToolStripMenuItem()
49 | Me.cm_redo = New System.Windows.Forms.ToolStripMenuItem()
50 | Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton()
51 | Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton()
52 | Me.m_save_as = New System.Windows.Forms.ToolStripButton()
53 | Me.CutToolStripButton = New System.Windows.Forms.ToolStripButton()
54 | Me.CopyToolStripButton = New System.Windows.Forms.ToolStripButton()
55 | Me.PasteToolStripButton = New System.Windows.Forms.ToolStripButton()
56 | Me.m_Delete = New System.Windows.Forms.ToolStripButton()
57 | Me.m_undo = New System.Windows.Forms.ToolStripButton()
58 | Me.m_redo = New System.Windows.Forms.ToolStripButton()
59 | Me.m_search = New System.Windows.Forms.ToolStripButton()
60 | Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
61 | Me.m_set_colors = New System.Windows.Forms.ToolStripButton()
62 | Me.m_help = New System.Windows.Forms.ToolStripButton()
63 | Me.ToolStrip1.SuspendLayout()
64 | CType(Me.fctb, System.ComponentModel.ISupportInitialize).BeginInit()
65 | Me.fctb_context_strip.SuspendLayout()
66 | Me.SuspendLayout()
67 | '
68 | 'ToolStrip1
69 | '
70 | Me.ToolStrip1.GripMargin = New System.Windows.Forms.Padding(10, 2, 2, 2)
71 | Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
72 | Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenToolStripButton, Me.SaveToolStripButton, Me.m_save_as, Me.toolStripSeparator, Me.CutToolStripButton, Me.CopyToolStripButton, Me.PasteToolStripButton, Me.toolStripSeparator1, Me.m_Delete, Me.ToolStripSeparator3, Me.m_undo, Me.m_redo, Me.ToolStripSeparator2, Me.m_search_text, Me.m_search, Me.ToolStripSeparator5, Me.ToolStripButton1, Me.m_Select_Font, Me.m_edit_Filter, Me.m_set_colors, Me.ToolStripSeparator6, Me.m_help})
73 | Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
74 | Me.ToolStrip1.Name = "ToolStrip1"
75 | Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5, 0, 1, 0)
76 | Me.ToolStrip1.Size = New System.Drawing.Size(749, 25)
77 | Me.ToolStrip1.TabIndex = 0
78 | Me.ToolStrip1.Text = "ToolStrip1"
79 | '
80 | 'toolStripSeparator
81 | '
82 | Me.toolStripSeparator.Name = "toolStripSeparator"
83 | Me.toolStripSeparator.Size = New System.Drawing.Size(6, 25)
84 | '
85 | 'toolStripSeparator1
86 | '
87 | Me.toolStripSeparator1.Name = "toolStripSeparator1"
88 | Me.toolStripSeparator1.Size = New System.Drawing.Size(6, 25)
89 | '
90 | 'ToolStripSeparator3
91 | '
92 | Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
93 | Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
94 | '
95 | 'ToolStripSeparator2
96 | '
97 | Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
98 | Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
99 | '
100 | 'm_search_text
101 | '
102 | Me.m_search_text.AcceptsReturn = True
103 | Me.m_search_text.AutoSize = False
104 | Me.m_search_text.BackColor = System.Drawing.SystemColors.InactiveCaption
105 | Me.m_search_text.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
106 | Me.m_search_text.Font = New System.Drawing.Font("Segoe UI", 9.0!)
107 | Me.m_search_text.Name = "m_search_text"
108 | Me.m_search_text.Size = New System.Drawing.Size(199, 23)
109 | '
110 | 'ToolStripSeparator5
111 | '
112 | Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
113 | Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
114 | '
115 | 'm_Select_Font
116 | '
117 | Me.m_Select_Font.Name = "m_Select_Font"
118 | Me.m_Select_Font.Size = New System.Drawing.Size(6, 25)
119 | '
120 | 'm_edit_Filter
121 | '
122 | Me.m_edit_Filter.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
123 | Me.m_edit_Filter.ImageTransparentColor = System.Drawing.Color.Magenta
124 | Me.m_edit_Filter.Name = "m_edit_Filter"
125 | Me.m_edit_Filter.Size = New System.Drawing.Size(99, 22)
126 | Me.m_edit_Filter.Text = "Edit Filter Strings"
127 | Me.m_edit_Filter.ToolTipText = "Edit Filter List" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "These are the tags tags that usually follow the tag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "They mess up the XML format and have to be handled."
128 | Me.m_edit_Filter.Visible = False
129 | '
130 | 'ToolStripSeparator6
131 | '
132 | Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
133 | Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 25)
134 | '
135 | 'fctb
136 | '
137 | Me.fctb.AutoCompleteBracketsList = New Char() {Global.Microsoft.VisualBasic.ChrW(40), Global.Microsoft.VisualBasic.ChrW(41), Global.Microsoft.VisualBasic.ChrW(123), Global.Microsoft.VisualBasic.ChrW(125), Global.Microsoft.VisualBasic.ChrW(91), Global.Microsoft.VisualBasic.ChrW(93), Global.Microsoft.VisualBasic.ChrW(34), Global.Microsoft.VisualBasic.ChrW(34), Global.Microsoft.VisualBasic.ChrW(39), Global.Microsoft.VisualBasic.ChrW(39)}
138 | Me.fctb.AutoIndent = False
139 | Me.fctb.AutoIndentChars = False
140 | Me.fctb.AutoIndentCharsPatterns = ""
141 | Me.fctb.AutoIndentExistingLines = False
142 | Me.fctb.AutoScrollMinSize = New System.Drawing.Size(27, 12)
143 | Me.fctb.BackBrush = Nothing
144 | Me.fctb.BackColor = System.Drawing.Color.Black
145 | Me.fctb.CaretColor = System.Drawing.Color.White
146 | Me.fctb.CharHeight = 12
147 | Me.fctb.CharWidth = 8
148 | Me.fctb.CommentPrefix = Nothing
149 | Me.fctb.ContextMenuStrip = Me.fctb_context_strip
150 | Me.fctb.Cursor = System.Windows.Forms.Cursors.IBeam
151 | Me.fctb.DisabledColor = System.Drawing.Color.FromArgb(CType(CType(100, Byte), Integer), CType(CType(180, Byte), Integer), CType(CType(180, Byte), Integer), CType(CType(180, Byte), Integer))
152 | Me.fctb.Dock = System.Windows.Forms.DockStyle.Fill
153 | Me.fctb.Font = New System.Drawing.Font("Lucida Console", 9.75!)
154 | Me.fctb.ForeColor = System.Drawing.Color.White
155 | Me.fctb.HighlightFoldingIndicator = False
156 | Me.fctb.IndentBackColor = System.Drawing.Color.DimGray
157 | Me.fctb.IsReplaceMode = False
158 | Me.fctb.LeftBracket = Global.Microsoft.VisualBasic.ChrW(60)
159 | Me.fctb.LeftBracket2 = Global.Microsoft.VisualBasic.ChrW(40)
160 | Me.fctb.LineNumberColor = System.Drawing.Color.White
161 | Me.fctb.Location = New System.Drawing.Point(0, 25)
162 | Me.fctb.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
163 | Me.fctb.Name = "fctb"
164 | Me.fctb.PaddingBackColor = System.Drawing.SystemColors.WindowFrame
165 | Me.fctb.Paddings = New System.Windows.Forms.Padding(0)
166 | Me.fctb.RightBracket = Global.Microsoft.VisualBasic.ChrW(62)
167 | Me.fctb.RightBracket2 = Global.Microsoft.VisualBasic.ChrW(41)
168 | Me.fctb.SelectionColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
169 | Me.fctb.ServiceColors = CType(resources.GetObject("fctb.ServiceColors"), FastColoredTextBoxNS.ServiceColors)
170 | Me.fctb.Size = New System.Drawing.Size(749, 480)
171 | Me.fctb.TabIndex = 1
172 | Me.fctb.TabLength = 3
173 | Me.fctb.Zoom = 100
174 | '
175 | 'fctb_context_strip
176 | '
177 | Me.fctb_context_strip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_cut, Me.cm_copy, Me.cm_paste, Me.ToolStripSeparator4, Me.cm_delete, Me.seperator, Me.cm_undo, Me.cm_redo})
178 | Me.fctb_context_strip.Name = "ContextMenuStrip1"
179 | Me.fctb_context_strip.Size = New System.Drawing.Size(108, 148)
180 | '
181 | 'ToolStripSeparator4
182 | '
183 | Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
184 | Me.ToolStripSeparator4.Size = New System.Drawing.Size(104, 6)
185 | '
186 | 'seperator
187 | '
188 | Me.seperator.Name = "seperator"
189 | Me.seperator.Size = New System.Drawing.Size(104, 6)
190 | '
191 | 'OpenFileDialog1
192 | '
193 | Me.OpenFileDialog1.FileName = "OpenFileDialog1"
194 | '
195 | 'cm_cut
196 | '
197 | Me.cm_cut.Image = CType(resources.GetObject("cm_cut.Image"), System.Drawing.Image)
198 | Me.cm_cut.Name = "cm_cut"
199 | Me.cm_cut.Size = New System.Drawing.Size(107, 22)
200 | Me.cm_cut.Text = "Cut"
201 | '
202 | 'cm_copy
203 | '
204 | Me.cm_copy.Image = CType(resources.GetObject("cm_copy.Image"), System.Drawing.Image)
205 | Me.cm_copy.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
206 | Me.cm_copy.Name = "cm_copy"
207 | Me.cm_copy.Size = New System.Drawing.Size(107, 22)
208 | Me.cm_copy.Text = "Copy"
209 | '
210 | 'cm_paste
211 | '
212 | Me.cm_paste.Image = CType(resources.GetObject("cm_paste.Image"), System.Drawing.Image)
213 | Me.cm_paste.Name = "cm_paste"
214 | Me.cm_paste.Size = New System.Drawing.Size(107, 22)
215 | Me.cm_paste.Text = "Paste"
216 | '
217 | 'cm_delete
218 | '
219 | Me.cm_delete.Image = Global.xml_editor.My.Resources.Resources.delete
220 | Me.cm_delete.Name = "cm_delete"
221 | Me.cm_delete.Size = New System.Drawing.Size(107, 22)
222 | Me.cm_delete.Text = "Delete"
223 | '
224 | 'cm_undo
225 | '
226 | Me.cm_undo.Image = Global.xml_editor.My.Resources.Resources.Undo_16x_32
227 | Me.cm_undo.ImageTransparentColor = System.Drawing.Color.Black
228 | Me.cm_undo.Name = "cm_undo"
229 | Me.cm_undo.Size = New System.Drawing.Size(107, 22)
230 | Me.cm_undo.Text = "Undo"
231 | '
232 | 'cm_redo
233 | '
234 | Me.cm_redo.Image = Global.xml_editor.My.Resources.Resources.Redo_16x_32
235 | Me.cm_redo.ImageTransparentColor = System.Drawing.Color.Black
236 | Me.cm_redo.Name = "cm_redo"
237 | Me.cm_redo.Size = New System.Drawing.Size(107, 22)
238 | Me.cm_redo.Text = "Redo"
239 | '
240 | 'OpenToolStripButton
241 | '
242 | Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
243 | Me.OpenToolStripButton.Image = CType(resources.GetObject("OpenToolStripButton.Image"), System.Drawing.Image)
244 | Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
245 | Me.OpenToolStripButton.Name = "OpenToolStripButton"
246 | Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22)
247 | Me.OpenToolStripButton.Text = "&Open"
248 | '
249 | 'SaveToolStripButton
250 | '
251 | Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
252 | Me.SaveToolStripButton.Image = CType(resources.GetObject("SaveToolStripButton.Image"), System.Drawing.Image)
253 | Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
254 | Me.SaveToolStripButton.Name = "SaveToolStripButton"
255 | Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22)
256 | Me.SaveToolStripButton.Text = "&Save"
257 | '
258 | 'm_save_as
259 | '
260 | Me.m_save_as.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
261 | Me.m_save_as.Image = Global.xml_editor.My.Resources.Resources.disk
262 | Me.m_save_as.ImageTransparentColor = System.Drawing.Color.Magenta
263 | Me.m_save_as.Name = "m_save_as"
264 | Me.m_save_as.Size = New System.Drawing.Size(23, 22)
265 | Me.m_save_as.Text = "ToolStripButton2"
266 | Me.m_save_as.ToolTipText = "Save As..."
267 | '
268 | 'CutToolStripButton
269 | '
270 | Me.CutToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
271 | Me.CutToolStripButton.Image = CType(resources.GetObject("CutToolStripButton.Image"), System.Drawing.Image)
272 | Me.CutToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
273 | Me.CutToolStripButton.Name = "CutToolStripButton"
274 | Me.CutToolStripButton.Size = New System.Drawing.Size(23, 22)
275 | Me.CutToolStripButton.Text = "C&ut"
276 | '
277 | 'CopyToolStripButton
278 | '
279 | Me.CopyToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
280 | Me.CopyToolStripButton.Image = CType(resources.GetObject("CopyToolStripButton.Image"), System.Drawing.Image)
281 | Me.CopyToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
282 | Me.CopyToolStripButton.Name = "CopyToolStripButton"
283 | Me.CopyToolStripButton.Size = New System.Drawing.Size(23, 22)
284 | Me.CopyToolStripButton.Text = "&Copy"
285 | '
286 | 'PasteToolStripButton
287 | '
288 | Me.PasteToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
289 | Me.PasteToolStripButton.Image = CType(resources.GetObject("PasteToolStripButton.Image"), System.Drawing.Image)
290 | Me.PasteToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
291 | Me.PasteToolStripButton.Name = "PasteToolStripButton"
292 | Me.PasteToolStripButton.Size = New System.Drawing.Size(23, 22)
293 | Me.PasteToolStripButton.Text = "&Paste"
294 | '
295 | 'm_Delete
296 | '
297 | Me.m_Delete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
298 | Me.m_Delete.Image = Global.xml_editor.My.Resources.Resources.delete
299 | Me.m_Delete.ImageTransparentColor = System.Drawing.Color.Magenta
300 | Me.m_Delete.Name = "m_Delete"
301 | Me.m_Delete.Size = New System.Drawing.Size(23, 22)
302 | Me.m_Delete.Text = "ToolStripButton2"
303 | Me.m_Delete.ToolTipText = "Delete"
304 | '
305 | 'm_undo
306 | '
307 | Me.m_undo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
308 | Me.m_undo.Image = Global.xml_editor.My.Resources.Resources.Undo_16x_32
309 | Me.m_undo.ImageTransparentColor = System.Drawing.Color.Black
310 | Me.m_undo.Name = "m_undo"
311 | Me.m_undo.Size = New System.Drawing.Size(23, 22)
312 | Me.m_undo.Text = "ToolStripButton1"
313 | Me.m_undo.ToolTipText = "Undo"
314 | '
315 | 'm_redo
316 | '
317 | Me.m_redo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
318 | Me.m_redo.Image = Global.xml_editor.My.Resources.Resources.Redo_16x_32
319 | Me.m_redo.ImageTransparentColor = System.Drawing.Color.Black
320 | Me.m_redo.Name = "m_redo"
321 | Me.m_redo.Size = New System.Drawing.Size(23, 22)
322 | Me.m_redo.Text = "ToolStripButton1"
323 | Me.m_redo.ToolTipText = "Redo"
324 | '
325 | 'm_search
326 | '
327 | Me.m_search.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
328 | Me.m_search.Image = Global.xml_editor.My.Resources.Resources.Find
329 | Me.m_search.ImageTransparentColor = System.Drawing.Color.Black
330 | Me.m_search.Name = "m_search"
331 | Me.m_search.Size = New System.Drawing.Size(23, 22)
332 | Me.m_search.Text = "ToolStripButton1"
333 | Me.m_search.ToolTipText = "Seaarch"
334 | '
335 | 'ToolStripButton1
336 | '
337 | Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
338 | Me.ToolStripButton1.Image = Global.xml_editor.My.Resources.Resources.fonfont
339 | Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
340 | Me.ToolStripButton1.Name = "ToolStripButton1"
341 | Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
342 | Me.ToolStripButton1.Text = "Font"
343 | '
344 | 'm_set_colors
345 | '
346 | Me.m_set_colors.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
347 | Me.m_set_colors.Image = Global.xml_editor.My.Resources.Resources.ColorDialog_671_24
348 | Me.m_set_colors.ImageTransparentColor = System.Drawing.Color.Magenta
349 | Me.m_set_colors.Name = "m_set_colors"
350 | Me.m_set_colors.Size = New System.Drawing.Size(23, 22)
351 | Me.m_set_colors.ToolTipText = "Set Colors"
352 | '
353 | 'm_help
354 | '
355 | Me.m_help.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
356 | Me.m_help.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
357 | Me.m_help.Image = Global.xml_editor.My.Resources.Resources.AllAnnotations_Help_24x24_72
358 | Me.m_help.ImageTransparentColor = System.Drawing.Color.Magenta
359 | Me.m_help.Name = "m_help"
360 | Me.m_help.Size = New System.Drawing.Size(23, 22)
361 | Me.m_help.Text = "ToolStripButton2"
362 | Me.m_help.ToolTipText = "Help"
363 | '
364 | 'frmMain
365 | '
366 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 13.0!)
367 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
368 | Me.ClientSize = New System.Drawing.Size(749, 505)
369 | Me.Controls.Add(Me.fctb)
370 | Me.Controls.Add(Me.ToolStrip1)
371 | Me.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
372 | Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
373 | Me.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
374 | Me.Name = "frmMain"
375 | Me.Text = "Wot XML Editor"
376 | Me.ToolStrip1.ResumeLayout(False)
377 | Me.ToolStrip1.PerformLayout()
378 | CType(Me.fctb, System.ComponentModel.ISupportInitialize).EndInit()
379 | Me.fctb_context_strip.ResumeLayout(False)
380 | Me.ResumeLayout(False)
381 | Me.PerformLayout()
382 |
383 | End Sub
384 | Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
385 | Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton
386 | Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton
387 | Friend WithEvents toolStripSeparator As System.Windows.Forms.ToolStripSeparator
388 | Friend WithEvents CutToolStripButton As System.Windows.Forms.ToolStripButton
389 | Friend WithEvents CopyToolStripButton As System.Windows.Forms.ToolStripButton
390 | Friend WithEvents PasteToolStripButton As System.Windows.Forms.ToolStripButton
391 | Friend WithEvents toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
392 | Friend WithEvents fctb As FastColoredTextBoxNS.FastColoredTextBox
393 | Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
394 | Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
395 | Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
396 | Friend WithEvents m_search_text As System.Windows.Forms.ToolStripTextBox
397 | Friend WithEvents m_search As System.Windows.Forms.ToolStripButton
398 | Friend WithEvents m_Delete As System.Windows.Forms.ToolStripButton
399 | Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
400 | Friend WithEvents m_undo As System.Windows.Forms.ToolStripButton
401 | Friend WithEvents m_redo As System.Windows.Forms.ToolStripButton
402 | Friend WithEvents m_edit_Filter As System.Windows.Forms.ToolStripButton
403 | Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
404 | Friend WithEvents m_Select_Font As System.Windows.Forms.ToolStripSeparator
405 | Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
406 | Friend WithEvents fctb_context_strip As System.Windows.Forms.ContextMenuStrip
407 | Friend WithEvents cm_cut As System.Windows.Forms.ToolStripMenuItem
408 | Friend WithEvents cm_copy As System.Windows.Forms.ToolStripMenuItem
409 | Friend WithEvents cm_paste As System.Windows.Forms.ToolStripMenuItem
410 | Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
411 | Friend WithEvents cm_delete As System.Windows.Forms.ToolStripMenuItem
412 | Friend WithEvents seperator As System.Windows.Forms.ToolStripSeparator
413 | Friend WithEvents cm_undo As System.Windows.Forms.ToolStripMenuItem
414 | Friend WithEvents cm_redo As System.Windows.Forms.ToolStripMenuItem
415 | Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
416 | Friend WithEvents m_set_colors As System.Windows.Forms.ToolStripButton
417 | Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
418 | Friend WithEvents m_help As System.Windows.Forms.ToolStripButton
419 | Friend WithEvents m_save_as As ToolStripButton
420 | End Class
421 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/frmMain.vb:
--------------------------------------------------------------------------------
1 |
2 | Imports System.IO
3 | Imports System.String
4 |
5 | Imports FastColoredTextBoxNS
6 |
7 | Imports System.Text.RegularExpressions
8 |
9 | Imports System.Globalization
10 |
11 | Public Class frmMain
12 | Dim position As Integer = 1
13 | Dim opened_file_name As String = ""
14 | Dim keyWords As String = ""
15 | '----------------------------------------------
16 | Public numeric_ As New TextStyle(Brushes.PaleGreen, Nothing, FontStyle.Regular)
17 | Public tags_ As New TextStyle(Nothing, Nothing, FontStyle.Regular Or FontStyle.Underline)
18 | Public text_ As New TextStyle(Brushes.Gray, Nothing, FontStyle.Regular)
19 | Public properties_ As New TextStyle(Brushes.PowderBlue, Nothing, FontStyle.Regular)
20 | Public allother_ As New TextStyle(Brushes.LightSeaGreen, Nothing, FontStyle.Regular)
21 |
22 | Dim SameWordsStyle As MarkerStyle = New MarkerStyle(New SolidBrush(Color.FromArgb(40, Color.Gray)))
23 |
24 | Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
25 | If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.S Then
26 | SaveToolStripButton.PerformClick()
27 | End If
28 | If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.O Then
29 | OpenToolStripButton.PerformClick()
30 | End If
31 | End Sub
32 |
33 |
34 |
35 | Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
36 | My.Settings.Upgrade() ' upgrades to keep old settings
37 |
38 | Dim nonInvariantCulture As System.Globalization.CultureInfo = New CultureInfo("en-US")
39 | nonInvariantCulture.NumberFormat.NumberDecimalSeparator = "."
40 | System.Threading.Thread.CurrentThread.CurrentCulture = nonInvariantCulture
41 |
42 | Dim arguments() As String = Environment.GetCommandLineArgs()
43 |
44 | Dim ts = IO.File.ReadAllText(Application.StartupPath + "\filtered_strings.txt")
45 | filterlist = ts.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
46 | set_keywords()
47 | Me.Show()
48 | Application.DoEvents()
49 | Application.DoEvents()
50 | Application.DoEvents()
51 | Application.DoEvents()
52 | 'frmSetColors.Show()
53 | get_color_settings()
54 | set_styles()
55 | Me.Text = "World of Tanks Binary XML Converter and Editor :"
56 | Me.Text += " Version:" + Application.ProductVersion
57 | Temp_Storage = Path.GetTempPath ' this gets the user temp storage folder
58 | Temp_Storage += "wot_xml_temp"
59 | If Not System.IO.Directory.Exists(Temp_Storage) Then
60 | System.IO.Directory.CreateDirectory(Temp_Storage)
61 | End If
62 |
63 | associate_files() 'broken in windows 10
64 | Me.KeyPreview = True 'so i catch keyboard before despatching it
65 | 'End If
66 | Dim fs As String = ""
67 | If arguments IsNot Nothing Then
68 | For i = 0 To arguments.Length - 1
69 | fs += arguments(i) + vbCrLf
70 | Next
71 | If arguments.Length > 1 Then
72 | Dim s1 = arguments(1)
73 | If s1 <> String.Empty Then
74 | opened_file_name = s1
75 | Me.Text = "File: " + opened_file_name
76 | 'IO.File.WriteAllText("C:\temp_\test.txt", fs + vbCrLf + "Made it")
77 | openVisual(s1)
78 | End If
79 | End If
80 |
81 | End If
82 |
83 | End Sub
84 | Private Sub get_color_settings()
85 | colors(0) = My.Settings.numeric
86 | colors(1) = My.Settings.tags
87 | colors(2) = My.Settings.textures
88 | colors(3) = My.Settings.props
89 | colors(4) = My.Settings.allothers
90 | For i = 0 To 4
91 | Dim state As Boolean = False
92 | Select Case i
93 | Case 0
94 | state = My.Settings.n_checked
95 | Case 1
96 | state = My.Settings.t_checked
97 | Case 2
98 | state = My.Settings.tex_c
99 | Case 3
100 | state = My.Settings.prop_c
101 | Case 4
102 | state = My.Settings.all_c
103 | End Select
104 | If state Then
105 | text_style(i) = 1
106 | Else
107 | text_style(i) = 0
108 | End If
109 | Next
110 | End Sub
111 |
112 | Private Sub associate_files()
113 | CreateFileAssociation(".model", "wot_visual_file", "Wot model file", Application.StartupPath + "\" + "WoT_Xml_Editor.exe")
114 | CreateFileAssociation(".visual_processed", "wot_visual_file", "Wot visual_processed file", Application.StartupPath + "\" + "WoT_Xml_Editor.exe")
115 | CreateFileAssociation(".visual", "wot_visual_file", "Wot Visual File", Application.StartupPath + "\" + "WoT_Xml_Editor.exe")
116 | CreateFileAssociation(".xml", "wot_visual_file", "XML File", Application.StartupPath + "\" + "WoT_Xml_Editor.exe")
117 | CreateFileAssociation(".settings", "wot_visual_file", "Settings File", Application.StartupPath + "\" + "WoT_Xml_Editor.exe")
118 | End Sub
119 |
120 | Shared Sub _
121 | SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, _
122 | ByVal dwItem1 As Integer, ByVal dwItem2 As Integer)
123 | End Sub
124 | ' Create the new file association
125 | '
126 | ' Extension is the extension to be registered (eg ".cad"
127 | ' ClassName is the name of the associated class (eg "CADDoc")
128 | ' Description is the textual description (eg "CAD Document"
129 | ' ExeProgram is the app that manages that extension (eg "c:\Cad\MyCad.exe")
130 | Function CreateFileAssociation(ByVal extension As String, _
131 | ByVal className As String, ByVal description As String, _
132 | ByVal exeProgram As String) As Boolean
133 |
134 | ' ensure that there is a leading dot
135 | If extension.Substring(0, 1) <> "." Then
136 | extension = "." & extension
137 | End If
138 |
139 | Dim key1, key2, key3, key4 As Microsoft.Win32.RegistryKey
140 | Try
141 | ' create a value for this key that contains the classname
142 | key1 = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(extension)
143 | key1.SetValue("", className)
144 | ' create a new key for the Class name
145 | key2 = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(className)
146 | key2.SetValue("", description)
147 | ' associate the program to open the files with this extension
148 | key3 = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(className & _
149 | "\Shell\Open\Command")
150 | key3.SetValue("", exeProgram & " ""%1""")
151 | Dim extstr = "Software\Microsoft\Windows\CurrentVersion\ Explorer\FileExts\" + extension + "\UserChoice"
152 | key4 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(extstr, True)
153 | If key4 IsNot Nothing Then
154 | key4.SetValue("", "application\" + exeProgram)
155 | End If
156 | Catch e As Exception
157 | Return False
158 | Finally
159 | If key1 IsNot Nothing Then key1.Close()
160 | If key2 IsNot Nothing Then key2.Close()
161 | If key3 IsNot Nothing Then key3.Close()
162 | If key4 IsNot Nothing Then key3.Close()
163 | End Try
164 |
165 | ' notify Windows that file associations have changed
166 | 'SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)
167 | Return True
168 | End Function
169 |
170 |
171 | Private Sub OpenToolStripButton_Click(sender As Object, e As EventArgs) Handles OpenToolStripButton.Click
172 | OpenFileDialog1.Filter = "visual_processed (*.visual_processed)|*.visual_processed|model (*.model)|*.model|visual (*.visual)|*.visual|XML (*.xml)|*.xml|All Files (*.*)|*.*"
173 | OpenFileDialog1.FileName = ""
174 | position = 1
175 | Try
176 | fctb.Text = ""
177 | Catch ex As Exception
178 |
179 | End Try
180 | If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
181 | opened_file_name = OpenFileDialog1.FileName
182 | Me.Text = "File: " + opened_file_name
183 | openVisual(OpenFileDialog1.FileName)
184 | End If
185 |
186 | End Sub
187 |
188 | Private Sub SaveToolStripButton_Click(sender As Object, e As EventArgs) Handles SaveToolStripButton.Click
189 | Dim txt = fctb.Text.Replace("shared", "shared")
190 | txt = txt.Replace(" ", "")
191 | For i = 90 To 0 Step -1
192 | Dim ast = txt.Replace("" + ControlChars.CrLf.ToCharArray() + "" + i.ToString + "", "" + i.ToString)
193 | txt = ast
194 | Next
195 | txt = txt.Replace("><", ">" + vbCrLf + "<")
196 | txt = txt.Replace(vbCrLf, vbLf)
197 | If Not txt.Contains("!--") Then
198 | txt = txt.Replace("", "")
200 | End If
201 | 'txt = txt + vbLf
202 |
203 | txt = txt.Replace("rect1x4direction",
204 | "rect1x4 direction")
205 |
206 | txt = txt.Replace("squaredirection",
207 | "square direction")
208 |
209 | txt = txt.Replace("rightformfactor",
210 | "right formfactor")
211 |
212 | txt = txt.Replace("rect1x3direction",
213 | "rect1x3 direction")
214 |
215 | txt = txt.Replace("rect1x2direction",
216 | "rect1x2 direction")
217 |
218 | txt = txt.Replace("rect1x6direction",
219 | "rect1x6 direction")
220 |
221 |
222 | If IO.File.Exists(opened_file_name) Then
223 | IO.File.WriteAllText(opened_file_name, txt)
224 | MsgBox("file Saved", MsgBoxStyle.OkOnly, "File Saved")
225 | End If
226 |
227 | End Sub
228 |
229 | Private Sub CutToolStripButton_Click(sender As Object, e As EventArgs) Handles CutToolStripButton.Click
230 | If fctb.Text.Length > 0 Then
231 | fctb.Cut()
232 | End If
233 | End Sub
234 |
235 | Private Sub CopyToolStripButton_Click(sender As Object, e As EventArgs) Handles CopyToolStripButton.Click
236 | If fctb.Text.Length > 0 Then
237 | fctb.Copy()
238 | End If
239 | End Sub
240 |
241 | Private Sub PasteToolStripButton_Click(sender As Object, e As EventArgs) Handles PasteToolStripButton.Click
242 | If fctb.Text.Length > 0 Then
243 | If Clipboard.ContainsText Then
244 | fctb.Paste()
245 | End If
246 | End If
247 | End Sub
248 |
249 | Private Sub m_Delete_Click(sender As Object, e As EventArgs) Handles m_Delete.Click
250 | If fctb.Text.Length > 0 Then
251 | fctb.ClearSelected()
252 | End If
253 |
254 | End Sub
255 |
256 | Private Sub m_undo_Click(sender As Object, e As EventArgs) Handles m_undo.Click
257 | If fctb.Text.Length > 0 Then
258 | fctb.Undo()
259 | End If
260 | End Sub
261 |
262 | Private Sub m_redo_Click(sender As Object, e As EventArgs) Handles m_redo.Click
263 | If fctb.Text.Length > 0 Then
264 | fctb.Redo()
265 | End If
266 | End Sub
267 |
268 | Private Sub m_search_Click(sender As Object, e As EventArgs) Handles m_search.Click
269 | search()
270 | End Sub
271 |
272 | Private Sub m_search_text_KeyDown(sender As Object, e As KeyEventArgs) Handles m_search_text.KeyDown
273 | If e.KeyCode = Keys.Enter Then
274 | If fctb.Text.Length > 0 Then
275 | search()
276 | End If
277 | End If
278 | e.Handled = True
279 | End Sub
280 |
281 |
282 | Private Sub m_search_text_TextChanged(sender As Object, e As EventArgs) Handles m_search_text.TextChanged
283 | position = 1
284 | End Sub
285 | Private Sub search()
286 | Dim s = InStr(position, fctb.Text.ToLower, m_search_text.Text.ToLower)
287 | If s > 0 Then
288 | fctb.Focus()
289 | fctb.SelectionStart = s - 1
290 | Application.DoEvents()
291 | fctb.DoSelectionVisible()
292 | fctb.SelectionLength = m_search_text.Text.Length
293 | Application.DoEvents()
294 | position = s + m_search_text.Text.Length
295 | Else
296 | position = 1
297 | End If
298 | End Sub
299 |
300 | Private Sub m_edit_Filter_Click(sender As Object, e As EventArgs) Handles m_edit_Filter.Click
301 | fctb.Text = ""
302 | fctb.Text = IO.File.ReadAllText(Application.StartupPath + "\filtered_strings.txt")
303 | opened_file_name = Application.StartupPath + "\filtered_strings.txt"
304 |
305 | Dim ts = IO.File.ReadAllText(Application.StartupPath + "\filtered_strings.txt")
306 | filterlist = ts.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
307 | set_keywords()
308 | End Sub
309 |
310 | Public Sub set_styles()
311 |
312 | fctb.Styles(0) = New TextStyle(getBrush(0), Nothing, text_style(0))
313 | fctb.Styles(1) = New TextStyle(getBrush(1), Nothing, text_style(1))
314 | fctb.Styles(2) = New TextStyle(getBrush(2), Nothing, text_style(2))
315 | fctb.Styles(3) = New TextStyle(getBrush(3), Nothing, text_style(3))
316 | fctb.Styles(4) = New TextStyle(getBrush(4), Nothing, text_style(4))
317 | Dim e As New TextChangedEventArgs(New FastColoredTextBoxNS.Range(fctb))
318 | 'fctb.ForeColor = colors(4)
319 | 'If text_style(4) = CheckState.Checked Then
320 | ' fctb.Font = New Font(fctb.Font, FontStyle.Bold)
321 | 'Else
322 | ' fctb.Font = New Font(fctb.Font, FontStyle.Regular)
323 | 'End If
324 |
325 | SyntaxHighlight(fctb, e)
326 | fctb.Refresh()
327 | Application.DoEvents()
328 |
329 | End Sub
330 | Private Sub set_keywords()
331 | keyWords = "\b("
332 | For Each s In filterlist
333 | If InStr(s, "#") = 0 Then
334 | If s.Length > 2 Then
335 | keyWords += s + "|"
336 | End If
337 | End If
338 | Next
339 | keyWords += "diffuseMap2|primitiveGroup|/primitiveGroup)\b"
340 | End Sub
341 |
342 | Private Function getBrush(Id As Integer) As SolidBrush
343 | Dim br As SolidBrush
344 | Dim c As Color
345 | c = colors(Id)
346 | br = New SolidBrush(c)
347 | Return br
348 | End Function
349 |
350 | Private Sub fctb_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) Handles fctb.TextChanged
351 | SyntaxHighlight(sender, e)
352 | End Sub
353 | Private Sub SyntaxHighlight(ByRef sender As FastColoredTextBox, e As TextChangedEventArgs)
354 | e.ChangedRange.SetFoldingMarkers("", "")
355 | sender.LeftBracket = "("c
356 | sender.RightBracket = ")"c
357 | sender.LeftBracket2 = ControlChars.NullChar
358 | sender.RightBracket2 = ControlChars.NullChar
359 | 'clear style of changed range
360 | e.ChangedRange.ClearStyle(fctb.Styles(0), fctb.Styles(1), fctb.Styles(2), fctb.Styles(3), fctb.Styles(4))
361 |
362 | 'string highlighting
363 | e.ChangedRange.SetStyle(fctb.Styles(4), "(.*?)")
364 | e.ChangedRange.SetStyle(fctb.Styles(2), "(?<=\).*?(?=\<\/Texture\>)", RegexOptions.Multiline)
365 |
366 | 'XML tags
367 | e.ChangedRange.SetStyle(fctb.Styles(1), "(<.[^(><.)]+>)", RegexOptions.Multiline)
368 |
369 | 'keyword highlighting
370 | e.ChangedRange.SetStyle(fctb.Styles(3), keyWords)
371 |
372 |
373 | 'number highlighting
374 | e.ChangedRange.SetStyle(fctb.Styles(0), "\b\d+[\.]?\d*([eE]\-?\d+)?[lLdDfF]?\b|\b0x[a-fA-F\d]+\b")
375 | 'clear folding markers
376 | e.ChangedRange.ClearFoldingMarkers()
377 |
378 |
379 | End Sub
380 |
381 |
382 |
383 | Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
384 | FontDialog1.FixedPitchOnly = True
385 | If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
386 | Dim f As System.Drawing.Font = FontDialog1.Font
387 | fctb.Font = f
388 | End If
389 | fctb.Update()
390 | End Sub
391 |
392 |
393 | Private Sub cm_cut_Click(sender As Object, e As EventArgs) Handles cm_cut.Click
394 | If fctb.Text.Length > 0 Then
395 | fctb.Cut()
396 | End If
397 | End Sub
398 |
399 | Private Sub cm_copy_Click(sender As Object, e As EventArgs) Handles cm_copy.Click
400 | If fctb.Text.Length > 0 Then
401 | fctb.Copy()
402 | End If
403 | End Sub
404 |
405 | Private Sub cm_paste_Click(sender As Object, e As EventArgs) Handles cm_paste.Click
406 | If fctb.Text.Length > 0 Then
407 | If Clipboard.ContainsText Then
408 | fctb.Paste()
409 | End If
410 | End If
411 | End Sub
412 |
413 | Private Sub cm_delete_Click(sender As Object, e As EventArgs) Handles cm_delete.Click
414 | If fctb.Text.Length > 0 Then
415 | fctb.ClearSelected()
416 | End If
417 | End Sub
418 |
419 | Private Sub cm_undo_Click(sender As Object, e As EventArgs) Handles cm_undo.Click
420 | If fctb.Text.Length > 0 Then
421 | fctb.Undo()
422 | End If
423 | End Sub
424 |
425 | Private Sub cm_redo_Click(sender As Object, e As EventArgs) Handles cm_redo.Click
426 | If fctb.Text.Length > 0 Then
427 | fctb.Redo()
428 | End If
429 | End Sub
430 |
431 | Private Sub OpenToolStripButton_MouseEnter(sender As Object, e As EventArgs) Handles OpenToolStripButton.MouseEnter
432 | ToolStrip1.Focus()
433 | End Sub
434 |
435 | Private Sub ToolStrip1_Enter(sender As Object, e As EventArgs) Handles ToolStrip1.Enter
436 | ToolStrip1.Focus()
437 | End Sub
438 |
439 |
440 | Private Sub m_set_colors_Click(sender As Object, e As EventArgs) Handles m_set_colors.Click
441 | frmSetColors.Show()
442 | End Sub
443 |
444 | Private Sub m_help_Click(sender As Object, e As EventArgs) Handles m_help.Click
445 | Dim s As String = Application.StartupPath
446 | System.Diagnostics.Process.Start(s + "\html\help.html")
447 | End Sub
448 |
449 | Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
450 |
451 | End Sub
452 |
453 | Private Sub m_save_as_Click(sender As Object, e As EventArgs) Handles m_save_as.Click
454 | SaveFileDialog1.Filter = "visual_processed (*.visual_processed)|*.visual_processed|model (*.model)|*.model|visual (*.visual)|*.visual|XML (*.xml)|*.xml|All Files (*.*)|*.*"
455 | SaveFileDialog1.FileName = opened_file_name
456 | If SaveFileDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
457 | Dim txt = fctb.Text.Replace("shared", "shared")
458 | txt = txt.Replace(" ", "")
459 | For i = 90 To 0 Step -1
460 | Dim ast = txt.Replace("" + ControlChars.CrLf.ToCharArray() + "" + i.ToString + "", "" + i.ToString)
461 | txt = ast
462 | Next
463 | txt = txt.Replace("><", ">" + vbCrLf + "<")
464 | txt = txt.Replace(vbCrLf, vbLf)
465 | If Not txt.Contains("!--") Then
466 | txt = txt.Replace("", "")
468 | End If
469 | 'txt = txt + vbLf
470 |
471 | txt = txt.Replace("rect1x4direction",
472 | "rect1x4 direction")
473 |
474 | txt = txt.Replace("squaredirection",
475 | "square direction")
476 |
477 | txt = txt.Replace("rightformfactor",
478 | "right formfactor")
479 |
480 | txt = txt.Replace("rect1x3direction",
481 | "rect1x3 direction")
482 |
483 | txt = txt.Replace("rect1x2direction",
484 | "rect1x2 direction")
485 |
486 | txt = txt.Replace("rect1x6direction",
487 | "rect1x6 direction")
488 |
489 |
490 |
491 | IO.File.WriteAllText(SaveFileDialog1.FileName, txt)
492 | End If
493 |
494 | End Sub
495 |
496 |
497 |
498 | 'Private Function Left(sFolder As String, p2 As Integer) As Object
499 | ' Throw New NotImplementedException
500 | 'End Function
501 |
502 | End Class
503 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/frmSetColors.Designer.vb:
--------------------------------------------------------------------------------
1 | _
2 | Partial Class frmSetColors
3 | Inherits System.Windows.Forms.Form
4 |
5 | 'Form overrides dispose to clean up the component list.
6 | _
7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8 | Try
9 | If disposing AndAlso components IsNot Nothing Then
10 | components.Dispose()
11 | End If
12 | Finally
13 | MyBase.Dispose(disposing)
14 | End Try
15 | End Sub
16 |
17 | 'Required by the Windows Form Designer
18 | Private components As System.ComponentModel.IContainer
19 |
20 | 'NOTE: The following procedure is required by the Windows Form Designer
21 | 'It can be modified using the Windows Form Designer.
22 | 'Do not modify it using the code editor.
23 | _
24 | Private Sub InitializeComponent()
25 | Me.Panel1 = New System.Windows.Forms.Panel()
26 | Me.cb5 = New System.Windows.Forms.CheckBox()
27 | Me.Label1 = New System.Windows.Forms.Label()
28 | Me.Label5 = New System.Windows.Forms.Label()
29 | Me.Label4 = New System.Windows.Forms.Label()
30 | Me.Label3 = New System.Windows.Forms.Label()
31 | Me.Label2 = New System.Windows.Forms.Label()
32 | Me.Panel2 = New System.Windows.Forms.Panel()
33 | Me.cb4 = New System.Windows.Forms.CheckBox()
34 | Me.cb3 = New System.Windows.Forms.CheckBox()
35 | Me.cb2 = New System.Windows.Forms.CheckBox()
36 | Me.cb1 = New System.Windows.Forms.CheckBox()
37 | Me.allother = New System.Windows.Forms.Panel()
38 | Me.properties_ = New System.Windows.Forms.Panel()
39 | Me.texture_ = New System.Windows.Forms.Panel()
40 | Me.tags_ = New System.Windows.Forms.Panel()
41 | Me.nums_ = New System.Windows.Forms.Panel()
42 | Me.Panel1.SuspendLayout()
43 | Me.SuspendLayout()
44 | '
45 | 'Panel1
46 | '
47 | Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
48 | Me.Panel1.Controls.Add(Me.cb5)
49 | Me.Panel1.Controls.Add(Me.cb4)
50 | Me.Panel1.Controls.Add(Me.cb3)
51 | Me.Panel1.Controls.Add(Me.cb2)
52 | Me.Panel1.Controls.Add(Me.cb1)
53 | Me.Panel1.Controls.Add(Me.allother)
54 | Me.Panel1.Controls.Add(Me.properties_)
55 | Me.Panel1.Controls.Add(Me.Label1)
56 | Me.Panel1.Controls.Add(Me.texture_)
57 | Me.Panel1.Controls.Add(Me.tags_)
58 | Me.Panel1.Controls.Add(Me.nums_)
59 | Me.Panel1.Controls.Add(Me.Label5)
60 | Me.Panel1.Controls.Add(Me.Label4)
61 | Me.Panel1.Controls.Add(Me.Label3)
62 | Me.Panel1.Controls.Add(Me.Label2)
63 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
64 | Me.Panel1.Location = New System.Drawing.Point(0, 0)
65 | Me.Panel1.Name = "Panel1"
66 | Me.Panel1.Size = New System.Drawing.Size(131, 323)
67 | Me.Panel1.TabIndex = 0
68 | '
69 | 'cb5
70 | '
71 | Me.cb5.AutoSize = True
72 | Me.cb5.Checked = Global.xml_editor.My.MySettings.Default.all_c
73 | Me.cb5.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.xml_editor.My.MySettings.Default, "all_c", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
74 | Me.cb5.ForeColor = System.Drawing.Color.White
75 | Me.cb5.Location = New System.Drawing.Point(78, 265)
76 | Me.cb5.Name = "cb5"
77 | Me.cb5.Size = New System.Drawing.Size(47, 17)
78 | Me.cb5.TabIndex = 1
79 | Me.cb5.Text = "Bold"
80 | Me.cb5.UseVisualStyleBackColor = True
81 | '
82 | 'Label1
83 | '
84 | Me.Label1.AutoSize = True
85 | Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
86 | Me.Label1.ForeColor = System.Drawing.Color.White
87 | Me.Label1.Location = New System.Drawing.Point(5, 8)
88 | Me.Label1.Name = "Label1"
89 | Me.Label1.Size = New System.Drawing.Size(46, 13)
90 | Me.Label1.TabIndex = 0
91 | Me.Label1.Text = "Numeric"
92 | '
93 | 'Label5
94 | '
95 | Me.Label5.AutoSize = True
96 | Me.Label5.ForeColor = System.Drawing.Color.White
97 | Me.Label5.Location = New System.Drawing.Point(5, 265)
98 | Me.Label5.Name = "Label5"
99 | Me.Label5.Size = New System.Drawing.Size(69, 13)
100 | Me.Label5.TabIndex = 4
101 | Me.Label5.Text = "All other Text"
102 | '
103 | 'Label4
104 | '
105 | Me.Label4.AutoSize = True
106 | Me.Label4.ForeColor = System.Drawing.Color.White
107 | Me.Label4.Location = New System.Drawing.Point(3, 138)
108 | Me.Label4.Name = "Label4"
109 | Me.Label4.Size = New System.Drawing.Size(71, 13)
110 | Me.Label4.TabIndex = 3
111 | Me.Label4.Text = "Texture Lines"
112 | '
113 | 'Label3
114 | '
115 | Me.Label3.AutoSize = True
116 | Me.Label3.ForeColor = System.Drawing.Color.White
117 | Me.Label3.Location = New System.Drawing.Point(5, 74)
118 | Me.Label3.Name = "Label3"
119 | Me.Label3.Size = New System.Drawing.Size(56, 13)
120 | Me.Label3.TabIndex = 2
121 | Me.Label3.Text = "XML Tags"
122 | '
123 | 'Label2
124 | '
125 | Me.Label2.AutoSize = True
126 | Me.Label2.ForeColor = System.Drawing.Color.White
127 | Me.Label2.Location = New System.Drawing.Point(3, 201)
128 | Me.Label2.Name = "Label2"
129 | Me.Label2.Size = New System.Drawing.Size(72, 13)
130 | Me.Label2.TabIndex = 1
131 | Me.Label2.Text = "Property Keys"
132 | '
133 | 'Panel2
134 | '
135 | Me.Panel2.AutoScroll = True
136 | Me.Panel2.BackColor = System.Drawing.Color.Gray
137 | Me.Panel2.Cursor = System.Windows.Forms.Cursors.Hand
138 | Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
139 | Me.Panel2.Location = New System.Drawing.Point(146, 0)
140 | Me.Panel2.Name = "Panel2"
141 | Me.Panel2.Size = New System.Drawing.Size(107, 323)
142 | Me.Panel2.TabIndex = 1
143 | '
144 | 'cb4
145 | '
146 | Me.cb4.AutoSize = True
147 | Me.cb4.Checked = Global.xml_editor.My.MySettings.Default.prop_c
148 | Me.cb4.CheckState = System.Windows.Forms.CheckState.Checked
149 | Me.cb4.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.xml_editor.My.MySettings.Default, "prop_c", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
150 | Me.cb4.ForeColor = System.Drawing.Color.White
151 | Me.cb4.Location = New System.Drawing.Point(78, 200)
152 | Me.cb4.Name = "cb4"
153 | Me.cb4.Size = New System.Drawing.Size(47, 17)
154 | Me.cb4.TabIndex = 1
155 | Me.cb4.Text = "Bold"
156 | Me.cb4.UseVisualStyleBackColor = True
157 | '
158 | 'cb3
159 | '
160 | Me.cb3.AutoSize = True
161 | Me.cb3.Checked = Global.xml_editor.My.MySettings.Default.tex_c
162 | Me.cb3.CheckState = System.Windows.Forms.CheckState.Checked
163 | Me.cb3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.xml_editor.My.MySettings.Default, "tex_c", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
164 | Me.cb3.ForeColor = System.Drawing.Color.White
165 | Me.cb3.Location = New System.Drawing.Point(78, 137)
166 | Me.cb3.Name = "cb3"
167 | Me.cb3.Size = New System.Drawing.Size(47, 17)
168 | Me.cb3.TabIndex = 1
169 | Me.cb3.Text = "Bold"
170 | Me.cb3.UseVisualStyleBackColor = True
171 | '
172 | 'cb2
173 | '
174 | Me.cb2.AutoSize = True
175 | Me.cb2.Checked = Global.xml_editor.My.MySettings.Default.t_checked
176 | Me.cb2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.xml_editor.My.MySettings.Default, "t_checked", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
177 | Me.cb2.Location = New System.Drawing.Point(78, 74)
178 | Me.cb2.Name = "cb2"
179 | Me.cb2.Size = New System.Drawing.Size(47, 17)
180 | Me.cb2.TabIndex = 1
181 | Me.cb2.Text = "Bold"
182 | Me.cb2.UseVisualStyleBackColor = True
183 | '
184 | 'cb1
185 | '
186 | Me.cb1.AutoSize = True
187 | Me.cb1.Checked = Global.xml_editor.My.MySettings.Default.n_checked
188 | Me.cb1.CheckState = System.Windows.Forms.CheckState.Checked
189 | Me.cb1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.xml_editor.My.MySettings.Default, "n_checked", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
190 | Me.cb1.ForeColor = System.Drawing.Color.White
191 | Me.cb1.Location = New System.Drawing.Point(80, 8)
192 | Me.cb1.Name = "cb1"
193 | Me.cb1.Size = New System.Drawing.Size(47, 17)
194 | Me.cb1.TabIndex = 0
195 | Me.cb1.Text = "Bold"
196 | Me.cb1.UseVisualStyleBackColor = True
197 | '
198 | 'allother
199 | '
200 | Me.allother.BackColor = Global.xml_editor.My.MySettings.Default.allothers
201 | Me.allother.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.xml_editor.My.MySettings.Default, "allothers", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
202 | Me.allother.Location = New System.Drawing.Point(0, 285)
203 | Me.allother.Margin = New System.Windows.Forms.Padding(0)
204 | Me.allother.Name = "allother"
205 | Me.allother.Size = New System.Drawing.Size(131, 38)
206 | Me.allother.TabIndex = 5
207 | Me.allother.Tag = "4"
208 | '
209 | 'properties_
210 | '
211 | Me.properties_.BackColor = Global.xml_editor.My.MySettings.Default.props
212 | Me.properties_.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.xml_editor.My.MySettings.Default, "props", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
213 | Me.properties_.Location = New System.Drawing.Point(0, 220)
214 | Me.properties_.Margin = New System.Windows.Forms.Padding(0)
215 | Me.properties_.Name = "properties_"
216 | Me.properties_.Size = New System.Drawing.Size(131, 38)
217 | Me.properties_.TabIndex = 4
218 | Me.properties_.Tag = "3"
219 | '
220 | 'texture_
221 | '
222 | Me.texture_.BackColor = Global.xml_editor.My.MySettings.Default.textures
223 | Me.texture_.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.xml_editor.My.MySettings.Default, "textures", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
224 | Me.texture_.Location = New System.Drawing.Point(0, 157)
225 | Me.texture_.Margin = New System.Windows.Forms.Padding(0)
226 | Me.texture_.Name = "texture_"
227 | Me.texture_.Size = New System.Drawing.Size(131, 38)
228 | Me.texture_.TabIndex = 3
229 | Me.texture_.Tag = "2"
230 | '
231 | 'tags_
232 | '
233 | Me.tags_.BackColor = Global.xml_editor.My.MySettings.Default.tags
234 | Me.tags_.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.xml_editor.My.MySettings.Default, "tags", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
235 | Me.tags_.Location = New System.Drawing.Point(0, 93)
236 | Me.tags_.Margin = New System.Windows.Forms.Padding(0)
237 | Me.tags_.Name = "tags_"
238 | Me.tags_.Size = New System.Drawing.Size(131, 38)
239 | Me.tags_.TabIndex = 2
240 | Me.tags_.Tag = "1"
241 | '
242 | 'nums_
243 | '
244 | Me.nums_.BackColor = Global.xml_editor.My.MySettings.Default.numeric
245 | Me.nums_.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.xml_editor.My.MySettings.Default, "numeric", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
246 | Me.nums_.Location = New System.Drawing.Point(0, 28)
247 | Me.nums_.Margin = New System.Windows.Forms.Padding(0)
248 | Me.nums_.Name = "nums_"
249 | Me.nums_.Size = New System.Drawing.Size(131, 38)
250 | Me.nums_.TabIndex = 1
251 | Me.nums_.Tag = "0"
252 | '
253 | 'frmSetColors
254 | '
255 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
256 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
257 | Me.BackColor = System.Drawing.Color.DimGray
258 | Me.ClientSize = New System.Drawing.Size(253, 323)
259 | Me.Controls.Add(Me.Panel2)
260 | Me.Controls.Add(Me.Panel1)
261 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
262 | Me.Name = "frmSetColors"
263 | Me.Text = "Set HighLight Colors"
264 | Me.TopMost = True
265 | Me.Panel1.ResumeLayout(False)
266 | Me.Panel1.PerformLayout()
267 | Me.ResumeLayout(False)
268 |
269 | End Sub
270 | Friend WithEvents Panel1 As System.Windows.Forms.Panel
271 | Friend WithEvents tags_ As System.Windows.Forms.Panel
272 | Friend WithEvents nums_ As System.Windows.Forms.Panel
273 | Friend WithEvents Label5 As System.Windows.Forms.Label
274 | Friend WithEvents Label4 As System.Windows.Forms.Label
275 | Friend WithEvents Label3 As System.Windows.Forms.Label
276 | Friend WithEvents Label2 As System.Windows.Forms.Label
277 | Friend WithEvents Label1 As System.Windows.Forms.Label
278 | Friend WithEvents texture_ As System.Windows.Forms.Panel
279 | Friend WithEvents properties_ As System.Windows.Forms.Panel
280 | Friend WithEvents allother As System.Windows.Forms.Panel
281 | Friend WithEvents Panel2 As System.Windows.Forms.Panel
282 | Friend WithEvents cb5 As System.Windows.Forms.CheckBox
283 | Friend WithEvents cb4 As System.Windows.Forms.CheckBox
284 | Friend WithEvents cb3 As System.Windows.Forms.CheckBox
285 | Friend WithEvents cb2 As System.Windows.Forms.CheckBox
286 | Friend WithEvents cb1 As System.Windows.Forms.CheckBox
287 | End Class
288 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/frmSetColors.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
121 | True
122 |
123 |
124 | True
125 |
126 |
127 | True
128 |
129 |
130 | True
131 |
132 |
133 | True
134 |
135 |
136 | True
137 |
138 |
139 | True
140 |
141 |
142 | True
143 |
144 |
145 | True
146 |
147 |
148 | True
149 |
150 |
151 | True
152 |
153 |
154 | True
155 |
156 |
157 | True
158 |
159 |
160 | True
161 |
162 |
163 | True
164 |
165 |
166 | True
167 |
168 |
169 | True
170 |
171 |
172 | True
173 |
174 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/frmSetColors.vb:
--------------------------------------------------------------------------------
1 |
2 |
3 | Imports System.IO
4 | Imports System.String
5 | Imports System.Text
6 | Imports FastColoredTextBoxNS
7 | Imports System.Linq
8 | Imports System.Diagnostics
9 | Imports System.Drawing
10 | Imports System.Collections.Generic
11 | Imports System.Runtime.Serialization.Formatters.Binary
12 | Imports System.Text.RegularExpressions
13 | Imports System.Drawing.Drawing2D
14 | Imports System.Xml
15 | Imports System.Windows.Forms.SystemInformation
16 |
17 | Public Class frmSetColors
18 | Dim otag As String
19 | Dim c_copy As Panel = Nothing
20 |
21 | Private Sub frmSetColors_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
22 | e.Cancel = True
23 | Me.Hide()
24 | End Sub
25 |
26 |
27 | Private Sub frmSetColors_Load(sender As Object, e As EventArgs) Handles Me.Load
28 |
29 | assign_events()
30 | add_color_labels()
31 |
32 | End Sub
33 | Private Sub assign_events()
34 | AddHandler nums_.MouseClick, AddressOf switch_button
35 | AddHandler tags_.MouseClick, AddressOf switch_button
36 | AddHandler texture_.MouseClick, AddressOf switch_button
37 | AddHandler properties_.MouseClick, AddressOf switch_button
38 | AddHandler allother.MouseClick, AddressOf switch_button
39 | End Sub
40 | Private Sub add_color_labels()
41 | Dim colorname As String
42 | Dim x = Panel2.Width
43 | Dim y As Integer = 30 ' we will what to change this
44 | Dim v As Integer = 0
45 | For c As Integer = 28 To 167
46 | colorname = Convert.ToString(Color.FromKnownColor(CType(c, KnownColor)))
47 |
48 | colorname = colorname.Substring(7, colorname.Length - 8)
49 | Dim l As New Label
50 | l.Width = x - VerticalScrollBarWidth
51 | l.Height = y
52 | l.Parent = Panel2
53 | l.Location = New Point(0, v * y)
54 | l.BackColor = Color.FromName(colorname)
55 | l.Text = colorname
56 | l.ForeColor = InvertColor(Color.FromName(colorname))
57 | AddHandler l.MouseClick, AddressOf colorChange
58 |
59 | v += 1
60 | Next
61 | End Sub
62 | Private Function InvertColor(ByVal sourceColor As Color) As Color
63 | Dim l = Math.Sqrt((sourceColor.R ^ 2) + (sourceColor.G ^ 2) + (sourceColor.B ^ 2)) / 3
64 | Dim r, g, b As Byte
65 | If l > 0 Then
66 | r = sourceColor.R / l
67 | g = sourceColor.G / l
68 | b = sourceColor.B / l
69 | Else
70 | r = 255
71 | g = 255
72 | b = 255
73 | End If
74 | Return Color.FromArgb(r, g, b)
75 | End Function
76 |
77 | Private Sub colorChange(sender As Object, e As System.EventArgs)
78 | If c_copy Is Nothing Then
79 | MsgBox("Select the style you want to set this color to first.", MsgBoxStyle.OkOnly, " ")
80 | Return
81 | End If
82 | c_copy.BackColor = sender.BackColor
83 | colors(CInt(c_copy.Tag)) = c_copy.BackColor
84 | frmMain.set_styles()
85 | End Sub
86 | Private Sub switch_button(sender As Object, e As System.EventArgs)
87 | If otag = sender.tag Then
88 | Return
89 | End If
90 | If c_copy Is Nothing Then
91 | c_copy = sender
92 | c_copy.BorderStyle = BorderStyle.Fixed3D
93 | Return
94 | End If
95 | c_copy.BorderStyle = BorderStyle.None
96 | c_copy = sender
97 | otag = sender.tag
98 | c_copy.BorderStyle = BorderStyle.Fixed3D
99 |
100 | End Sub
101 | Private Sub set_boxes()
102 | frmMain.set_styles()
103 | End Sub
104 |
105 | Private Sub cb1_CheckedChanged(sender As Object, e As EventArgs) Handles cb1.CheckedChanged
106 | If sender.checked Then
107 | text_style(0) = 1
108 | Else
109 | text_style(0) = 0
110 | End If
111 | set_boxes()
112 | End Sub
113 |
114 | Private Sub cb2_CheckedChanged(sender As Object, e As EventArgs) Handles cb2.CheckedChanged
115 | If sender.checked Then
116 | text_style(1) = 1
117 | Else
118 | text_style(1) = 0
119 | End If
120 | set_boxes()
121 | End Sub
122 |
123 | Private Sub cb3_CheckedChanged(sender As Object, e As EventArgs) Handles cb3.CheckedChanged
124 | If sender.checked Then
125 | text_style(2) = 1
126 | Else
127 | text_style(2) = 0
128 | End If
129 | set_boxes()
130 | End Sub
131 |
132 | Private Sub cb4_CheckedChanged(sender As Object, e As EventArgs) Handles cb4.CheckedChanged
133 | If sender.checked Then
134 | text_style(3) = 1
135 | Else
136 | text_style(3) = 0
137 | End If
138 | set_boxes()
139 | End Sub
140 |
141 | Private Sub cb5_CheckedChanged(sender As Object, e As EventArgs) Handles cb5.CheckedChanged
142 | If sender.checked Then
143 | text_style(4) = 1
144 | Else
145 | text_style(4) = 0
146 | End If
147 | set_boxes()
148 | End Sub
149 |
150 |
151 | End Class
--------------------------------------------------------------------------------
/WoT_Xml_Editor/html/help.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
29 |
30 |
USAGE:
31 | It's a standard text editor with highlighting..
32 | It convertes Wargaming's compressed no-standard XML in to editable text.
33 | If you see problems.. PLEASE REPORT THEM AT THE GITHUB!
34 |
Key Combos and more...
35 |
36 | Left, Right, Up, Down, Home, End, PageUp, PageDown - moves caret
37 | Shift+(Left, Right, Up, Down, Home, End, PageUp, PageDown) - moves caret with selection
38 | Ctrl+F, Ctrl+H - shows Find and Replace dialogs
39 | F3 - find next
40 | Ctrl+G - shows GoTo dialog
41 | Ctrl+(C, V, X) - standard clipboard operations
42 | Ctrl+A - selects all text
43 | Ctrl+Z, Alt+Backspace, Ctrl+R - Undo/Redo opertions
44 | Tab, Shift+Tab - increase/decrease left indent of selected range
45 | Ctrl+Home, Ctrl+End - go to first/last char of the text
46 | Shift+Ctrl+Home, Shift+Ctrl+End - go to first/last char of the text with selection
47 | Ctrl+Left, Ctrl+Right - go word left/right
48 | Shift+Ctrl+Left, Shift+Ctrl+Right - go word left/right with selection
49 | Ctrl+-, Shift+Ctrl+- - backward/forward navigation
50 | Ctrl+U, Shift+Ctrl+U - converts selected text to upper/lower case
51 | Ctrl+Shift+C - inserts/removes comment prefix in selected lines
52 | Ins - switches between Insert Mode and Overwrite Mode
53 | Ctrl+Backspace, Ctrl+Del - remove word left/right
54 | Alt+Mouse, Alt+Shift+(Up, Down, Right, Left) - enables column selection mode
55 | Alt+Up, Alt+Down - moves selected lines up/down
56 | Shift+Del - removes current line
57 | Ctrl+B, Ctrl+Shift-B, Ctrl+N, Ctrl+Shift+N - add, removes and navigates to bookmark
58 | Esc - closes all opened tooltips, menus and hints
59 | Ctrl+Wheel - zooming
60 | Ctrl+M, Ctrl+E - start/stop macro recording, executing of macro
61 | Alt+F [char] - finds nearest [char]
62 | Ctrl+(Up, Down) - scrolls Up/Down
63 | Ctrl+(NumpadPlus, NumpadMinus, 0) - zoom in, zoom out, no zoom
64 | Ctrl+I - forced AutoIndentChars of current line
65 |
Ctrl+S - Save
66 | Ctrl+O - Open
67 |
General Help.
68 |
To change the colors, click the one you want to change FIRST
69 | and than, pick the color on the right.
70 | The Editor will remember your color scheme and will
71 | be setup the next time you load the app.
72 |
73 |
74 |
BACK UP before using this tool. Overwriting an XML with
75 | bad code can ruin your game and you may need to download
76 | the entire thing again. NOT a good thing!!
77 |
78 |
79 |
Disclaimer:
80 | Use at your one risk. If you break your game with this tool,
81 | It is NOT my fault.
82 |
The text box will only work with mono spaced fonts.
83 | That is why the list is short when you try to change them.
84 | It does however, do syntax highlighing and very fast.
85 |
The World of Tank XML has a non-standard XML format.
86 | This app will display it correctly because I spend 2 days
87 | figuring out how to deal with the bogus property items.
88 |
There is a file in the installed folder( filtered_strings.txt ) that contains a list
89 | of all these property entries (That I have found so far).
90 | If the XML display badly, look for what's after the
91 | <property> line(s) and add that text to the filtered_strings.txt
92 | file. In order to display the XML correctly, these odd entries
93 | must be wrapped in a temp tag before formatting and after,
94 | the temp tags are removed. Its the only way I could make the
95 | XML display correctly.
96 |
97 | This app uses a fantastic syntax highlighting control by Pavel Torgashov.
98 | For information and the license, check out this site.
99 |
100 |
If you like this app and use it, please consider donating.
101 | I'm old and out of work and any help would be more than kind!
102 | Thank you for using my application.
103 | Coffee_
104 |
To change the colors, click the one you want to change FIRST
11 | and than, pick the color on the right.
12 | The Editor will remember your color scheme and will
13 | be setup the next time you load the app.
14 |
15 |
16 |
BACK UP before using this tool. Overwriting an XML with
17 | bad code can ruin your game and you may need to download
18 | the entire thing again. NOT a good thing!!
19 |
20 |
21 |
Disclaimer:
22 | Use at your one risk. If you break your game with this tool,
23 | It is NOT my fault.
24 |
The text box will only work with mono spaced fonts.
25 | That is why the list is short when you try to change them.
26 | It does however, do syntax highlighing and very fast.
27 |
The World of Tank XML has a non-standard XML format.
28 | This app will display it correctly because I spend 2 days
29 | figuring out how to deal with the bogus property items.
30 |
There is a file in the installed folder( filtered_strings.txt ) that contains a list
31 | of all these property entries (That I have found so far).
32 | If the XML display badly, look for what's after the
33 | <property> line(s) and add that text to the filtered_strings.txt
34 | file. In order to display the XML correctly, these odd entries
35 | must be wrapped in a temp tag before formatting and after,
36 | the temp tags are removed. Its the only way I could make the
37 | XML display correctly.
38 |
39 | This app uses a fantastic syntax highlighting control by Pavel Torgashov.
40 | For information and the license, check out this site.
41 |
42 |
If you like this app and use it, please consider donating.
43 | I'm old and out of work and any help would be more than kind!
44 | Thank you for using my application.
45 | Coffee_
46 |
47 |
The donate should take you to TnMs PeekaPoos. We breed them.
To change the colors, click the one you want to change FIRST
11 | and than, pick the color on the right.
12 | The Editor will remember your color scheme and will
13 | be setup the next time you load the app.
14 |
15 |
16 |
BACK UP before using this tool. Overwriting an XML with
17 | bad code can ruin your game and you may need to download
18 | the entire thing again. NOT a good thing!!
19 |
20 |
21 |
Disclaimer:
22 | Use at your one risk. If you break your game with this tool,
23 | It is NOT my fault.
24 |
The text box will only work with mono spaced fonts.
25 | That is why the list is short when you try to change them.
26 | It does however, do syntax highlighing and very fast.
27 |
The World of Tank XML has a non-standard XML format.
28 | This app will display it correctly because I spend 2 days
29 | figuring out how to deal with the bogus property items.
30 |
There is a file in the installed folder( filtered_strings.txt ) that contains a list
31 | of all these property entries (That I have found so far).
32 | If the XML display badly, look for what's after the
33 | <property> line(s) and add that text to the filtered_strings.txt
34 | file. In order to display the XML correctly, these odd entries
35 | must be wrapped in a temp tag before formatting and after,
36 | the temp tags are removed. Its the only way I could make the
37 | XML display correctly.
38 |
39 | This app uses a fantastic syntax highlighting control by Pavel Torgashov.
40 | For information and the license, check out this site.
41 |
42 |
If you like this app and use it, please consider donating.
43 | I'm old and out of work and any help would be more than kind!
44 | Thank you for using my application.
45 | Coffee_
46 |
47 |
The donate should take you to TnMs PeekaPoos. We breed them.
48 |
54 |
55 |
56 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/publish/Application Files/WoT_Xml_Editor_2_0_0_0/temp/TextFile1.txt.deploy:
--------------------------------------------------------------------------------
1 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/publish/WoT_Xml_Editor.application:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | vm49t5g36ZWd4L16zv3bXD1LzaY=
15 |
16 |
17 |
18 | pVARzsPWdRSM6lt3yECGNtjcU58=cbc3vlve9H57M6wnKIzU/VpclJJKEFWX690T8qGGd4Cgb2mnD/uD8pdA2PFfrXxTR635DFpHhSFmyPuOAGlXKg1/kyala1NTSx1GAgmop9TDGSveFOKvr5EdI7/cTch3hIuGJ2+vIBnF/w9GjkbAwzIUST/RZOgOJcd2b1rmLF4=l5tes89pmc7rR1gzuC9TWvasCZ3ygkpD207FlyuCNUjh8ZkLuXqrQrqk8GrjM7Nmy7UdEepTMWTbXOdp0k+6kyD4cmsw6W2k+DfxrH/VEzgBstQVck685bY/3jjqw6kqiRMAVndoX9qpX7/foBj4Mbs9z364SqZRddlHD/dAHEk=AQABCN=Mike-PC\Mike9Dm9IzQzF4P9bqoaikyPuVCAdyg=Uwlp+F8d1fewdaDgz7IT/9hL020hJQ0oBHH1IsPm7B+fUYVgLDsrlxL4qMyjwhhZqaPAIdnVOQkpm478LOd5M4OZwjOQ4YE1MCMfeT7KIZLM0rF+4yjdMqDOD/kHhQVKBoulCxF05kdQFCHZJhmp1/0n8CeH5moBGykkm6TQOKA=l5tes89pmc7rR1gzuC9TWvasCZ3ygkpD207FlyuCNUjh8ZkLuXqrQrqk8GrjM7Nmy7UdEepTMWTbXOdp0k+6kyD4cmsw6W2k+DfxrH/VEzgBstQVck685bY/3jjqw6kqiRMAVndoX9qpX7/foBj4Mbs9z364SqZRddlHD/dAHEk=AQABMIIByTCCATKgAwIBAgIQRY+oSXtf4YJLvv0fyCRPkTANBgkqhkiG9w0BAQUFADAjMSEwHwYDVQQDHhgATQBpAGsAZQAtAFAAQwBcAE0AaQBrAGUwHhcNMTUwNzA5MjI1NzA0WhcNMTYwNzA5MDQ1NzA0WjAjMSEwHwYDVQQDHhgATQBpAGsAZQAtAFAAQwBcAE0AaQBrAGUwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAJebXrPPaZnO60dYM7gvU1r2rAmd8oJKQ9tOxZcrgjVI4fGZC7l6q0K6pPBq4zOzZsu1HRHqUzFk21znadJPupMg+HJrMOltpPg38ax/1RM4AbLUFXJOvOW2P9446sOpKokTAFZ3aF/aqV+/36AY+DG7Pc9+uEqmUXXZRw/3QBxJAgMBAAEwDQYJKoZIhvcNAQEFBQADgYEAAFxXNU5jC+amUbb07lL8TlEBbivINWrnTi45Y0hmcJ0p8EqWXhIfMFsl3TDTDiyf+n/tfiWTmRZRoI1rP/KvQe73VmMWgI7CoNmHPKCpmVn+jhIMcsGrVyoDi8ukuMCIydBtYBhsR38bWpKf4vmBWojSU9fjmH9Kn/HZwa8D7ro=
--------------------------------------------------------------------------------
/WoT_Xml_Editor/visual loader/packed_section.vb:
--------------------------------------------------------------------------------
1 | Imports System
2 | Imports System.Collections.Generic
3 | Imports System.Text
4 | Imports System.IO
5 | Imports System.Xml
6 | 'Imports wottools
7 |
8 | Public Class Packed_Section
9 | Public Shared ReadOnly Packed_Header As Int32 = &H62A14E45
10 | Public Shared ReadOnly intToBase64 As Char() = New Char() {"A"c, "B"c, "C"c, "D"c, "E"c, "F"c, _
11 | "G"c, "H"c, "I"c, "J"c, "K"c, "L"c, _
12 | "M"c, "N"c, "O"c, "P"c, "Q"c, "R"c, _
13 | "S"c, "T"c, "U"c, "V"c, "W"c, "X"c, _
14 | "Y"c, "Z"c, "a"c, "b"c, "c"c, "d"c, _
15 | "e"c, "f"c, "g"c, "h"c, "i"c, "j"c, _
16 | "k"c, "l"c, "m"c, "n"c, "o"c, "p"c, _
17 | "q"c, "r"c, "s"c, "t"c, "u"c, "v"c, _
18 | "w"c, "x"c, "y"c, "z"c, "0"c, "1"c, _
19 | "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, _
20 | "8"c, "9"c, "+"c, "/"c}
21 | Public Const MAX_LENGTH As Integer = 256
22 |
23 | Public Class DataDescriptor
24 | Public ReadOnly address As Integer
25 | Public ReadOnly [end] As Integer
26 | Public ReadOnly type As Integer
27 |
28 | Public Sub New(ByVal [end] As Integer, ByVal type As Integer, ByVal address As Integer)
29 | Me.[end] = [end]
30 | Me.type = type
31 | Me.address = address
32 | End Sub
33 |
34 | Public Overrides Function ToString() As String
35 | Dim sb As New StringBuilder("[")
36 | sb.Append("0x")
37 | sb.Append(Convert.ToString([end], 16))
38 | sb.Append(", ")
39 | sb.Append("0x")
40 | sb.Append(Convert.ToString(type, 16))
41 | sb.Append("]@0x")
42 | sb.Append(Convert.ToString(address, 16))
43 | Return sb.ToString()
44 | End Function
45 | End Class
46 |
47 | Public Class ElementDescriptor
48 | Public ReadOnly nameIndex As Integer
49 | Public ReadOnly dataDescriptor As DataDescriptor
50 |
51 | Public Sub New(ByVal nameIndex As Integer, ByVal dataDescriptor As DataDescriptor)
52 | Me.nameIndex = nameIndex
53 | Me.dataDescriptor = dataDescriptor
54 | End Sub
55 |
56 | Public Overrides Function ToString() As String
57 | Dim sb As New StringBuilder("[")
58 | sb.Append("0x")
59 | sb.Append(Convert.ToString(nameIndex, 16))
60 | sb.Append(":")
61 | sb.Append(dataDescriptor)
62 | Return sb.ToString()
63 | End Function
64 | End Class
65 |
66 | Public Function readStringTillZero(ByVal reader As BinaryReader) As String
67 | Dim work As Char() = New Char(MAX_LENGTH - 1) {}
68 |
69 | Dim i As Integer = 0
70 |
71 | Dim c As Char = reader.ReadChar()
72 | While c <> Convert.ToChar(&H0)
73 | work(System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)) = c
74 | c = reader.ReadChar()
75 | End While
76 | Dim s As String = ""
77 | For k = 1 To i
78 | s = s + work(k)
79 | Next
80 | Return s
81 |
82 | End Function
83 |
84 | Public Function readDictionary(ByVal reader As BinaryReader) As List(Of String)
85 | Dim dictionary As New List(Of String)()
86 | Dim counter As Integer = 0
87 | Dim text As String = readStringTillZero(reader)
88 |
89 | While Not (text.Length = 0)
90 | dictionary.Add(text)
91 | text = readStringTillZero(reader)
92 | counter += 1
93 | End While
94 | Return dictionary
95 | End Function
96 |
97 | Public Function readLittleEndianShort(ByVal reader As BinaryReader) As Integer
98 | Dim LittleEndianShort As Integer = reader.ReadInt16()
99 | Return LittleEndianShort
100 | End Function
101 |
102 | Public Function readLittleEndianInt(ByVal reader As BinaryReader) As Integer
103 | Dim LittleEndianInt As Integer = reader.ReadInt32()
104 | Return LittleEndianInt
105 | End Function
106 | Public Function readLittleEndianlong(ByVal reader As BinaryReader) As Long
107 | Dim LittleEndianlong As Int64 = reader.ReadInt64()
108 | Return LittleEndianlong
109 | End Function
110 |
111 | Public Function readDataDescriptor(ByVal reader As BinaryReader) As DataDescriptor
112 | Dim selfEndAndType As Integer = readLittleEndianInt(reader)
113 | Return New DataDescriptor(selfEndAndType And &HFFFFFFF, selfEndAndType >> 28, CInt(reader.BaseStream.Position))
114 | End Function
115 |
116 | Public Function readElementDescriptors(ByVal reader As BinaryReader, ByVal number As Integer) As ElementDescriptor()
117 | Dim elements As ElementDescriptor() = New ElementDescriptor(number - 1) {}
118 | For i As Integer = 0 To number - 1
119 | Dim nameIndex As Integer = readLittleEndianShort(reader)
120 | Dim dataDescriptor As DataDescriptor = readDataDescriptor(reader)
121 | elements(i) = New ElementDescriptor(nameIndex, dataDescriptor)
122 | Next
123 | Return elements
124 | End Function
125 |
126 | Public Function readString(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As String
127 | Dim rString As New String(reader.ReadChars(lengthInBytes), 0, lengthInBytes)
128 |
129 | Return rString
130 | End Function
131 |
132 | Public Function readNumber(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As String
133 | Dim Number As String = ""
134 | Select Case lengthInBytes
135 | Case 1
136 | Number = Convert.ToString(reader.ReadSByte())
137 | Exit Select
138 | Case 2
139 | Number = Convert.ToString(readLittleEndianShort(reader))
140 | Exit Select
141 | Case 4
142 | Number = Convert.ToString(readLittleEndianInt(reader))
143 | Exit Select
144 | Case 8
145 | Number = Convert.ToString(readLittleEndianlong(reader))
146 | Exit Select
147 | Case Else
148 | Number = "0"
149 | Exit Select
150 | End Select
151 | Return Number
152 |
153 | End Function
154 |
155 | Public Function readLittleEndianFloat(ByVal reader As BinaryReader) As Single
156 | Dim LittleEndianFloat As Single = reader.ReadSingle()
157 | Return LittleEndianFloat
158 | End Function
159 |
160 | Public Function readFloats(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As String
161 | Dim n As Integer = lengthInBytes / 4
162 |
163 | Dim sb As New StringBuilder()
164 | For i As Integer = 0 To n - 1
165 |
166 | If i <> 0 Then
167 | sb.Append(" ")
168 | End If
169 | Dim rFloat As Single = readLittleEndianFloat(reader)
170 | sb.Append(rFloat.ToString("0.000000"))
171 | Next
172 | Return sb.ToString()
173 | End Function
174 |
175 |
176 | Public Function readBoolean(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As Boolean
177 | Dim bool As Boolean = lengthInBytes = 1
178 | If bool Then
179 | If reader.ReadSByte() <> 1 Then
180 | Throw New System.ArgumentException("Boolean error")
181 | End If
182 | End If
183 |
184 | Return bool
185 | End Function
186 |
187 | Private Shared Function byteArrayToBase64(ByVal a As SByte()) As String
188 | Dim aLen As Integer = a.Length
189 | Dim numFullGroups As Integer = aLen / 3
190 | Dim numBytesInPartialGroup As Integer = aLen - 3 * numFullGroups
191 | Dim resultLen As Integer = 4 * ((aLen + 2) / 3)
192 | Dim result As New StringBuilder(resultLen)
193 |
194 | Dim inCursor As Integer = -1
195 | For i As Integer = 0 To numFullGroups - 1
196 | Dim byte0 As Integer = a(System.Math.Max(System.Threading.Interlocked.Increment(inCursor), inCursor - 1)) And &HFF
197 | inCursor = inCursor
198 | Dim byte1 As Integer = a(System.Math.Max(System.Threading.Interlocked.Increment(inCursor), inCursor - 1)) And &HFF
199 | inCursor = inCursor
200 | Dim byte2 As Integer = a(System.Math.Max(System.Threading.Interlocked.Increment(inCursor), inCursor - 2)) And &HFF
201 | result.Append(intToBase64(byte0 >> 2))
202 | result.Append(intToBase64((byte0 << 4) And &H3F Or (byte1 >> 4)))
203 | result.Append(intToBase64((byte1 << 2) And &H3F Or (byte2 >> 6)))
204 | result.Append(intToBase64(byte2 And &H3F))
205 | Next
206 |
207 | If numBytesInPartialGroup <> 0 Then
208 | Dim byte0 As Integer = a(System.Math.Max(System.Threading.Interlocked.Increment(inCursor), inCursor - 1)) And &HFF
209 | result.Append(intToBase64(byte0 >> 2))
210 | If numBytesInPartialGroup = 1 Then
211 | result.Append(intToBase64((byte0 << 4) And &H3F))
212 | result.Append("==")
213 | Else
214 | Dim byte1 As Integer = a(System.Math.Max(System.Threading.Interlocked.Increment(inCursor), inCursor - 1)) And &HFF
215 | result.Append(intToBase64((byte0 << 4) And &H3F Or (byte1 >> 4)))
216 | result.Append(intToBase64((byte1 << 2) And &H3F))
217 | result.Append("="c)
218 | End If
219 | End If
220 |
221 | Return result.ToString()
222 | End Function
223 |
224 | Public Function readBase64(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As String
225 | Dim bytes As SByte() = New SByte(lengthInBytes - 1) {}
226 | For i As Integer = 0 To lengthInBytes - 1
227 | bytes(i) = reader.ReadSByte()
228 | Next
229 | Return byteArrayToBase64(bytes)
230 | End Function
231 |
232 | Public Function readAndToHex(ByVal reader As BinaryReader, ByVal lengthInBytes As Integer) As String
233 | Dim bytes As SByte() = New SByte(lengthInBytes - 1) {}
234 | For i As Integer = 0 To lengthInBytes - 1
235 | bytes(i) = reader.ReadSByte()
236 | Next
237 | Dim sb As New StringBuilder("[ ")
238 | For Each b As Byte In bytes
239 | sb.Append(Convert.ToString((b And &HFF), 16))
240 | sb.Append(" ")
241 | Next
242 | sb.Append("]L:")
243 | sb.Append(lengthInBytes)
244 |
245 | Return sb.ToString()
246 | End Function
247 |
248 | Public Function readData(ByVal reader As BinaryReader, ByVal dictionary As List(Of String), ByVal element As XmlNode, ByVal xDoc As XmlDocument, ByVal offset As Integer, ByVal dataDescriptor As DataDescriptor) As Integer
249 | Dim lengthInBytes As Integer = dataDescriptor.[end] - offset
250 | If dataDescriptor.type = &H0 Then
251 | ' Element
252 | readElement(reader, element, xDoc, dictionary)
253 | ElseIf dataDescriptor.type = &H1 Then
254 | ' String
255 |
256 | element.InnerText = readString(reader, lengthInBytes)
257 | ElseIf dataDescriptor.type = &H2 Then
258 | ' Integer number
259 | element.InnerText = readNumber(reader, lengthInBytes)
260 | ElseIf dataDescriptor.type = &H3 Then
261 | ' Floats
262 | Dim str As String = readFloats(reader, lengthInBytes)
263 |
264 | Dim strData As String() = str.Split(" "c)
265 | If strData.Length = 12 Then
266 | Dim row0 As XmlNode = xDoc.CreateElement("row0")
267 | Dim row1 As XmlNode = xDoc.CreateElement("row1")
268 | Dim row2 As XmlNode = xDoc.CreateElement("row2")
269 | Dim row3 As XmlNode = xDoc.CreateElement("row3")
270 | row0.InnerText = strData(0) + " " + strData(1) + " " + strData(2)
271 | row1.InnerText = strData(3) + " " + strData(4) + " " + strData(5)
272 | row2.InnerText = strData(6) + " " + strData(7) + " " + strData(8)
273 | row3.InnerText = strData(9) + " " + strData(10) + " " + strData(11)
274 | element.AppendChild(row0)
275 | element.AppendChild(row1)
276 | element.AppendChild(row2)
277 | element.AppendChild(row3)
278 | Else
279 | element.InnerText = str
280 | End If
281 | ElseIf dataDescriptor.type = &H4 Then
282 | ' Boolean
283 |
284 | If readBoolean(reader, lengthInBytes) Then
285 | element.InnerText = "true"
286 | Else
287 | element.InnerText = "false"
288 |
289 | End If
290 | ElseIf dataDescriptor.type = &H5 Then
291 | ' Base64
292 | element.InnerText = readBase64(reader, lengthInBytes)
293 | Else
294 | Throw New System.ArgumentException("Unknown type of """ + element.Name + ": " + dataDescriptor.ToString() + " " + readAndToHex(reader, lengthInBytes))
295 | End If
296 |
297 | Return dataDescriptor.[end]
298 | End Function
299 |
300 | Public Sub readElement(ByVal reader As BinaryReader, ByVal element As XmlNode, ByVal xDoc As XmlDocument, ByVal dictionary As List(Of String))
301 | Dim childrenNmber As Integer = readLittleEndianShort(reader)
302 | Dim selfDataDescriptor As DataDescriptor = readDataDescriptor(reader)
303 | Dim children As ElementDescriptor() = readElementDescriptors(reader, childrenNmber)
304 |
305 | Dim offset As Integer = readData(reader, dictionary, element, xDoc, 0, selfDataDescriptor)
306 |
307 | For Each elementDescriptor As ElementDescriptor In children
308 | Dim child As XmlNode = xDoc.CreateElement(dictionary(elementDescriptor.nameIndex))
309 | offset = readData(reader, dictionary, child, xDoc, offset, elementDescriptor.dataDescriptor)
310 | element.AppendChild(child)
311 | Next
312 |
313 | End Sub
314 | End Class
315 |
316 |
317 | '=======================================================
318 | 'Service provided by Telerik (www.telerik.com)
319 | 'Conversion powered by NRefactory.
320 | 'Twitter: @telerik, @toddanglin
321 | 'Facebook: facebook.com/telerik
322 | '=======================================================
323 |
324 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/visual loader/primitive_file.vb:
--------------------------------------------------------------------------------
1 | Imports System
2 | Imports System.Collections.Generic
3 | Imports System.Text
4 | Imports System.IO
5 | Imports System.Xml
6 |
7 | Public Class Primitive_File
8 |
9 | Public Sub ReadPrimitives(ByVal reader As BinaryReader, ByVal element As XmlNode, ByVal xDoc As XmlDocument)
10 | Dim len As Integer = CInt(reader.BaseStream.Length)
11 | Dim data As Integer = CInt(reader.BaseStream.Position) + 4
12 |
13 | reader.BaseStream.Position = (CInt(reader.BaseStream.Position) + len - 4)
14 | Dim indexLen As Integer = reader.ReadInt32()
15 | Dim offset As Integer = len - (indexLen + 4)
16 | reader.BaseStream.Position = offset
17 | Dim oldDataLen As Long = 4
18 | While offset < (len - 4)
19 | Dim entryDataLen As Integer = 0
20 | Dim entryNameLen As Integer = 0
21 | For i As Integer = 0 To (len - CInt(reader.BaseStream.Position)) - 1
22 | If reader.ReadByte() <> &H0 Then
23 | reader.BaseStream.Position = CInt(reader.BaseStream.Position) - 1
24 | entryDataLen = reader.ReadInt32()
25 | Exit For
26 | End If
27 | Next
28 |
29 | For i As Integer = 0 To (len - CInt(reader.BaseStream.Position)) - 1
30 | If reader.ReadByte() <> &H0 Then
31 | reader.BaseStream.Position = CInt(reader.BaseStream.Position) - 1
32 | entryNameLen = reader.ReadInt32()
33 | Exit For
34 | End If
35 | Next
36 |
37 | Dim entryStr As New String(reader.ReadChars(entryNameLen), 0, entryNameLen)
38 |
39 | Dim XentryStr As XmlNode = xDoc.CreateElement("primitive")
40 | Dim attr As XmlAttribute = xDoc.CreateAttribute("id")
41 | attr.InnerText = entryStr
42 | XentryStr.Attributes.Append(attr)
43 |
44 | Dim XentryDataPos As XmlNode = xDoc.CreateElement("position")
45 | XentryDataPos.InnerText = Convert.ToString(oldDataLen)
46 | Dim XentryDataLen As XmlNode = xDoc.CreateElement("length")
47 | XentryDataLen.InnerText = Convert.ToString(entryDataLen)
48 | oldDataLen += (entryDataLen + 3) And (Not 3L)
49 |
50 | XentryStr.AppendChild(XentryDataPos)
51 | XentryStr.AppendChild(XentryDataLen)
52 |
53 | offset = CInt(reader.BaseStream.Position) + entryNameLen
54 | element.AppendChild(XentryStr)
55 | End While
56 | End Sub
57 | End Class
58 |
59 | '=======================================================
60 | 'Service provided by Telerik (www.telerik.com)
61 | 'Conversion powered by NRefactory.
62 | 'Twitter: @telerik, @toddanglin
63 | 'Facebook: facebook.com/telerik
64 | '=======================================================
65 |
66 |
--------------------------------------------------------------------------------
/WoT_Xml_Editor/visual loader/vis_main.vb:
--------------------------------------------------------------------------------
1 | Imports System
2 | Imports System.Collections.Generic
3 | Imports System.Collections
4 | Imports System.ComponentModel
5 | Imports System.Data
6 | Imports System.Drawing
7 | Imports System.Linq
8 | Imports System.Text
9 | Imports System.Windows.Forms
10 | Imports System.IO
11 | Imports System.Runtime.CompilerServices
12 | Imports System.Xml
13 |
14 | Module vis_main
15 | Public xmldataset As New DataSet
16 | Public xml_name As String
17 | Public PackedFileName As String = ""
18 | Public ReadOnly sver As String = "0.5"
19 | Public ReadOnly stitle As String = "WoT Mod Tools "
20 | Public PS As New Packed_Section()
21 | Public PF As New Primitive_File()
22 |
23 | Public ReadOnly Binary_Header As Int32 = &H42A14E65
24 | Public filterlist() As String
25 | Public xDoc As XmlDocument
26 | Public Class myXmlTextWriter
27 | Inherits XmlTextWriter
28 | Public Overrides Sub WriteStartDocument()
29 |
30 | End Sub
31 | Public Sub New(sw As StringWriter)
32 | MyBase.New(sw)
33 | End Sub
34 | End Class
35 | Private Function fix_bad_tags(xmlString As String)
36 | 'box all primitive tags.. Dont think there will ever be over 90 :-)
37 | xmlString = xmlString.Replace(" ", "")
38 | For i = 90 To 0 Step -1
39 | Dim ast = xmlString.Replace("" + i.ToString, "" + ControlChars.CrLf.ToCharArray() + "" + i.ToString + "")
40 | xmlString = ast
41 | Next
42 | Return xmlString
43 | End Function
44 |
45 | Private Function PrettyPrint(XML As [String]) As [String]
46 | Dim Result As [String] = ""
47 | XML = fix_bad_tags(XML)
48 | 'another hack to fix WG's bad xml
49 | XML = XML.Replace("<_", "<", ">" + vbCrLf + "<")
130 | PS.readElement(reader, xmlroot, xDoc, dictionary)
131 | Dim xml_string As String = xmlroot.InnerXml
132 |
133 | Dim strFilename As String = Temp_Storage + "\temp_xml.xml"
134 | File.WriteAllText(strFilename, "<" + PackedFileName + ">" + xml_string + "" + PackedFileName + ">")
135 |
136 | xDoc.AppendChild(xmlroot)
137 |
138 |
139 | Dim f As String = File.ReadAllText(strFilename)
140 | f = f.Replace(">shared", ">shared")
141 | File.Delete(strFilename)
142 | f = PrettyPrint(f)
143 | frmMain.fctb.Text = f.Replace("bad_", "")
144 |
145 | 'f = f.Replace(vbCrLf, vbLf)
146 |
147 | End Sub
148 |
149 | Public Sub ReadPrimitiveFile(ByVal file As String)
150 | Dim F As New FileStream(file, FileMode.Open, FileAccess.Read)
151 | Dim reader As New BinaryReader(F)
152 |
153 | Dim ptiComment As XmlComment = xDoc.CreateComment("DO NOT SAVE THIS FILE! THIS CODE IS JUST FOR INFORMATION PUPORSES!")
154 |
155 | Dim xmlprimitives As XmlNode = xDoc.CreateNode(XmlNodeType.Element, "primitives", "")
156 |
157 | PF.ReadPrimitives(reader, xmlprimitives, xDoc)
158 |
159 | xDoc.AppendChild(ptiComment)
160 | xDoc.AppendChild(xmlprimitives)
161 | 'frmMain.TxTOut.AppendText(FormatXml(xDoc.OuterXml))
162 | 'Dim strFilename As String = System.IO.Path.GetTempFileName()
163 | 'IO.File.WriteAllText(datapath + "\viewer_InnerXml.xml", PrettyXML(xDoc.OuterXml))
164 |
165 |
166 | End Sub
167 |
168 | Public Function openVisual(ByVal file As String) As Boolean
169 | xmldataset.Clear()
170 | While xmldataset.Tables.Count > 0
171 | xmldataset.Reset()
172 | End While
173 | xml_name = file + ".xml"
174 | xDoc = New XmlDocument()
175 | Dim ary = file.Split("\")
176 | Dim file2 = ary(ary.Length - 1)
177 | PackedFileName = file2
178 | PackedFileName = PackedFileName.ToLower()
179 | Dim f As FileStream
180 |
181 | Try
182 | f = New FileStream(file, FileMode.Open, FileAccess.Read)
183 |
184 | Catch ex As Exception
185 | MsgBox("can't find " + file + " file.." + vbCrLf + "This might crash this program!", MsgBoxStyle.Exclamation, "Bad news!")
186 | Return False
187 | End Try
188 | Dim reader As New BinaryReader(f)
189 | Dim head As Int32 = reader.ReadInt32()
190 | If head = Packed_Section.Packed_Header Then
191 | DecodePackedFile(reader)
192 | Else
193 | reader.Close()
194 | f.Close()
195 | Dim ff As String = PrettyPrint(IO.File.ReadAllText(file))
196 | frmMain.fctb.Text = ff
197 | Dim ar = file.Split("\")
198 | Dim ar2 = ar(ar.Length - 1).Split(".")
199 | Dim name = ar2(0)
200 | If IsNumeric(Left(name, 2)) Then
201 | ff = ff.Replace(name, "bad_" + name)
202 | Else
203 | End If
204 |
205 |
206 | End If
207 | reader.Close()
208 | f.Close()
209 | Return True
210 | End Function
211 | Public Function TransformXML(ByVal xmlString As String, ByVal xlsString As String) As MemoryStream
212 | Dim memStream As MemoryStream = Nothing
213 | Try
214 | ' Create a xml-document from the sent-in xml-string
215 | Dim xmlDoc As New XmlDocument
216 | xmlDoc.LoadXml(xmlString)
217 |
218 | ' Load the xls into another document
219 | Dim xslDoc As New XmlDocument
220 | xslDoc.LoadXml(xlsString)
221 |
222 | ' Create a transformation
223 | Dim trans As New System.Xml.Xsl.XslCompiledTransform
224 | trans.Load(xslDoc)
225 |
226 | ' Create a memory stream for output
227 | memStream = New MemoryStream()
228 |
229 | ' Do the transformation according to the XSLT and save the result in our memory stream
230 | trans.Transform(xmlDoc, Nothing, memStream)
231 | memStream.Position = 0
232 | Catch ex As Exception
233 | Throw ex
234 | End Try
235 |
236 | Return memStream
237 | End Function
238 |
239 |
240 | End Module
241 |
242 |
243 |
--------------------------------------------------------------------------------
/setup.exe:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mikeoverbay/XML_Editor/4cac5a810ba76aa441bae15221216a09d139553b/setup.exe
--------------------------------------------------------------------------------