XML Downloaden wie bring ich das File aufs C: ?

Die Objektorientierung mit ABAP®: Vererbung, Dynamische Programmierung, GUI Controls (u.a. ALV im OO).
8 Beiträge • Seite 1 von 1
8 Beiträge Seite 1 von 1

XML Downloaden wie bring ich das File aufs C: ?

Beitrag von Alpha (ForumUser / 25 / 0 / 0 ) »
Hallo Leute

Ich bin ein wenig am Basteln um das XML besser zu verstehen :roll:

nun meine Frage ich habe folgendes Coding aber irgend wie bringt mir das kein schlaues Resultat ich bitte um Hilfe


Code: Alles auswählen.

 DATA: file TYPE string,
       result TYPE xstring.

 DATA itab TYPE vbak OCCURS 0 WITH HEADER LINE.
 DATA: i_file_content TYPE TABLE OF bapiconten.

 PARAMETERS : pa_file(128) DEFAULT 'C:\test.xml'.


 START-OF-SELECTION.

   SELECT * FROM vbak UP TO 10 ROWS
     INTO CORRESPONDING FIELDS OF TABLE itab.

   CALL TRANSFORMATION id
   SOURCE itab = itab
   RESULT XML result.

   CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
     EXPORTING
       buffer                = result
*     APPEND_TO_TABLE       = ' '
*   IMPORTING
*     OUTPUT_LENGTH         =
     TABLES
       binary_tab            = i_file_content.

   file = pa_file.

   CALL METHOD cl_gui_frontend_services=>gui_download
     EXPORTING
*     BIN_FILESIZE              =
        filename                  = file
        filetype                  = 'BIN'
*     APPEND                    = SPACE
*     WRITE_FIELD_SEPARATOR     = SPACE
*     HEADER                    = '00'
*     TRUNC_TRAILING_BLANKS     = SPACE
*     WRITE_LF                  = 'X'
*     COL_SELECT                = SPACE
*     COL_SELECT_MASK           = SPACE
*     DAT_MODE                  = SPACE
*     CONFIRM_OVERWRITE         = SPACE
*     NO_AUTH_CHECK             = SPACE
*     CODEPAGE                  = SPACE
*     IGNORE_CERR               = ABAP_TRUE
*     REPLACEMENT               = '#'
*     WRITE_BOM                 = SPACE
*     TRUNC_TRAILING_BLANKS_EOL = 'X'
*     WK1_N_FORMAT              = SPACE
*     WK1_N_SIZE                = SPACE
*     WK1_T_FORMAT              = SPACE
*     WK1_T_SIZE                = SPACE
*   IMPORTING
*     FILELENGTH                =
     CHANGING
       data_tab                  = i_file_content
     EXCEPTIONS
       file_write_error          = 1
       no_batch                  = 2
       gui_refuse_filetransfer   = 3
       invalid_type              = 4
       no_authority              = 5
       unknown_error             = 6
       header_not_allowed        = 7
       separator_not_allowed     = 8
       filesize_not_allowed      = 9
       header_too_long           = 10
       dp_error_create           = 11
       dp_error_send             = 12
       dp_error_write            = 13
       unknown_dp_error          = 14
       access_denied             = 15
       dp_out_of_memory          = 16
       disk_full                 = 17
       dp_timeout                = 18
       file_not_found            = 19
       dataprovider_exception    = 20
       control_flush_error       = 21
       not_supported_by_gui      = 22
       error_no_gui              = 23
       OTHERS                    = 24
           .
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.


   BREAK-POINT.
Danke im Voraus
Gruss

Alpha

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von Steff (Site Admin / 386 / 0 / 1 ) »
Hi,

welches Resultat bekommst Du denn? Laesst sich das File nicht oeffnen? Hat es keinen Inhalt? Inhalt ja, aber nicht leserlich?

Gruss,
Steff

Beitrag von Alpha (ForumUser / 25 / 0 / 0 ) »
Ich hätte gerne den XML Code habe aber den Hex oder so
Gruss

Alpha

Beitrag von Haubi (Expert / 625 / 20 / 30 ) »
Tach.

Typisier mal result auf string und lass die Konvertierung weg. In den Download schmeisst Du einfach eine TABLE OF string rein, dann sollte es funzen.

Gruß,
Haubi
Das ABAP Kochbuch ab sofort bei Amazon...

I'd rather write code that writes code than write code...

Beitrag von Steff (Site Admin / 386 / 0 / 1 ) »
Yep. filetype entweder 'ASC' (mit Konvertierung) oder 'DAT' (ohne Konvertierung).

Beitrag von Alpha (ForumUser / 25 / 0 / 0 ) »
würde es viel mühe machen wenn ihr mir schnell die Datendeklaration hin postet damit ich da sehe stehe Woll auf dem schlauch ....
Gruss

Alpha

Beitrag von Alpha (ForumUser / 25 / 0 / 0 ) »
So habe fertig :oops:

Code: Alles auswählen.

 TYPES: BEGIN OF ty_xml,
        string TYPE string,
   END OF ty_xml.

 DATA: it_xml TYPE TABLE OF ty_xml,
       wa_xml TYPE ty_xml.


 DATA: file TYPE string,
       result TYPE xstring.

 DATA itab TYPE vbak OCCURS 0.
 DATA: xml TYPE string.


 PARAMETERS : pa_file(128) DEFAULT 'C:\test.xml'.

 START-OF-SELECTION.

   SELECT * FROM vbak UP TO 1 ROWS
     INTO CORRESPONDING FIELDS OF TABLE itab.

   BREAK-POINT.

   CALL TRANSFORMATION id
   SOURCE itab = itab
   RESULT XML xml.

   MOVE xml TO wa_xml-string.
   APPEND wa_xml TO it_xml.

   file = pa_file.

   CALL METHOD cl_gui_frontend_services=>gui_download
     EXPORTING
        filename                  = file
        filetype                  = 'ASC'
     CHANGING
       data_tab                  = it_xml[]
     EXCEPTIONS
       file_write_error          = 1
       no_batch                  = 2
       gui_refuse_filetransfer   = 3
       invalid_type              = 4
       no_authority              = 5
       unknown_error             = 6
       header_not_allowed        = 7
       separator_not_allowed     = 8
       filesize_not_allowed      = 9
       header_too_long           = 10
       dp_error_create           = 11
       dp_error_send             = 12
       dp_error_write            = 13
       unknown_dp_error          = 14
       access_denied             = 15
       dp_out_of_memory          = 16
       disk_full                 = 17
       dp_timeout                = 18
       file_not_found            = 19
       dataprovider_exception    = 20
       control_flush_error       = 21
       not_supported_by_gui      = 22
       error_no_gui              = 23
       OTHERS                    = 24
           .
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
Besten Dank
Gruss

Alpha

Beitrag von Steff (Site Admin / 386 / 0 / 1 ) »
Hi Alpha,

sieht gut aus :-)
Sorry, hatte vor Coding zu posten, hab's aber leider zeitlich nicht geschafft. Aber Du hast es ja auch alleine hinbekommen. Gratulation :-)

Gruss,
Steff

Seite 1 von 1

Vergleichbare Themen

3
Antw.
18947
Views
URL File-Server Internet File Download /Delet cl_http_client
von Luigi91 » 04.10.2016 08:28 • Verfasst in ABAP Objects®
2
Antw.
1724
Views
Transportfiles Up- und Downloaden
von Hunter » 08.03.2006 10:53 • Verfasst in Basis
2
Antw.
1533
Views
Tabelleninhalt downloaden
von Matthias_L. » 25.09.2006 12:03 • Verfasst in ABAP® für Anfänger
0
Antw.
1318
Views
ALV-Listen im Hintergrund downloaden
von schuessler » 11.09.2007 15:05 • Verfasst in ABAP® Core
1
Antw.
1634
Views
ABAP Sourcen downloaden
von Blueshape » 26.01.2008 20:44 • Verfasst in ABAP® Core

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Daten von API nicht vollständig
vor 10 Stunden von ewx 2 / 35
Post-Methode für API´s
vor 12 Stunden von Bright4.5 4 / 595
Formatierung CSV-Datei durch SAP
vor 3 Tagen von Radinator gelöst 4 / 322

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Daten von API nicht vollständig
vor 10 Stunden von ewx 2 / 35
Post-Methode für API´s
vor 12 Stunden von Bright4.5 4 / 595
Formatierung CSV-Datei durch SAP
vor 3 Tagen von Radinator gelöst 4 / 322