Schreiben in eine Datei
10 Beiträge
•
Seite 1 von 1
10 Beiträge
Seite 1 von 1
Hallo,
ich habe folgendes Problem. Ich habe eine *.csv Datei auf dem Applikationsserver. Ich will eine neue Zeile in diese Datei anfügen. Allerdings soll diese Zeile am Anfang der Datei positioniert werden. Die Anweisung OPEN DATASET file APPENDING positioniert Cursor am Ende der Datei.
Hat jemand Ideen, wie man das Problem lösen könnte?
Danke!!!
ich habe folgendes Problem. Ich habe eine *.csv Datei auf dem Applikationsserver. Ich will eine neue Zeile in diese Datei anfügen. Allerdings soll diese Zeile am Anfang der Datei positioniert werden. Die Anweisung OPEN DATASET file APPENDING positioniert Cursor am Ende der Datei.
Hat jemand Ideen, wie man das Problem lösen könnte?
Danke!!!
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
einlesen, Zeile einfügen, neu schreiben.
...Enno...
...Enno...
in eine interne Tabelle.BW hat geschrieben:@Enno: Wohin soll ich die Datei einlesen?
z.B. so.
Code: Alles auswählen.
DATA: it_file TYPE STANDARD TABLE OF string,
wa_file TYPE string,
gl_new TYPE string,
file TYPE string.
file = ' <dein Dateiname> '.
gl_new = 'Dies ist der neue erste Satz der Datei'.
* 1. Schritt: Datei komplett einlesen
OPEN DATASET file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
* 2. Schritt: den neuen Text am Textanfang plazieren
APPEND gl_new TO it_file.
DO.
READ DATASET file INTO wa_file.
IF sy-subrc = 0.
APPEND wa_file TO it_file.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET file.
ENDIF.
* 3. Schritt: Die Datei wieder speichern
OPEN DATASET file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
LOOP AT it_file INTO wa_file.
TRANSFER wa_file TO file.
ENDLOOP.
CLOSE DATASET file.
ENDIF.
Vielen Dank!!! Hat super gut funktioniert!!! 
zzcpak hat geschrieben:z.B. so.
Code: Alles auswählen.
DATA: it_file TYPE STANDARD TABLE OF string, wa_file TYPE string, gl_new TYPE string, file TYPE string. file = ' <dein Dateiname> '. gl_new = 'Dies ist der neue erste Satz der Datei'. * 1. Schritt: Datei komplett einlesen OPEN DATASET file FOR INPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc = 0. * 2. Schritt: den neuen Text am Textanfang plazieren APPEND gl_new TO it_file. DO. READ DATASET file INTO wa_file. IF sy-subrc = 0. APPEND wa_file TO it_file. ELSE. EXIT. ENDIF. ENDDO. CLOSE DATASET file. ENDIF. * 3. Schritt: Die Datei wieder speichern OPEN DATASET file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc = 0. LOOP AT it_file INTO wa_file. TRANSFER wa_file TO file. ENDLOOP. CLOSE DATASET file. ENDIF.
Seite 1 von 1
Vergleichbare Themen
10
Antw.
Antw.
12508
Views
Views
11
Antw.
Antw.
6409
Views
Views
6
Antw.
Antw.
5312
Views
Views
1
Antw.
Antw.
1558
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.