XML DOM wrapper (COM)

GrungeRocker · June 22, 2009

The XML-File looks like this:

<DreamSys><Tiff2PDF><Section name="1"><Tiff file="C:\Programme\ELOoffice\Postbox\Administrator\U_19143202_0000001.TIF"/><Tiff file="C:\Programme\ELOoffice\Postbox\Administrator\U_19143202_0000002.TIF"/></Section></Tiff2PDF></DreamSys>

Could anyone please help me?

I tried it in a hundred of different ways, but I just don't get it to work.

weaponx · June 22, 2009

The XML-File looks like this:
<DreamSys><Tiff2PDF><Section name="1"><Tiff file="C:\Programme\ELOoffice\Postbox\Administrator\U_19143202_0000001.TIF"/><Tiff file="C:\Programme\ELOoffice\Postbox\Administrator\U_19143202_0000002.TIF"/></Section></Tiff2PDF></DreamSys>
Could anyone please help me?
I tried it in a hundred of different ways, but I just don't get it to work.

This format is correct, it's just not indented properly.

WeMartiansAreFriendly · June 22, 2009

Will this ever get added to AutoIt? (UDFs)

weaponx · June 22, 2009

Will this ever get added to AutoIt? (UDFs)

I hope so. Pretty much every answer exists in this topic concerning XML, the same general questions keep getting asked over and over.

motionman95 · June 23, 2009

Hello! I'm using your AWESOME UDF to read an RSS feed. But I have a question: Is there a way to parse CDATA? By default, that cause quotation marks and other punctuation to disappear, replaced by their decimal (I think) equivalent. Is there a possible fix for this? Thanks in advance!

weaponx · June 23, 2009

Can you provide an example of a feed like this?

motionman95 · June 23, 2009

Sure...here.

Edited June 23, 2009 by motionman95

motionman95 · June 23, 2009

No hope, weaponx?

weaponx · June 23, 2009

No hope, weaponx?

Umm well i'm pretty sure they are just html entities but I can't find a COM object / dll that can natively convert them to plain text. PHP and VB have functions that can decode these.

motionman95 · June 23, 2009

*Sniff, sniff* okay.

ptrex · July 3, 2009

@motionman95

I am not sure what you are looking for but if you need to get rid off the TAGS in HTML.

You need to use the .innerText or .innerHTML property of the DOM object model.

See examples here :

InnerHTML

InnerText

Regards

ptrex

NDTC · July 9, 2009

Hi all,

Someone can help me?

I nead to update an XML file (the Windows Vista response file: Unattended.xml), but many test is unsucessful.

The xml code:

<?xml version="1.0" encoding="utf-8"?>
<unattend xmlns="urn:schemas-microsoft-com:unattend">
    <settings pass="windowsPE">
        <component name="Microsoft-Windows-Setup" processorArchitecture="x86" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <DiskConfiguration>
                <Disk>
                    <CreatePartitions>
                        <CreatePartition wcm:action="add">
                            <Order>1</Order>
                            <Size>20000</Size>
                            <Type>Primary</Type>
                        </CreatePartition>
                    </CreatePartitions>
                    <ModifyPartitions>
                        <ModifyPartition wcm:action="add">
                            <Active>true</Active>
                            <Extend>false</Extend>
                            <Format>NTFS</Format>
                            <Label>OS_Install</Label>
                            <Letter>C</Letter>
                            <Order>1</Order>
                            <PartitionID>1</PartitionID>
                        </ModifyPartition>
                    </ModifyPartitions>
                    <DiskID>0</DiskID>
                    <WillWipeDisk>true</WillWipeDisk>
                </Disk>
                <WillShowUI>onerror</WillShowUI>
            </DiskConfiguration>
            <UserData>
                <ProductKey>
                    <Key>XXXXX-XXXXX-XXXXX-XXXXX-XXXXX</Key>
                    <WillShowUI>onerror</WillShowUI>
                </ProductKey>
                <AcceptEula>true</AcceptEula>
            </UserData>
            <ImageInstall>
                <OSImage>
                    <InstallTo>
                        <DiskID>0</DiskID>
                        <PartitionID>1</PartitionID>
                    </InstallTo>
                    <WillShowUI>onerror</WillShowUI>
                </OSImage>
            </ImageInstall>
            <UpgradeData>
                <Upgrade>true</Upgrade>
            </UpgradeData>
        </component>
        <component name="Microsoft-Windows-International-Core-WinPE" processorArchitecture="x86" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <SetupUILanguage>
                <UILanguage>en-us</UILanguage>
            </SetupUILanguage>
            <InputLocale>0409:00000409</InputLocale>
            <SystemLocale>en-us</SystemLocale>
            <UILanguage>en-us</UILanguage>
            <UserLocale>en-US</UserLocale>
        </component>
    </settings>
    <settings pass="oobeSystem">
        <component name="Microsoft-Windows-Shell-Setup" processorArchitecture="x86" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <OEMInformation>
                <Manufacturer>&lt;company name&gt;</Manufacturer>
                <Model>&lt;computer model&gt;</Model>
                <SupportHours>&lt;support hours&gt;</SupportHours>
                <SupportPhone>&lt;phone number&gt;</SupportPhone>
            </OEMInformation>
        </component>
    </settings>
    <cpi:offlineImage cpi:source="wim:c:/download/aik/install.wim#Windows Vista ULTIMATE" xmlns:cpi="urn:schemas-microsoft-com:cpi" />
</unattend>

I need to update the last "settings" section by adding this line "<ComputerName>MyComputer</ComputerName>" like this:

<settings pass="oobeSystem">
        <component name="Microsoft-Windows-Shell-Setup" processorArchitecture="x86" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <ComputerName>MyComputer</ComputerName>
            <OEMInformation>
                <Manufacturer>&lt;company name&gt;</Manufacturer>
                <Model>&lt;computer model&gt;</Model>
                <SupportHours>&lt;support hours&gt;</SupportHours>
                <SupportPhone>&lt;phone number&gt;</SupportPhone>
            </OEMInformation>
        </component>
    </settings>

Thank you for your help,

Regards.

kjcdude · July 18, 2009

Since i can't write a line to a file in autoit easily i'm trying to work xml to be able to find a setting and change it.

----Start----

<?xml version="1.0" encoding="UTF-8"?>

<FILE>

</PROFILE>

</PROFILE>

---break---

</PROFILE>

---break---

</PROFILE>

</PROFILE>

</PROFILESET>

</FILE>

---end---

The part that i need to edit is the Value to the Property Label="vsync_default"

I've tried to read the property label, but have gotten no where near where i need to be.

Thanks

Asvarox · August 9, 2009

Can't get it to work correctly. I put this into Include folder and downloaded the example file (with gui controls). It saves the xml file just fine, but it can't read it. _XMLGetValue always returns -1 . I created simple script to test it. Obviously it didn't work:

#include <_XMLDomWrapper.au3>

$ret = _XMLFileOpen("settings.xml")
if $ret =0 then Exit
MsgBox(0, "test", _XMLGetValue("root/test/wellness"))

and xml:

<?xml version="1.0"?>
<root>
<test>
<wellness>100</wellness>
</test>
</root>

Edited August 9, 2009 by Asvarox

notta · August 11, 2009

Look at the header for _xmlgetvalue. It returns an array.

#include <_XMLDomWrapper.au3>
#include <array.au3>

Dim $new  

$ret = _XMLFileOpen("test.xml") 
if $ret =0 then Exit   

$new = _XMLGetValue("/root/test/wellness")  
if IsArray($new) Then 
   MsgBox(0,"","Is array")  
Else     
   MsgBox(0,"","Not an array")  
EndIf   

_ArrayDisplay($new)

Asvarox · August 11, 2009

Thanks for help, it worked!

Now I see how awesome this thing is >_<

VAG · August 12, 2009

I have this code which is based on your suggested method to generate XML posting with tree layout format. It works great so far on all my projects. However, recently one of my new project requires up to 6000+ no of postings. A performance issue is discovered which lead to scienificant slow down of runtime scripts. After I trace back, the root cause was due to the increment of processing time required by XML writing in each posting.

I have used a few _XMLDomWrapper methods in my libray. The timing issue mainly occur when I call _XMLCreateChildWAttr and _XMLCreateRootNodeWAttr.

Part of the code:

Func _TestLog_Message($s_title, $s_remarks, $s_picture)

$ROOT = "tree/"

; Record posting time
$result = _Date_Time_GetLocalTime()
$s_tCur = _Date_Time_SystemTimeToDateTimeStr($result)

; Define <item> Attribute Names
$ATTRIBS_Name = _ArrayCreate("id", "text", "im0", "im1", "im2", "child")   

; Define <userdata> attributes and values
$s_userdata_name = _ArrayCreate("type", "datetime", "remarks", "picture") 
$s_userdata_value = _ArrayCreate("message", $s_tCur ,$s_remarks, $s_picture)

; Icon image attributes for <item> posting
$s_im0 = "ms0.gif" ;icon for text
$s_im1 = "ms1.gif" ;icon for open node
$s_im2 = "ms2.gif" ;icon for close node
  
; Generate id for new posting
$s_xid = Number(_XMLGetAttrib("//udf", "xid"))   ;read <id> count from <udf id> attribute
$s_xid = StringFormat("%05s",$s_xid+1)    ; Generate unique "id" attribute from last posting entry

; Processing tree path layout
$s_xnode = _XMLGetAttrib("//udf", "xpath")   ;Read back xnode from temp <udf xpath> attribute
$s_xpath = $s_xnode & $s_xid
$SPLITPATH = StringSplit($s_xpath, "/")    ;[0]: numbe of elements, [1]: element[1]

; Reset element zero to zero for blank path (null counted as 1?)  
If $SPLITPATH[1] = "" Then  
  $SPLITPATH[0] = 0        ;indicate no element [0]=0
EndIf

; Generate XPATH formatting for nodes
For $X = 1 to $SPLITPATH[0]
  $SPLITPATH[$X] = StringFormat ( "item[@id='%s']", $SPLITPATH[$X] )  ;format xpath syntax for each node, @text = <item id>
Next

; Not valid if path is blank
If Not $SPLITPATH[0] = 0 Then
  ;--------------------------
  ; <item> attribute and child element
  ;--------------------------
  ; Generate folders to accomodate items path
  For $X = 1 to UBound($SPLITPATH) - 1
  
   $XPATH = $ROOT & _ArrayToString($SPLITPATH, "/", 1, $X) ;_ArrayToString = combine path items level by level
  
   ; Check if path exists
   If NOT IsArray(_XMLGetPath ($XPATH)) Then    ;_XMLGetPath = return path item into array from node in xpath
    If $X > 1 Then
     ; CHILD item
     $ATTRIBS_Value = _ArrayCreate($s_xid, $s_title, $s_im0, $s_im1, $s_im2, "0")
     _XMLCreateChildWAttr($ROOT & _ArrayToString($SPLITPATH, "/", 1, $X - 1), "item", $ATTRIBS_Name, $ATTRIBS_Value) ; node is "tree/" + xpath
    Else
     ; ROOT item
     $ATTRIBS_Value = _ArrayCreate($s_xid, $s_title, $s_im0, $s_im1, $s_im2, "0")
     _XMLCreateRootNodeWAttr("item", $ATTRIBS_Name, $ATTRIBS_Value)  ;Root node is "tree/item"
    EndIf
   EndIf

  Next 
  
  ;--------------------------
  ; <userdata> element
  ;--------------------------
  For $X = 0 to UBound($s_userdata_name) - 1
   _XMLCreateChildWAttr($XPATH, "userdata", "name", $s_userdata_name[$X], $s_userdata_value[$X])
  Next

EndIf

; Save UDF variable back to <udf> tag
_XMLSetAttrib("//udf", "xid", $s_xid)   ; save <id> count back to <udf id> attribute 

EndFunc

Example to call:

#include "_CTL_TestLog.au3"

$TempXML = @ScriptDir & "\example.xml"

_TestLog_Initiate($TempXML)

_TestLog_Folder_Open("Test Folder", "", "")

For $c=1 To 3000
$begin = TimerInit()
_TestLog_Message("Test is a test message", "", "")
$dif = TimerDiff($begin)
ToolTip("Posting Count " & $c & ", Duration: " & $dif, 400, 400, "Test Log Performance Testing", 1)
Sleep(3000)
Next

_TestLog_Folder_Close()

Is there anything wrong with the way I implement the code? Thanks in advance.

I have attached the generated XML, I only generated 1 level tree structure. But the increase in delay on every posting can be seen in the data. You can also see the delay when you run my Example.au3

<?xml version="1.0"?>
<tree id="0"><!--CTL AutoIT Test Log - Version 1.03-->

<udf xpath="" xid="03001"/>
<item id="00001" text="Test Folder" im0="ms0.gif" im1="ms1.gif" im2="ms2.gif" child="1" flag="0">
<userdata name="type">folder</userdata>
<userdata name="datetime">08/12/2009 15:14:47</userdata>
<userdata name="remarks"/>
<userdata name="picture"/>
<item id="00002" text="Test is a test message" im0="ms0.gif" im1="ms1.gif" im2="ms2.gif" child="0">
<userdata name="type">message</userdata>
<userdata name="datetime">08/12/2009 15:14:47</userdata>
<userdata name="remarks"/>
<userdata name="picture"/>
</item>
<item id="00003" text="Test is a test message" im0="ms0.gif" im1="ms1.gif" im2="ms2.gif" child="0">
<userdata name="type">message</userdata>
<userdata name="datetime">08/12/2009 15:14:50</userdata>
<userdata name="remarks"/>
<userdata name="picture"/>
</item>
<item id="00004" text="Test is a test message" im0="ms0.gif" im1="ms1.gif" im2="ms2.gif" child="0">
<userdata name="type">message</userdata>
<userdata name="datetime">08/12/2009 15:14:53</userdata>
<userdata name="remarks"/>
<userdata name="picture"/>
</item>
</item>
</tree>

Edited August 17, 2009 by VAG

tegl · August 15, 2009

#include <_XMLDomWrapper.au3>
$sFile=@ScriptDir&"\dd.xml"
writexml()
readxml()

Func writexml()
    _XMLCreateFile($sFile, "config", True)
    _XMLFileOpen($sFile)
    _XMLCreateRootChild("option")
    _XMLCreateChildWAttr("config/option","update","auto","false")
    _XMLCreateChildWAttr("config/option","recordlastplaypos","auto","true")
    _XMLCreateChildNode("config/option","boxopen")
    _XMLCreateAttrib("config/option/boxopen","bystorm","false")
    _XMLCreateAttrib("config/option/boxopen","bylive","false")
EndFunc
Func readxml()
    _XMLFileOpen($sFile)
    MsgBox(0,"",_XMLGetAttrib("config/option/update","auto"))
    MsgBox(0,"",_XMLGetAttrib("config/option/recordlastplaypos","auto"))
    MsgBox(0,"",_XMLGetAttrib("config/option/boxopen","bylive"))
EndFunc

the _XMLGetAttrib() cann't get the right result,please fix it

BrettF · August 15, 2009

Contents of the XML would maybe help... Actually, it is needed. Post it.

As far as I can work out, the functions are more than fine. Its probably (more likely) your code...

VAG · August 17, 2009

Contents of the XML would maybe help... Actually, it is needed. Post it.
As far as I can work out, the functions are more than fine. Its probably (more likely) your code...

I have updated my post with the generated XML. The delays can seen more obviously in the attached file. It can also be seen by running Example.au3 in my attached scripts.

Sign In

XML DOM wrapper (COM)

Recommended Posts

GrungeRocker

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

eltorro

Syed23

Posted Images

weaponx

WeMartiansAreFriendly

weaponx

motionman95

weaponx

motionman95

motionman95

weaponx

motionman95

ptrex

NDTC

kjcdude

Asvarox

notta

Asvarox

VAG

tegl

BrettF

VAG

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta