I am trying rewrite my code written in vba to python to generate the xml is below format shown in the image below using python.
Sample Data
ORDER_RELEASE_GID PTA
XXXXXXXXXXX.254687058 15/11/2019
XXXXXXXXXXXXX.8000337937 10/10/2019
XXXXXXXXXXXXX.4501222542 27/9/2019
XXXXXXXXXXXXX.4501221219 1/9/2019
XXXXXXXXXXXXX.4501220248 8/9/2019
XXXXXXXXXXXXX.8000337932
XXXXXXXXXXXXX.8000338393 22/10/2019
XXXXXXXXXXXXX.8000338445 10/9/2019
XXXXXXXXXXXXX.4501221982 9/9/2019
XXXXXXXXXXXXX.256535442 9/9/2019
XXXXXXXXXXXXX.4501220239 1/9/2019
XXXXXXXXXXXXX.4501221187 18/10/2019
XXXXXXXXXXXXX.4501220259 18/10/2019
My VBA Code
Public Const ORDER_ID = "A"
Public Const PTA = "B"
Sub GenerateXML()
Dim i As Integer
Dim row As Long
Dim cur_order As String
Dim xmlFile As String
Dim path As String
Dim oWSS As Object
Dim glogdate As String
Dim StatusDate As Date
Set oWSS = CreateObject("WScript.Shell")
glogdate = Format(Now(), "yyyyMMddhhmmss")
xmlFile = ActiveWorkbook.path & "\xxxxxXXXXX_" & xxxxxxxx& ".xml"
With Worksheets("Sheet1")
row = .Cells(.Rows.Count, "A").End(xlUp).row
End With
i = 2
Open xmlFile For Output As #1
'TRANSMISSION HEADER
Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & "?>"
Print #1, "<Transmission>"
Print #1, " <TransmissionHeader>"
Print #1, " <Version>6.4</Version>"
Print #1, " <TransmissionCreateDt>"
Print #1, " <GLogDate>" & glogdate & "</GLogDate>"
Print #1, " </TransmissionCreateDt>"
Print #1, " <UserName>xxxxxxxxxxxx</UserName>"
Print #1, " <Password>xxxxx</Password>"
Print #1, " <SenderTransmissionNo>xxxxxxxxxxxx_" & glogdate & "</SenderTransmissionNo>"
'Print #1, " <TransmissionType>STAGING</TransmissionType>"
Print #1, " <AckSpec>"
Print #1, " <ComMethodGid>"
Print #1, " <Gid>"
Print #1, " <Xid>EMAIL</Xid>"
Print #1, " </Gid>"
Print #1, " </ComMethodGid>"
Print #1, " <EmailAddress>xxxx.com</EmailAddress>"
Print #1, " <AckOption>ERROR</AckOption>"
Print #1, " </AckSpec>"
Print #1, " </TransmissionHeader>"
Print #1, "<TransmissionBody>"
Do While i <= row
If (Worksheets("Sheet1").Range(PTA & i).Value) = "" Then
i = i + 1
Else
'STATUS
Print #1, " <GLogXMLElement> "
Print #1, " <GenericStatusUpdate> "
Print #1, " <GenericStatusObjectType>ORDER_RELEASE</GenericStatusObjectType> "
Print #1, " <Gid> "
Print #1, " <DomainName>xxx</DomainName> "
Print #1, " <Xid>" & Mid(Worksheets("Sheet1").Range(ORDER_ID & i).Value, 12) & "</Xid> "
Print #1, " </Gid> "
Print #1, " <TransactionCode>U</TransactionCode> "
Print #1, " <Refnum> "
Print #1, " <RefnumQualifierGid> "
Print #1, " <Gid> "
Print #1, " <DomainName>XXXXXXXXXXXXX</DomainName> "
Print #1, " <Xid>XXXXXX</Xid> "
Print #1, " </Gid> "
Print #1, " </RefnumQualifierGid> "
Print #1, " <RefnumValue>" & Format$(Worksheets("Sheet1").Range(PTA & i).Value, "dd-mm-yyyy") & "</RefnumValue> "
Print #1, " </Refnum> "
Print #1, " </GenericStatusUpdate> "
Print #1, " </GLogXMLElement> "
i = i + 1
End If
Loop
Print #1, "</TransmissionBody>"
Print #1, "</Transmission>"
Close #1
End Sub
I am tried writing Python code but not able to generate custom xml like vba. I tried using dicttoxl and lxml function genreate the xml formats but the not able create custom xml.
How can this be done?
My python code
df.to_csv('GGG.csv',index=False)
import csv
import lxml.etree as ET
headers = ['ORDER_RELEASE_GID','PTA']
# INITIALIZING XML FILE
root = ET.Element('root')
# READING CSV FILE AND BUILD TREE
with open('GSK.csv') as f:
next(f) # SKIP HEADER
csvreader = csv.reader(f)
for row in csvreader:
data = ET.SubElement(root, "data")
for col in range(len(headers)):
node = ET.SubElement(data, headers[col]).text = str(row[col])
# SAVE XML TO FILE
tree_out = (ET.tostring(root, pretty_print=True, xml_declaration=True, encoding="UTF-8"))
# OUTPUTTING XML CONTENT TO FILE
with open('Output.xml', 'wb') as f:
f.write(tree_out)