Du mußt in den erweiterten Editor, nicht unten direkt antworten sondern erst auf erweitert klicken, dann ist dort eine Büroklammer.
FUNCTION FC_GetXmlValueMulti2 : ARRAY[1..10] OF STRING(20)
VAR_INPUT
pabRxBuffer : POINTER TO ARRAY[1..500] OF BYTE;
udiRxNByte : UDINT;
asAttributeName : ARRAY[1..10] OF STRING;
END_VAR
VAR
udiIdx : UDINT;
pbChar : POINTER TO BYTE;
psChar : POINTER TO STRING(1);
sChar : STRING(1);
sTmp : STRING;
xStart, xStartM, xEnd, xIgnor, xFound, xCopyValue : BOOL;
iFoundIdx : INT;
i : INT;
END_VARFOR i := 1 TO 10 DO
FC_GetXmlValueMulti2[ i ] := 'attribute not found';
END_FOR
pbChar := pabRxBuffer;
FOR udiIdx := 1 TO udiRxNByte +1 DO
xIgnor :=pbChar^ = 16#2F; (* '/' *)
xStartM := pbChar^ = 16#3C; (* '<' *)
xEnd := (pbChar^ = 16#3E) OR (xStartM AND xFound); (* '>' *)
IF (xStart OR xFound) AND NOT xEnd AND NOT xIgnor THEN
psChar := pbChar;
IF pbChar^ = 16#0 THEN EXIT; END_IF (* EOF string *)
sChar := psChar^;
sTmp := CONCAT(sTmp, sChar);
ELSIF xEnd THEN
IF xFound THEN
FC_GetXmlValueMulti2[ iFoundIdx ] := sTmp;
xFound := FALSE;
ELSE
FOR i := 1 TO 10 DO
IF (sTmp = asAttributeName[ i ]) AND (asAttributeName[ i ] <> '') THEN
xFound := TRUE;
iFoundIdx := i;
EXIT;
END_IF
END_FOR
END_IF
sTmp := '';
END_IF
xStart := (xStart OR xStartM) AND NOT xEnd AND NOT xIgnor;
pbChar := pbChar +1;
END_FOR <e2tunerinfo>
<e2nim>
<name>Tuner A</name>
<type>BCM7346 (internal) (DVB-S2)</type>
</e2nim>
<e2nim>
<name>Tuner B</name>
<type>BCM7346 (internal) (DVB-S2)</type>
</e2nim>
<e2nim>
<name>Tuner C</name>
<type>Si2168 (DVB-T2)</type>
</e2nim>
</e2tunerinfo>
