- Added the option to convert a dat

MedGui Reborn/Dat.vb

@@ -1,4 +1,6 @@
 Imports System.IO
+Imports System.Xml
+Imports GenericParsing
 
 Module Dat
 
@@ -31,4 +33,29 @@ Module Dat
         End Using
     End Sub
 
+    Public Sub ConvDat(dat As String)
+
+        Dim xmldoc As New XmlDocument()
+        xmldoc.Load(dat)
+        Dim nodes As XmlNodeList = xmldoc.DocumentElement.SelectNodes("game")
+        MDM.Enabled = False
+        Using sw As StreamWriter = File.AppendText(MedExtra & "\DATs\MDM\" & MDM.ComboBox1.Text & ".dat")
+            For Each node As XmlNode In nodes
+                sw.WriteLine(vbCrLf & "game (")
+                sw.WriteLine(vbTab & "name " & Chr(34) & node.Attributes("name").InnerText & Chr(34))
+                sw.WriteLine(vbTab & "description " & Chr(34) & node.FirstChild.InnerText & Chr(34))
+                Dim Xname = (node.LastChild.Attributes("name").InnerText)
+                Dim Xcrc = (node.LastChild.Attributes("crc").InnerText)
+                Dim Xmd5 = (node.LastChild.Attributes("md5").InnerText)
+                Dim Xsha1 = (node.LastChild.Attributes("sha1").InnerText)
+                sw.WriteLine(vbTab & "rom ( name " & Chr(34) & Xname & Chr(34) & " crc " & Xcrc & " md5 " & Xmd5 & " sha1 " & Xsha1 & " )")
+                sw.WriteLine(")")
+            Next
+            sw.Dispose()
+            sw.Close()
+        End Using
+        MsgBox("Dat Created!", vbOKOnly + MsgBoxStyle.Information)
+        MDM.Enabled = True
+    End Sub
+
 End Module

MedGui Reborn/MDM.vb

@@ -130,6 +130,19 @@ Public Class MDM
         MedGuiR.list_DATs()
     End Sub
 
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim fd As OpenFileDialog = New OpenFileDialog()
+
+        fd.Title = "Select a Dat to convert"
+        fd.Filter = "Dat files (*.dat)|*.dat"
+        fd.FilterIndex = 2
+        fd.RestoreDirectory = True
+
+        If fd.ShowDialog() = DialogResult.OK Then
+            ConvDat(fd.FileName)
+        End If
+    End Sub
+
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Icon = gIcon
         cleaning()
@@ -161,6 +174,11 @@ Public Class MDM
             MDMoperations = "populate"
             scans()
         End If
+        If ComboBox1.Text <> "" Then
+            Button4.Enabled = True
+        Else
+            Button4.Enabled = False
+        End If
     End Sub
 
 End Class

MedGui Reborn/Resource.vb

@@ -194,6 +194,7 @@
             MedGuiR.PreviousToolStripMenuItem.Image = flip
 
             MDM.Button1.BackgroundImage = (New Bitmap(MedExtra & "Resource\Gui\folder.png"))
+            MDM.Button4.BackgroundImage = (New Bitmap(MedExtra & "Resource\Gui\dat.png"))
 
             CPM.Button5.BackgroundImage = (New Bitmap(MedExtra & "Resource\Gui\save.png"))
             CPM.Button6.BackgroundImage = (New Bitmap(MedExtra & "Resource\Gui\delete.png"))