Welcome to our new forum
All users of the legacy CODESYS Forums, please create a new account at account.codesys.com. But make sure to use the same E-Mail address as in the old Forum. Then your posts will be matched. Close

Daten ausmaskieren

Tiak
2006-11-06
2006-11-13
  • Tiak - 2006-11-06

    Kann mir jemand sagen wie ich Daten ausmaskieren kann.

    Also.

    Data:ARRAY[1..20] OF STRING[15]; Mit die Daten bevor die ausmaskieren.

    ‚MCX2200’ und soll so sein ‚2200’

    ‚2200.732’ und soll so sein ‚2200732’

    ‚10’ und ‚11’ und ‚12’ soll und soll so sein ‚101112’

    Gruß aus Dänemark

     
  • Anonymous - 2006-11-06

    Originally created by: Fx64

    Hallo Tiak,

    denke hier hilft nur die Strings mit Stringfunktionen ein bisschen aufzuarbeiten.

    Viele Grüsse

     
  • Tiak - 2006-11-06

    Hallo FX64

    Danke für deiner schneller antwort, kannst du mir ein par code hints geben?. De Daten kann auch später in INT oder so was gespeichert werden.

    Gruße

     
  • Anonymous - 2006-11-06

    Originally created by: Fx64

    Hallo Tiak,

    kommt drauf an wie unterschiedlich Deine Items sind. Die Funktionen findest Du schnell im Standard z.B. FIND ('2200.732','.'); und dann per DELETE löschen. Beim 'MCX2200' könntest Du ebenfalls mit DELETE arbeiten.

    Viele Grüsse

     
  • Tiak - 2006-11-13

    Super danke Jetzt funktioniert es

    VAR_INPUT

    DataRecieved:BOOL;

    Serie:STRING[20]; ( Data input '2200"')

    Model:STRING[20]; ( Data input '2210"')

    Firmware:STRING[20]; ( Data input '3.22"')

    SerieNummer:STRING[20]; ( Data input '"229H01487"')

    VTNummer1:STRING[20]; ( Data input '"VT')

    VTNummer2:STRING[20]; ( Data input '189960')

    VTNummer3:STRING[20]; ( Data input '023')

    END_VAR

    VAR_OUTPUT

    SerieString:STRING[20]; ( Data input '2200')

    ModelString:STRING[20]; ( Data input '2210')

    FirmwareString:STRING[20]; ( Data input '3.22')

    SerieNummerString:STRING[20]; ( Data input '229H01487')

    VTNummerString:STRING[20]; ( Data input 'VT189960023')

    END_VAR

    IF DataRecieved THEN

    SerieString := MID (Serie,4,1);

    ModelString := MID (Model,4,1);

    FirmwareString := MID (Firmware,4,1);

    SerieNummerString := MID (SerieNummer,9,2);

    VTNummer11 := MID (VTNummer1,2,2);

    VTNummer12 := CONCAT (VTNummer2,VTNummer3);

    VTNummerString := CONCAT (VTNummer11,VTNummer12);

    END_IF

     

Log in to post a comment.