Search within XML file and remove certain data

[joshiieeii]

Ok, so i have this XML file with a respectable number of lines in it. I want to search between the "<driver guid" and the "</driver>" and see if the "<source>" line has a "(?)" (?=number) in it. If it does, I want to delete everything from "<driver guid" to "</driver>" and continue to check the next set of "<driver guid" and "</driver>". I shortened the below code for sake of space, there are a random number of lines between "<driver guid" and "</driver>".

Any ideas?

<driver guid="{809f4069-0bbe-49cc-af58-4f75c296da74}" enable="True">
    <Name>NVIDIA Display nvdm.inf 7.15.10.9746</Name>
    <Manufacturer>NVIDIA</Manufacturer>
    <Version>7.15.10.9746</Version>
    <Source>.\Out-of-box Drivers\Display\nvd 7.15.10.9746\nvdm.inf</Source>
    <Type>Display</Type>
    <Platform>x86</Platform>
    <OSVersion>6.0</OSVersion>
    <PNPId>PCI\VEN_10DE&amp;DEV_00C8&amp;SUBSYS_019C1028</PNPId>
  </driver>
  <driver guid="{a24db7b9-ec1b-45dc-8245-7b33da7d579a}" enable="True">
    <Name>NVIDIA Display nvdm.inf 7.15.10.9746</Name>
    <Manufacturer>NVIDIA</Manufacturer>
    <Version>7.15.10.9746</Version>
    <Source>.\Out-of-box Drivers\Display\nvd 7.15.10.9746 (1)\nvdm.inf</Source>
    <Type>Display</Type>
    <Platform>x86</Platform>
    <OSVersion>6.0</OSVersion>
    <PNPId>PCI\VEN_10DE&amp;DEV_00C8&amp;SUBSYS_019C1028</PNPId>
  </driver>

[joshiieeii]

Darnit....was browsing Example Scripts when I had the bright idea to create a topic....Please move to Help Category.

[Uten]

Dive into The StringRegExpReplace function..

Have Fun..

[joshiieeii]

Thanks Uten, That is an unexplored function for me......I am going to dive into that one!!

[jvanegmond]

Here's a start... This is too complicated for a human to do with StringRegExpReplace..

$Read = FileRead("Source.txt")

$Line = StringSplit(StringStripCR($Read),@LF)

For $x = 1 To $Line[0]
    $Line[$x] = StringStripWS($Line[$x],1)
    
    $Prefix = StringTrimRight(StringTrimLeft(StringLeft($Line[$x],StringInStr($Line[$x],">")),1),1)
    Switch $Prefix
        Case "Source"
            MsgBox(0, "Source is on line " & $x, $Line[$x])
            If StringRegExp($Line[$x],"\([0-9]\)") Then
                MsgBox(0, "", "This part should be deleted, this is a StringRegExp match...")
            Else
                MsgBox(0, "", "This part should NOT be deleted.")
            EndIf
    EndSwitch
Next

The RegExp doesn't work yet though, my laptop batteries are dead.. Have to go and recharge..

Edited April 6, 2007 by Manadar