String tipi veriden gerekli olan verileri maskeleyerek alma?

IF M1 THEN
    M1 := FALSE;
    str_1 := 'DimX:303.0; DimY:1233.0; DimZ:4.0; Serial:S1234561;';
    adim := 1;
END_IF;

CASE adim OF
    1:
        _index := 0;
        adim := 5;
        
    5:
        _index := _index + 1;
        IF _index > 4 THEN
            adim := 6;
        ELSE
            adim := 10;
        END_IF;
        
    10:
        konum := FIND_E(TRUE, eno_1, str_1, ':');    //find :

        IF eno_1 THEN
            adim := 20;
        END_IF;
        
    20:
        str_2 := RIGHT_E(TRUE, eno_2, str_1, LEN(str_1) - konum);

        IF eno_2 THEN
            adim := 30;
        END_IF;
        
    30:
        konum := FIND_E(TRUE, eno_1, str_2, ';');    //find ;

        IF eno_1 THEN
            adim := 40;
        END_IF;
        
    40:
        sayi[_index] := LEFT_E(TRUE, eno_2, str_2, konum - 1);

        IF eno_2 THEN
            adim := 5;
            
            str_1 := str_2;
        END_IF;
        
END_CASE;

str_1    String(128)   
str_2    String(128)   
konum    Word [Signed]   
eno_1    Bit   
eno_2    Bit   
sayi    String(128)(1..4)   
adim    Word [Signed]   
_index    Word [Signed]