Convert from exml to xml and xml to exml currently working. Need to figure out multiple files and command line exe before release

Author: Aaron Fisher

WindowsApplication2/Form1.Designer.vb

@@ -8,43 +8,50 @@
     End Sub
 
     Private Sub dlgExmlFile_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles dlgExmlToXml.FileOk
-        Dim RawExmlString As String 
+        Dim RawExmlString As String
         Dim ParsedXML As New XDocument
-        RawExmlString = My.Computer.FileSystem.ReadAllText(dlgExmlToXml.FileName)
-        ParsedXML = ParseExmlString(RawExmlString)
-        ParsedXML.Save(dlgExmlToXml.FileName & ".xml")
+        Dim file As String
+        Debug.Print(dlgExmlToXml.ToString)
+        For Each file In dlgExmlToXml.FileNames
+            RawExmlString = My.Computer.FileSystem.ReadAllText(dlgExmlToXml.FileName)
+            ParsedXML = ParseExmlString(RawExmlString)
+            ParsedXML.Save(dlgExmlToXml.FileName & ".xml")
+        Next
     End Sub
 
     Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles dlgXmlToExml.FileOk
         Dim XMLString As String
         Dim RevertedExml As New XDocument
-        XMLString = My.Computer.FileSystem.ReadAllText(dlgXmlToExml.FileName)
-        RevertedExml = RevertXmltoExml(XMLString)
-        If dlgXmlToExml.FileName.EndsWith(".exml.xml") Then
-            Dim NewFileName As String
-            NewFileName = dlgXmlToExml.FileName.Remove(dlgXmlToExml.FileName.Length - 4, 4)
-            RevertedExml.Save(NewFileName)
-        Else
-            RevertedExml.Save(dlgXmlToExml.FileName)
-        End If
+        Dim file As String
+        For Each file In dlgXmlToExml.FileNames
+            XMLString = My.Computer.FileSystem.ReadAllText(dlgXmlToExml.FileName)
+            RevertedExml = RevertXmltoExml(XMLString)
+            If dlgXmlToExml.FileName.EndsWith(".exml.xml") Then
+                Dim NewFileName As String
+                NewFileName = dlgXmlToExml.FileName.Remove(dlgXmlToExml.FileName.Length - 4, 4)
+                RevertedExml.Save(NewFileName)
+            Else
+                RevertedExml.Save(dlgXmlToExml.FileName)
+            End If
+        Next
     End Sub
 
     Public Function ParseExmlString(RawExmlString As String)
         Dim xdoc As New XDocument()
-        'Dim ParsedXML As String
         xdoc = XDocument.Parse(RawExmlString)
         For Each element As XElement In xdoc.Descendants
-            Debug.Print(element.FirstAttribute)
+            Debug.Print("First Attr :" & element.FirstAttribute.ToString)
+            Debug.Print("Elem Name :" & element.Name.ToString)
             If (element.Attribute("template") IsNot Nothing) Then
                 If (element.Attribute("name") Is Nothing) Then
-                    element.Name = "name_root"
+                    element.Name = element.Name.ToString & "_root"
                 Else
-                    element.Name = "name_" & element.Attribute("name").Value
+                    element.Name = element.Name.ToString & "_" & element.Attribute("name").Value
                     element.Attribute("name").Remove()
                 End If
             Else
                 If element.Attribute("name") IsNot Nothing Then
-                    element.Name = "name_" & element.Attribute("name").Value
+                    element.Name = element.Name.ToString & "_" & element.Attribute("name").Value
                     element.Attribute("name").Remove()
                     If (element.Attribute("value") IsNot Nothing) Then
                         element.Value = element.Attribute("value").Value
@@ -53,40 +60,30 @@
                 End If
             End If
         Next
-        'ParsedXML = xdoc.ToString
-        'Return ParsedXML
         Return xdoc
     End Function
 
     Public Function RevertXmltoExml(XMLString As String)
         Dim xdoc As New XDocument()
-        xdoc = XDocument.Parse(RevertXmltoExml)
+        xdoc = XDocument.Parse(XMLString)
         For Each element As XElement In xdoc.Descendants
-            Debug.Print(element.FirstAttribute)
-            If (element.Attribute("template") IsNot Nothing) Then
-                If (element.Name = "name_root") Then
-                    element.Attribute("name") = Nothing
-                Else
-                    If (element.Name Like "name_*" Then
-
-
-                        element.Name = "name_" & element.Attribute("name").Value
-                        element.Attribute("name").Remove()
-                    End If
-                    Else
-                If element.Attribute("name") IsNot Nothing Then
-                    element.Name = "name_" & element.Attribute("name").Value
-                    element.Attribute("name").Remove()
-                    If (element.Attribute("value") IsNot Nothing) Then
-                        element.Value = element.Attribute("value").Value
-                        element.Attribute("value").Remove()
-                    End If
+            If (element.Value IsNot Nothing) Then
+                If (element.Name Is "Data_root") Then
+                    element.Name = element.Name.ToString.TrimEnd("_root")
+                    Debug.Print(element.Name.ToString)
+                ElseIf (element.name.ToString Like "*_*") Then
+                    Dim elementArr As Array
+                    elementArr = element.Name.ToString.Split("_")
+                    element.Name = elementArr.GetValue(0).ToString
+                    element.SetAttributeValue("name", elementArr.GetValue(1).ToString)
+                    Debug.Print(element.Attributes.ToString)
                 End If
+            Else
+                element.Name = element.Name.ToString.TrimEnd("_*")
+                Debug.Print("Valueless :" & element.Name.ToString)
             End If
         Next
+        Return xdoc
     End Function
 
-    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-    End Sub
-End Class
+End Class