Hilfe bei XML Struktur auslesen

Andy61

Hallo Leute
Ich Versuche mit _XMLDomWrapper meine XML Struktur auszulesen aber ich versteh das noch nicht so ganz wie des funktioniert :o

Also ich will halt eine XML Datei in einem TreeView einlesen, also das sollte ungefähr so aussehen wie im Anhang mit der XML Datei.
Mein Problem ist halt ich weiß nicht wie ich das alles einlesen kann ohne es Hard Coded rein zu schreiben.

Sorry das die XML Datei ein Bild ist muss den Post leider über mein Handy machen

Danke schon mal im voraus!

Gesendet von meinem SM-G900F mit Tapatalk

Runa

Wichtigste Frage: Ist dein XML-Format auch IMMER exakt so wie links?

Auf Items hast du immer selbstschließende Tags und auf allem mit Unterelementen hast du ganz normale "HTML"-Tags?

Falls ja - kann nun nicht auf deine Antwort warten, hilft dir das vielleicht weiter. Das baut dir die TreeView als Text. Von da aus ist es nicht mehr weit zur fertigen TreeView. Sollte gut verständlich sein:

Spoiler anzeigen

AutoIt

$sXML = ""
$sXML &= '<?xml version="1.0"?><Infos>' & @CRLF
$sXML &= "	<Autos>" & @CRLF
$sXML &= "		<Audi>" & @CRLF
$sXML &= "			<A3 />" & @CRLF
$sXML &= "			<A6 />" & @CRLF
$sXML &= "		</Audi>" & @CRLF
$sXML &= "	</Autos>" & @CRLF
$sXML &= "</Infos>" & @CRLF


Global $sParent = ""
$sCode = _RemoveCommentLine($sXML)
_BuildTree($sCode, $sParent)




Func _BuildTree($sCode, $sParent)
	$aParent = StringRegExp($sCode, "(?:<(.+?)>.+?<\/.+?>)", 3)
	If IsArray($aParent) Then
		$sParentItem = $sParent
		If $sParentItem = "" Then $sParentItem = "ROOT"
		_CreateTreeViewItem($aParent[0], $sParentItem)
		$sParent = $aParent[0]
	Else
		Return
	EndIf
	$sCode = _GetChilds($sCode, $sParent)
	_BuildTree($sCode, $sParent)
EndFunc




Func _RemoveCommentLine($sCode)
	$sCode = StringRegExpReplace($sCode, "(\<\?(.+?)\?\>)", "")
	$sCode = StringRegExpReplace($sCode, @CR, "")
	$sCode = StringRegExpReplace($sCode, @LF, "")
	$sCode = StringRegExpReplace($sCode, @TAB, "")
	Return $sCode
EndFunc


Func _GetChilds($sCode, $sParent)
	$aReturn = StringRegExp($sCode, "<" & $sParent & ">(.+?)</" & $sParent & ">", 3)
	If IsArray($aReturn) Then
		$sReturn = $aReturn[0]
		_GetEndChilds($sReturn, $sParent)
		Return $sReturn
	EndIf
EndFunc


Func _GetEndChilds($sReturn, $sParent)
	$aEndChild = StringRegExp($sReturn, "^<([A-Za-z0-9]+?) />", 3)
	If IsArray($aEndChild) Then
		_CreateTreeViewItem($aEndChild[0], $sParent)
		$sReturn = StringReplace($sReturn, "<" & $aEndChild[0] & " />", "")
		_GetEndChilds($sReturn, $sParent)
	EndIf
EndFunc


Func _CreateTreeViewItem($sText, $sParent)
	ConsoleWrite("Creating " & $sText & " under " & $sParent & @CRLF)
EndFunc

Alles anzeigen

Andy61

Hallo,
Vielen Dank für deine Antwort!
Ich hab des geschafft das Beispiel mit dem TreeView zu machen.
Nur jetzt wollte ich etwas die XML Datei erweitern wie z.B

Spoiler anzeigen

XML

<?xml version="1.0"?><Infos>
	<Autos>
		<Audi>
			<A3 />
			<A6 />
		</Audi>
	</Autos>
	<Motorräder>
		<Kawasaki />
		<Yamaha />
	</Motorräder>
</Infos>

Alles anzeigen

Aber er macht immer noch nur das wie davor...

Er geht bis zum <A6 /> und dann hört er auf..

Danke im Vorraus

Runa

Da noch ein weiterer Ansatz. Und mehr wird es von mir nicht geben. Es ging bloß darum dir einen Denkanstoß zu geben, nicht die Programmierung für dich zu übernehmen.

Spoiler anzeigen

AutoIt

#include <Array.au3>


$sXML = ""
$sXML &= '<?xml version="1.0"?><Infos>' & @CRLF
$sXML &= "	<Autos>" & @CRLF
$sXML &= "		<Audi>" & @CRLF
$sXML &= "			<A3 />" & @CRLF
$sXML &= "			<A6 />" & @CRLF
$sXML &= "		</Audi>" & @CRLF
$sXML &= "	</Autos>" & @CRLF
$sXML &= "	<Motorräder>" & @CRLF
$sXML &= "		<Kawasaki />" & @CRLF
$sXML &= "		<Yamaha />" & @CRLF
$sXML &= "	</Motorräder>" & @CRLF
$sXML &= "</Infos>" & @CRLF


Global $iLevel = 0
Global $aParent[500]
$aParent[0] = "<ROOT>"
$sCode = _RemoveCommentLine($sXML)
$aSplit = StringSplit($sCode, @CR)
If Not IsArray($aSplit) Then Exit
_BuildTree($aSplit)


Func _BuildTree($aSplit)


	$iLevel += 1
	If StringLeft($aSplit[1], 2) = "</" Then $iLevel -= 2


	If StringLeft($aSplit[1], 2) <> "</" Then
		$aParent[$iLevel] = $aSplit[1]
		_CreateTreeViewItem(StringTrimLeft(StringTrimRight($aSplit[1], 1), 1), StringTrimLeft(StringTrimRight($aParent[$iLevel-1], 1), 1))
	EndIf
	If StringRight($aSplit[1], 2) = "/>" Then $iLevel -= 1
	_ArrayDelete($aSplit, 1)
	$aSplit[0] -= 1
	If $aSplit[0] = 1 Then Return
	_BuildTree($aSplit)
EndFunc


Func _RemoveCommentLine($sCode)
	$sCode = StringRegExpReplace($sCode, "(\<\?(.+?)\?\>)", "")
	$sCode = StringRegExpReplace($sCode, @TAB, "")
	$sCode = StringRegExpReplace($sCode, @LF, @CR)
	$sCode = StringRegExpReplace($sCode, @CR&@CR, @CR)
	Return $sCode
EndFunc


Func _CreateTreeViewItem($sText, $sParent)
	$sText = StringReplace($sText, " /", "")
	ConsoleWrite("Creating " & $sText & " under " & $sParent & @CRLF)
EndFunc

Alles anzeigen

Andy61

Hey,
viele vielen Dank!
Jetzt hab ich's kapiert!

Gesendet von meinem SM-G900F mit Tapatalk