this is what im doing to create a Adder's Tongue only badnodes.xml file. Not elegant, but will work. VBS woot !
Set fso = CreateObject("Scripting.FileSystemObject")
Set inFile = fs

penTextFile("Debug.html", 1, False)
Set outFile = fs

penTextFile("badNodes_auto.txt", 2, true)
Do While inFile.atEndOfStream = False
thisLine = inFile.readLine
If instr(thisLine, "Maneuvering towards Goldclover:") Then
strItem = "<bad_location><name>Goldclover</name><waypoint>" & getWaypoint(thisLine) & "</waypoint><comment>" & "Added from debug.html" & "</comment></bad_location>"
strOut = strOut & strItem & vbNewLine
ElseIf instr(thisLine, "Maneuvering towards Tiger Lily:") Then
strItem = "<bad_location><name>Tiger Lily</name><waypoint>" & getWaypoint(thisLine) & "</waypoint><comment>" & "Added from debug.html" & "</comment></bad_location>"
strOut = strOut & strItem & vbNewLine
End If
Loop
outFile.Write strOut
Function getWaypoint(thisLine)
intA = InStr(thisLine, "(") + 2
strCoords = Mid(thisLine, intA, len(thisLine))
strCoords = left(strCoords, len(strCoords) - 6)
getWaypoint = replace(strCoords, ",","")
End Function