Comments

Updating single and multiple HTML/text files using an SAP program




This application allows you to update the same content to hundreds of files at the same time. So instead of going into each an every data file and adding a new peice of text or HTML code you can simply point the ABAP program to the new data to add, where it should go, when it shouldn't update etc and then press the execute button. All the .htm files within the selected directory and any sub directories will be updated accordingly!

See below for screen shot of report selection screen, and Click here for detailed description of what each parameter does. If you want to install this program simply copy and paste the below code into a new SAP ABAP report program.



*&-------------------------------------------------------------*
*& Report  ZHTMUPDATE
*&
*&-------------------------------------------------------------*
*&
*&
*&-------------------------------------------------------------*
REPORT  Zhtmupdate.


*   Retrieve data file from presentation server(Upload from PC)
types: begin of t_datatab,
*  row(500) type c,
  row type string,
 end of t_datatab.
data:  it_datatab type STANDARD TABLE OF t_datatab,
       wa_datatab like line of it_datatab,
       it_datafind type STANDARD TABLE OF t_datatab,
       wa_datafind like line of it_datatab,
       it_datanew type STANDARD TABLE OF t_datatab,
       wa_datanew like line of it_datatab,
       it_datanewstor type STANDARD TABLE OF t_datatab.

* DATA: WA_FILE_TABLE TYPE FILE_INFO,
*        TAB TYPE STANDARD TABLE OF FILE_INFO.
*  data: len type i.
data:  it_files type STANDARD TABLE OF FILE_INFO,
       it_dirs type STANDARD TABLE OF FILE_INFO,
       wa_files like line of it_files,
       wa_dirs like line of it_dirs,

       gd_insert type string.

DATA: i_input type string,
      i_find  type string,
      i_new type string,
      gd_dir    type string,
      gd_count type i,
      gd_multi type i,
      gd_newtxt type  string,
      gd_head   type i.


*Selecting a File, plus inserting default file extension
selection-screen begin of block group with frame title text-s01.
parameters: p_selfil type c radiobutton group difi.
parameters: p_file like rlgrap-filename LOWER CASE.
parameters: p_seldir type c radiobutton group difi.
parameters: p_dir like rlgrap-filename.

selection-screen end of block group.

selection-screen begin of block find with frame title text-s02.
parameters: p_find like rlgrap-filename LOWER CASE.
parameters: p_new like rlgrap-filename LOWER CASE.
parameters: p_not type string.
parameters: p_check type string.

parameters: p_start type string.
parameters: p_end type string.

selection-screen begin of line.
selection-screen comment 1(79) text-S03.
selection-screen end of line.

selection-screen begin of line.
selection-screen comment 1(39) text-S04.
parameters: p_repfn type string.
selection-screen end of line.

*parameters: p_multi type c.
*parameters: p_repfn type string.
selection-screen end of block find.

selection-screen begin of block insert with frame title text-s01.
parameters: p_above  type c radiobutton group new.
parameters: p_below  type c radiobutton group new.
parameters: p_repl   type c radiobutton group new.
parameters: p_before  type c radiobutton group new.
parameters: p_after  type c radiobutton group new.
selection-screen end of block insert.


at selection-screen OUTPUT.
  gd_dir = p_dir.

at selection-screen on value-request for p_dir.

  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title    = 'File Directory'
      initial_folder  = gd_dir     "'M:\sap\sapdev2005\'
    CHANGING
      selected_folder = gd_dir.

  CALL METHOD cl_gui_cfw=>flush.

  concatenate gd_dir '' into p_dir.

************************************************************************
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR I_FILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = p_file
      mask             = ',*.xls.'
      mode             = 'O'
      title            = 'Upload File'(078)
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

************************************************************************
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR I_FILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_find.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = p_file
      mask             = ',*.xls.'
      mode             = 'O'
      title            = 'Upload File'(078)
    IMPORTING
      filename         = p_find
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

************************************************************************
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR I_FILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_new.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = p_file
      mask             = ',*.xls.'
      mode             = 'O'
      title            = 'Upload File'(078)
    IMPORTING
      filename         = p_new
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

**************************************************************************
*start-of-selection.
start-of-selection.


*UPLOAD FILES*******
  case 'X'.
    when p_seldir.
      perform get_directorys_in_directory using p_dir.
      loop at it_dirs into wa_dirs.
        perform get_files_in_directory using wa_dirs-filename.
      endloop.
    when p_selfil.
      wa_files-filename =  p_file.
      append wa_files to it_files.
  endcase.

  PERFORM get_input_files.

  loop at it_files into wa_files.
    it_datanew[] = it_datanewstor[].
    i_input = wa_files-filename.

    if not p_repfn is initial.
      gd_insert = i_input.
      translate gd_insert to upper case.
      replace ALL OCCURRENCES OF p_repfn in gd_insert with ' '.
      shift gd_insert LEFT DELETING LEADING space.
      loop at it_datanew into wa_datanew.
        translate gd_insert to LOWER CASE.
        replace ALL OCCURRENCES OF '' in wa_datanew-row with gd_insert.
        if sy-subrc eq 0.
          replace ALL OCCURRENCES OF '\' in wa_datanew-row with '/'.
          modify it_datanew from wa_datanew index sy-tabix.
        endif.
      endloop.
    endif.

    perform get_date_file.
    PERFORM process_files.
*DOWNLOAD FILE*******
    PERFORM download_result_file.
  endloop.


*&---------------------------------------------------------------------*
*&      Form  get_input_files
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_input_files .


  i_find = p_find.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename        = i_find
      filetype        = 'ASC'
    TABLES
      data_tab        = it_datafind  "ITBL_IN_RECORD[]
    EXCEPTIONS
      file_open_error = 1
      OTHERS          = 2.

  i_new = p_new.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename        = i_new
      filetype        = 'ASC'
    TABLES
      data_tab        = it_datanewstor  "ITBL_IN_RECORD[]
    EXCEPTIONS
      file_open_error = 1
      OTHERS          = 2.


ENDFORM.                    " get_input_files


*&---------------------------------------------------------------------*
*&      Form  download_result_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM download_result_file .

  CALL METHOD cl_gui_frontend_services=>GUI_DOWNLOAD
    EXPORTING
      filename                = i_input
    CHANGING
      data_tab                = it_datatab[]  "ITBL_IN_RECORD[]
    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.
  if sy-subrc ne 0.

    write:/  'download failure for file-', i_input.
  endif.
*      CALL
*      FUNCTION
*      'GUI_DOWNLOAD'
*      file_open_error         = 1
*      OTHERS                  = 2.
ENDFORM.                    " download_result_file


*&---------------------------------------------------------------------*
*&      Form  process_files
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM process_files .
  data: ld_tabix like sy-tabix,
        ld_found type i,
        ld_end   type i.

  READ TABLE it_datafind into wa_datafind index 1.

  if not p_check is initial.
    loop at it_datatab into wa_datatab where row cs p_check.
    endloop.
    if sy-subrc eq 0.
      write:/ i_input COLOR COL_NEGATIVE, '-file contains restricted value'.
      exit.
    endif.
  endif.

  clear: gd_multi, gd_head, ld_found, ld_end.
  loop at it_datatab into wa_datatab.
    if wa_datatab-row cs p_start or
       ld_found ge 1 or
       p_start is initial.
      ld_found = 1.

      if wa_datatab-row cs p_end and
        not p_start is initial.
        ld_end = 1.
       exit.
      endif.

      if wa_datatab-row cs wa_datafind-row.
        if not wa_datatab-row cs p_not or
           p_not is INITIAL.
          case 'X'.
            when p_above.
              ld_tabix = sy-tabix.
              perform insert_new_lines using ld_tabix.
            when p_below.
              ld_tabix = sy-tabix + 1.
              perform insert_new_lines using ld_tabix.
            when p_repl.
              ld_tabix = sy-tabix.
              delete it_datatab index ld_tabix.
              perform insert_new_lines using ld_tabix.
            when p_after.

              ld_tabix = sy-tabix.
              read table it_datanew into wa_datanew index 1.
              CONCATENATE wa_datafind-row wa_datanew-row into gd_newtxt.

              perform modify_lines using ld_tabix.
            when p_before.

              ld_tabix = sy-tabix.
              read table it_datanew into wa_datanew index 1.
              CONCATENATE  wa_datanew-row wa_datafind-row into gd_newtxt.
              perform modify_lines using ld_tabix.
*          replace ALL OCCURRENCES OF wa_datafind-row in wa_datatab-row with gd_new.
*          modify it_datatab from wa_datatab index ld_tabix.
          endcase.
        else.
          if gd_head lt 1.
            write:/ i_input COLOR COL_POSITIVE.
            gd_head = 1.
          endif.
          write:/ wa_datatab-row COLOR COL_HEADING, '-line contains excluded value'.
        endif.
      endif.
    endif.
  endloop.
  if gd_multi le 0.
    write:/ i_input color COL_TOTAL, '-file not updated'.
    if ld_end ge 1.
      write: space, ' -end value found'.
    endif.
  endif.

ENDFORM.                    " process_files

*&---------------------------------------------------------------------*
*&      Form  get_files_in_directory
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_files_in_directory using lp_dir.
  data: ld_dir type string,
        it_storefiles type STANDARD TABLE OF FILE_INFO,
        wa_storefiles like line of it_storefiles.
  ld_dir = lp_dir.
  CALL METHOD cl_gui_frontend_services=>DIRECTORY_LIST_FILES
    EXPORTING
      DIRECTORY  = ld_dir
      files_only = 'X'
    CHANGING
      file_table = it_storefiles
      count      = gd_count
    EXCEPTIONS
      OTHERS     = 1.

  loop at it_storefiles into wa_storefiles.
    shift ld_dir right deleting TRAILING '/'.
    shift ld_dir right deleting TRAILING '\'.
    shift ld_dir left deleting leading space.
    concatenate ld_dir '\' wa_storefiles-FILENAME into wa_storefiles-FILENAME.

    if wa_storefiles-FILENAME cs '.htm' and
       wa_storefiles-filename cs '.HTM'.
      append wa_storefiles to it_files.
    endif.
  endloop.

ENDFORM.                    " get_files_in_directory


*&---------------------------------------------------------------------*
*&      Form  get_date_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_date_file .

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename        = i_input
      filetype        = 'ASC'
    TABLES
      data_tab        = it_datatab  "ITBL_IN_RECORD[]
    EXCEPTIONS
      file_open_error = 1
      OTHERS          = 2.
ENDFORM.                    " get_date_file


*&---------------------------------------------------------------------*
*&      Form  insert_new_lines
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM insert_new_lines USING ld_tabix.
  insert LINES OF it_datanew into it_datatab index ld_tabix.
  gd_multi = gd_multi + 1.
  if gd_multi = 1.
    write:/ i_input COLOR COL_POSITIVE, '-File Updated OK'.
*    if p_multi is initial.
*      exit.
*    endif.
  else.
    write:/ i_input COLOR COL_NEGATIVE, '-duplicate updated'.
  endif.
ENDFORM.                    " insert_new_lines


*&---------------------------------------------------------------------*
*&      Form  modify_lines
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LD_TABIX  text
*----------------------------------------------------------------------*
FORM modify_lines  USING    p_TABIX.

  gd_multi = gd_multi + 1.
  if gd_head lt 1.
    write:/ i_input COLOR COL_POSITIVE.
    gd_head = 1.
  endif.


  replace ALL OCCURRENCES OF wa_datafind-row in wa_datatab-row with gd_newtxt.
  if sy-subrc ne 0.
    translate  wa_datafind-row to UPPER CASE.
    replace ALL OCCURRENCES OF wa_datafind-row in wa_datatab-row with gd_newtxt.
    if sy-subrc ne 0.
      write:/ wa_datatab-row COLOR COL_NEGATIVE, '-String found but no changes made'.
    endif.
  endif.

  modify it_datatab from wa_datatab index p_tabix.

  write:/ wa_datatab-row.

ENDFORM.                    " modify_lines


*&---------------------------------------------------------------------*
*&      Form  get_directorys_in_directory
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_directorys_in_directory using lp_dir.
  data: ld_dir type string,
        it_storedirs type STANDARD TABLE OF FILE_INFO,
        wa_storedirs like line of it_storedirs.
  ld_dir = lp_dir.

  wa_storedirs-FILENAME = ld_dir.
  append wa_storedirs to it_dirs.

  CALL METHOD cl_gui_frontend_services=>DIRECTORY_LIST_FILES
    EXPORTING
      DIRECTORY  = ld_dir
      files_only = ' '
    CHANGING
      file_table = it_storedirs
      count      = gd_count
    EXCEPTIONS
      OTHERS     = 1.

  loop at it_storedirs into wa_storedirs where isdir = '1'.
    shift ld_dir right deleting TRAILING '/'.
    shift ld_dir right deleting TRAILING '\'.
    shift ld_dir left deleting leading space.
    concatenate ld_dir '\' wa_storedirs-FILENAME into wa_storedirs-FILENAME.
*    append wa_storedirs to it_dirs.
    perform get_directorys_in_directory using wa_storedirs-FILENAME.

*    modify it_storedirs from wa_storedirs index sy-tabix.
*    if not wa_files-FILENAME cs '.htm' and
*       not wa_files-filename cs '.HTM'.
*      DELETE it_storedirs index sy-tabix.
*    endif.
  endloop.

ENDFORM.                    " get_directorys_in_directory




sapdev logo background
sapdev logo sapdev logo


Can't find something on ERPWorkbench? A quick search should fix that: