by just me » 14 Jun 2021, 04:58
Moin,
sieht aus wie XML. Man kann das eventuell über Microsoft's XML-API verarbeiten. Wenn aber jeweils nur ein einfaches, nicht geschachteltes Attributpaar in der Zwischenablage enthalten ist, sollte auch Folgendes reichen:
Code: Select all
#NoEnv
; A := Clipboard
A =
(Join`r`n
<Auftragsnummer_AG>7771234567</Auftragsnummer_AG>
<Anlagen_vorhanden>Ja</Anlagen_vorhanden>
<Status>Unterbrochen</Status>
)
Ausgabe := ""
Trenner := ","
Suchbegriffe := "<Auftragsnummer_AG>`t<Anlagen_vorhanden>`t<Status>"
Loop, Parse, Suchbegriffe, `t
{
RegExMatch(A, A_LoopField . "\K[^<]+", Treffer)
Ausgabe .= Trenner . Treffer
}
Ausgabe := SubStr(AUsgabe, 2) ; ersten Trenner überspringen
MsgBox, %Ausgabe%
Es lässt sich auch (einfacher ?) mit
InStr() / SubStr() lösen.
Moin,
sieht aus wie XML. Man kann das eventuell über Microsoft's XML-API verarbeiten. Wenn aber jeweils nur ein einfaches, nicht geschachteltes Attributpaar in der Zwischenablage enthalten ist, sollte auch Folgendes reichen:
[code]#NoEnv
; A := Clipboard
A =
(Join`r`n
<Auftragsnummer_AG>7771234567</Auftragsnummer_AG>
<Anlagen_vorhanden>Ja</Anlagen_vorhanden>
<Status>Unterbrochen</Status>
)
Ausgabe := ""
Trenner := ","
Suchbegriffe := "<Auftragsnummer_AG>`t<Anlagen_vorhanden>`t<Status>"
Loop, Parse, Suchbegriffe, `t
{
RegExMatch(A, A_LoopField . "\K[^<]+", Treffer)
Ausgabe .= Trenner . Treffer
}
Ausgabe := SubStr(AUsgabe, 2) ; ersten Trenner überspringen
MsgBox, %Ausgabe%[/code]
Es lässt sich auch (einfacher ?) mit [c]InStr() / SubStr()[/c] lösen.