Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: neue Reihe in CSV Datei mit SysLibFile und Codesys ?

  1. #1
    Registriert seit
    07.09.2015
    Beiträge
    8
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Bitte Ich möchte nach einer neuer Reihe gehen wann myCount modulo ist 0.

    Beispiel:

    1 2 3 4 5 6 ... 10
    11 .. 20
    21 ... 30
    ..
    41 50

    Wie kann ich mein Program ändern ?

    Code:
    VAR
        myTON            :TON;
        SysFileOpenNum    :DWORD;
        FileName        :STRING := 'demo.csv';
        FileMode        :STRING := 'w';
        WriteBuffer     : STRING;
        DwWritten         : DWORD;
        myCount            :INT;
        myValue            :INT;
    END_VAR
    
    myTON(IN:=NOT myTON.Q, PT:=t#1s); (* second *)
    IF myTON.Q THEN
       myValue := myCount;
       CASE myCount OF
        0:        SysFileOpenNum := SysFileOpen(FileName,FileMode);
        1..50:
                IF ((myCount MOD 10)=0) THEN
                    WriteBuffer := CONCAT(WriteBuffer, '\n');
                ELSE
                 WriteBuffer := '';
                 WriteBuffer := INT_TO_STRING(myValue);
                 WriteBuffer := CONCAT(WriteBuffer, ';');
                DwWritten := SysFileWrite(SysFileOpenNum, ADR(WriteBuffer), LEN(WriteBuffer));
                END_IF
        51:    SysFileClose(SysFileOpenNum);
        END_CASE
        IF myCount < 52 THEN
            myCount := myCount + 1;
        END_IF;
    END_IF
    Geändert von moumie (09.09.2015 um 10:01 Uhr)
    Zitieren Zitieren neue Reihe in CSV Datei mit SysLibFile und Codesys ?  

  2. #2
    moumie ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    07.09.2015
    Beiträge
    8
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Zitat Zitat von moumie Beitrag anzeigen
    Bitte Ich möchte nach einer neuer Reihe gehen wann myCount modulo ist 0.

    Beispiel:

    1 2 3 4 5 6 ... 10
    11 .. 20
    21 ... 30
    ..
    41 50

    Wie kann ich mein Program ändern ?

    Code:
    VAR
        myTON            :TON;
        SysFileOpenNum    :DWORD;
        FileName        :STRING := 'demo.csv';
        FileMode        :STRING := 'w';
        WriteBuffer     : STRING;
        DwWritten         : DWORD;
        myCount            :INT;
        myValue            :INT;
    END_VAR
    
    myTON(IN:=NOT myTON.Q, PT:=t#1s); (* second *)
    IF myTON.Q THEN
       myValue := myCount;
       CASE myCount OF
        0:        SysFileOpenNum := SysFileOpen(FileName,FileMode);
        1..50:
                IF ((myCount MOD 10)=0) THEN
                    WriteBuffer := CONCAT(WriteBuffer, '\n');
                ELSE
                 WriteBuffer := '';
                 WriteBuffer := INT_TO_STRING(myValue);
                 WriteBuffer := CONCAT(WriteBuffer, ';');
                DwWritten := SysFileWrite(SysFileOpenNum, ADR(WriteBuffer), LEN(WriteBuffer));
                END_IF
        51:    SysFileClose(SysFileOpenNum);
        END_CASE
        IF myCount < 52 THEN
            myCount := myCount + 1;
        END_IF;
    END_IF
    Ich habe schön das gemacht mit :

    [CODE][
    IF ((myCount MOD 10)=0) THEN
    WriteBuffer := INT_TO_STRING(myValue);
    WriteBuffer := CONCAT(WriteBuffer, ';');
    WriteBuffer := CONCAT(WriteBuffer, '$R$N');
    DwWritten := SysFileWrite(SysFileOpenNum, ADR(WriteBuffer), LEN(WriteBuffer));
    ELSE
    WriteBuffer := '';
    WriteBuffer := INT_TO_STRING(myValue);
    WriteBuffer := CONCAT(WriteBuffer, ';');
    DwWritten := SysFileWrite(SysFileOpenNum, ADR(WriteBuffer), LEN(WriteBuffer));
    END_IF
    /CODE]

Ähnliche Themen

  1. Antworten: 7
    Letzter Beitrag: 27.02.2015, 17:04
  2. Antworten: 7
    Letzter Beitrag: 28.07.2013, 10:43
  3. .csv Datei aus CoDeSys Variable
    Von Terence_Hill im Forum Sonstige Steuerungen
    Antworten: 14
    Letzter Beitrag: 14.03.2013, 23:00
  4. Antworten: 4
    Letzter Beitrag: 16.11.2012, 18:08
  5. CodeSys V3 Werte in CSV Datei Schreiben,Hilfe!
    Von Nitro-Haiza im Forum CODESYS und IEC61131
    Antworten: 0
    Letzter Beitrag: 19.09.2012, 11:17

Stichworte

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •