i just created this in VB:
Code:
Sub Main()
Try
'Create the XmlDocument.
Dim doc As New XmlDocument()
doc.Load("C:\test_in.xml")
'Change x Values
Console.WriteLine("Changing posx values...")
Dim elemList As XmlNodeList = doc.GetElementsByTagName("posx")
Dim i As Integer
For i = 0 To elemList.Count - 1
Console.Write(elemList(i).InnerXml)
Console.Write(" => ")
elemList(i).InnerXml = Math.Round(elemList(i).InnerXml * 1.5)
Console.WriteLine(elemList(i).InnerXml)
Next i
'Change y Values
Console.WriteLine("Changing posy values...")
Dim elemList2 As XmlNodeList = doc.GetElementsByTagName("posy")
For i = 0 To elemList2.Count - 1
Console.Write(elemList2(i).InnerXml)
Console.Write(" => ")
elemList2(i).InnerXml = Math.Round(elemList2(i).InnerXml * 1.5)
Console.WriteLine(elemList2(i).InnerXml)
Next i
' 2. Save the modified XML to a file in Unicode format.
doc.PreserveWhitespace = True
Dim wrtr As XmlTextWriter = New XmlTextWriter("C:\test_Out.xml", Encoding.Unicode)
doc.WriteTo(wrtr)
wrtr.Close()
Console.WriteLine("C:\test_Out.xml is created")
Console.ReadLine()
Catch xmlex As XmlException ' Handle the Xml Exceptions here.
Console.WriteLine("{0}", xmlex.Message)
Catch ex As Exception ' Handle the generic Exceptions here.
Console.WriteLine("{0}", ex.Message)
End Try
End Sub
can anyone help me to write the output file with the correct encoding?
is Unicode right? How can I choose ANSI?
when I convert an XML (taken from confluence) with that, all line breaks are removed....
EDIT: I think I got it
here´s the code to convert the posx, posy, width and height values to 1080p. the animations have to be tweaked by hand, don´t know if i will get that running too.
Code:
Imports System.Xml
Imports System.Text
Imports System
Imports System.IO
Module Module1
Sub Main()
Try
'Create the XmlDocument.
Dim doc As New XmlDocument()
doc.Load("C:\test_in.xml")
'Change x Values
Console.WriteLine("Changing posx values")
Dim elemList As XmlNodeList = doc.GetElementsByTagName("posx")
Dim i As Integer
For i = 0 To elemList.Count - 1
Console.Write(elemList(i).InnerXml)
Console.Write(" => ")
elemList(i).InnerXml = Math.Round(elemList(i).InnerXml * 1.5)
Console.WriteLine(elemList(i).InnerXml)
Next i
'Change y Values
Console.WriteLine("Changing posy values")
Dim elemListposy As XmlNodeList = doc.GetElementsByTagName("posy")
For i = 0 To elemListposy.Count - 1
Console.Write(elemListposy(i).InnerXml)
Console.Write(" => ")
elemListposy(i).InnerXml = Math.Round(elemListposy(i).InnerXml * 1.5)
Console.WriteLine(elemListposy(i).InnerXml)
Next i
'Change width Values
Console.WriteLine("Changing width values")
Dim elemListwidth As XmlNodeList = doc.GetElementsByTagName("width")
For i = 0 To elemListwidth.Count - 1
Console.Write(elemListwidth(i).InnerXml)
Console.Write(" => ")
elemListwidth(i).InnerXml = Math.Round(elemListwidth(i).InnerXml * 1.5)
Console.WriteLine(elemListwidth(i).InnerXml)
Next i
'Change height Values
Console.WriteLine("Changing height values")
Dim elemListheight As XmlNodeList = doc.GetElementsByTagName("height")
For i = 0 To elemListheight.Count - 1
Console.Write(elemListheight(i).InnerXml)
Console.Write(" => ")
elemListheight(i).InnerXml = Math.Round(elemListheight(i).InnerXml * 1.5)
Console.WriteLine(elemListheight(i).InnerXml)
Next i
'Change textwidth Values
Console.WriteLine("Changing textwidth values")
Dim elemListTextWidth As XmlNodeList = doc.GetElementsByTagName("textwidth")
For i = 0 To elemListTextWidth.Count - 1
Console.Write(elemListTextWidth(i).InnerXml)
Console.Write(" => ")
elemListTextWidth(i).InnerXml = Math.Round(elemListTextWidth(i).InnerXml * 1.5)
Console.WriteLine(elemListTextWidth(i).InnerXml)
Next i
'Change textoffsetx Values
Console.WriteLine("Changing textoffsetx values")
Dim elemListTextoffsetx As XmlNodeList = doc.GetElementsByTagName("textoffsetx")
For i = 0 To elemListTextoffsetx.Count - 1
Console.Write(elemListTextoffsetx(i).InnerXml)
Console.Write(" => ")
elemListTextoffsetx(i).InnerXml = Math.Round(elemListTextoffsetx(i).InnerXml * 1.5)
Console.WriteLine(elemListTextoffsetx(i).InnerXml)
Next i
'Change textoffsety Values
Console.WriteLine("Changing textoffsety values")
Dim elemListTextoffsety As XmlNodeList = doc.GetElementsByTagName("textoffsety")
For i = 0 To elemListTextoffsety.Count - 1
Console.Write(elemListTextoffsety(i).InnerXml)
Console.Write(" => ")
elemListTextoffsety(i).InnerXml = Math.Round(elemListTextoffsety(i).InnerXml * 1.5)
Console.WriteLine(elemListTextoffsety(i).InnerXml)
Next i
'Change radioposx Values
Console.WriteLine("Changing radioposx values")
Dim elemListradioposx As XmlNodeList = doc.GetElementsByTagName("radioposx")
For i = 0 To elemListradioposx.Count - 1
Console.Write(elemListradioposx(i).InnerXml)
Console.Write(" => ")
elemListradioposx(i).InnerXml = Math.Round(elemListradioposx(i).InnerXml * 1.5)
Console.WriteLine(elemListradioposx(i).InnerXml)
Next i
'Change radioposy Values
Console.WriteLine("Changing radioposy values")
Dim elemListradioposy As XmlNodeList = doc.GetElementsByTagName("radioposy")
For i = 0 To elemListradioposy.Count - 1
Console.Write(elemListradioposy(i).InnerXml)
Console.Write(" => ")
elemListradioposy(i).InnerXml = Math.Round(elemListradioposy(i).InnerXml * 1.5)
Console.WriteLine(elemListradioposy(i).InnerXml)
Next i
'Change radiowidth Values
Console.WriteLine("Changing radiowidth values")
Dim elemListradiowidth As XmlNodeList = doc.GetElementsByTagName("radiowidth")
For i = 0 To elemListradiowidth.Count - 1
Console.Write(elemListradiowidth(i).InnerXml)
Console.Write(" => ")
elemListradiowidth(i).InnerXml = Math.Round(elemListradiowidth(i).InnerXml * 1.5)
Console.WriteLine(elemListradiowidth(i).InnerXml)
Next i
'Change radioheight Values
Console.WriteLine("Changing radioheight values")
Dim elemListradioheight As XmlNodeList = doc.GetElementsByTagName("radioheight")
For i = 0 To elemListradioheight.Count - 1
Console.Write(elemListradioheight(i).InnerXml)
Console.Write(" => ")
elemListradioheight(i).InnerXml = Math.Round(elemListradioheight(i).InnerXml * 1.5)
Console.WriteLine(elemListradioheight(i).InnerXml)
Next i
' 2. Save the modified XML to a file in Unicode format.
doc.PreserveWhitespace = True
Dim wrtr As XmlTextWriter = New XmlTextWriter("C:\test_Out.xml", Encoding.Unicode)
wrtr.Formatting = Formatting.Indented
doc.WriteTo(wrtr)
wrtr.Close()
Console.WriteLine("C:\test_Out.xml is created")
Console.ReadLine()
Catch xmlex As XmlException ' Handle the Xml Exceptions here.
Console.WriteLine("{0}", xmlex.Message)
Catch ex As Exception ' Handle the generic Exceptions here.
Console.WriteLine("{0}", ex.Message)
End Try
End Sub
End Module
EDIT: added some more elements:
it now converts posx,posy,width,height,textwidth,textoffsetx,textoffsety,radioposx,radioposy,radiowidth,radioheight.
can post an exe if someone wants it.