ABAP讀取文字檔案分兩種情況：第一種是本地文字檔案，第二種是伺服器文字檔案。它讀取方式不一樣，本地檔案可以直接用 CALL FUNCTION 'WS_UPLOAD'來實現，

然再進行處理，伺服器讀取檔案需要用OPEN DATASET來讀取，然後再進行處理。以下是兩種讀取方式的程式碼：

一、呼叫的程式碼：

PARAMETERS:P_FLNAME  LIKE RLGRAP-FILENAME LOWER CASE .

本地文字檔案：    PERFORM FRM_GET_DATA TABLES IT_ITAB 

                                                                                      USING

  P_FLNAME 

                                                                                                    '0'.

伺服器文字檔案：PERFORM FRM_GET_FILE_FRM_SERVER TABLES IT_ITAB 

                                                                                                                  USING P_FLNAME

                                                                                                                                 '0'.

二、兩種讀取方式：

（1）讀取本地文字檔案，引數說明：P_ITAB--讀取檔案存放內表，P_FILENAME--檔案所在目錄，P_STARTLINE--讀取檔案的起始行。

FORM FRM_GET_DATA TABLES P_ITAB USING  P_FILENAME LIKE RLGRAP-FILENAME P_STARTLINE.

  DATA

:FRM_IT_DATA TYPE STRING OCCURS 0 WITH HEADER LINE,
       FRM_IT_FIELD TYPE STRING OCCURS 0 WITH HEADER LINE,
       FRM_TABCHAR TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
  FIELD-SYMBOLS <FRM_FIELD> TYPE ANY.

  IF P_FILENAME IS INITIAL.
    RETURN.
  ENDIF.

  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME                = P_FILENAME
      FILETYPE                = 'ASC'
    TABLES
      DATA_TAB                = FRM_IT_DATA
    EXCEPTIONS
      CONVERSION_ERROR        = 1
      FILE_OPEN_ERROR         = 2
      FILE_READ_ERROR         = 3
      INVALID_TYPE            = 4
      NO_BATCH                = 5
      UNKNOWN_ERROR           = 6
      INVALID_TABLE_WIDTH     = 7
      GUI_REFUSE_FILETRANSFER = 8
      CUSTOMER_ERROR          = 9
      NO_AUTHORITY            = 10
      OTHERS                  = 11.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    RETURN.
  ENDIF.

  LOOP AT FRM_IT_DATA.
    IF SY-TABIX < P_STARTLINE.
      CONTINUE.
    ENDIF.

    SPLIT FRM_IT_DATA AT FRM_TABCHAR INTO TABLE FRM_IT_FIELD.
    CLEAR P_ITAB.
    LOOP AT FRM_IT_FIELD.
      ASSIGN COMPONENT SY-TABIX OF STRUCTURE P_ITAB TO <FRM_FIELD>.
      <FRM_FIELD> = FRM_IT_FIELD.
    ENDLOOP.

    IF P_ITAB IS NOT INITIAL.
      APPEND P_ITAB.
    ENDIF.

  ENDLOOP.

ENDFORM.       

（2）讀取伺服器文字檔案，引數說明：P_ITAB--讀取檔案存放內表，P_FILENAME--檔案所在目錄，P_STARTLINE--讀取檔案的起始行。

FORM FRM_GET_FILE_FRM_SERVER TABLES P_IT_ITAB USING P_FILENAME P_DATALINE.
  DATA:FRM_L_REPCHAR     TYPE EDI_REPCHR,
       FRM_L_OS_MESSAGE(200),
       FRM_DATASET(100)..
  DATA: FRM_WA TYPE STRING.
  DATA: FRM_TAB VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,"獲得跳格符.
        FRM_ENT VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF."獲得跳格符.
  DATA: FRM_IT_DATA TYPE STRING OCCURS 0 WITH HEADER LINE.
  DATA: FRM_IT_TAB_ROWNUM TYPE I.
  FIELD-SYMBOLS <FRM_FILED>.

  FRM_DATASET = P_FILENAME.
  CONDENSE FRM_DATASET NO-GAPS.

  "開啟檔案
  OPEN DATASET FRM_DATASET FOR INPUT IN TEXT MODE ENCODING NON-UNICODE
        REPLACEMENT CHARACTER FRM_L_REPCHAR MESSAGE FRM_L_OS_MESSAGE.

  IF SY-SUBRC NE 0.
    RETURN.
  ENDIF.

  REFRESH P_IT_ITAB.

  "迴圈讀取檔案，處理轉換成格式
  DO.

    "讀取資料
    READ DATASET FRM_DATASET INTO FRM_WA.
    IF SY-SUBRC NE 0.
      EXIT.
    ENDIF.

    IF SY-INDEX < P_DATALINE.
      CONTINUE.
    ENDIF.

    "替換回車符為空格
    REPLACE FRM_ENT WITH '' INTO FRM_WA.
    CONDENSE FRM_WA.
    IF FRM_WA IS INITIAL OR FRM_WA = ''.
      CONTINUE.
    ENDIF.

    "拆分欄位
    SPLIT FRM_WA AT FRM_TAB INTO TABLE FRM_IT_DATA.

    FRM_IT_TAB_ROWNUM = LINES( FRM_IT_DATA ).

    LOOP AT FRM_IT_DATA.

      ASSIGN COMPONENT SY-TABIX OF STRUCTURE P_IT_ITAB TO <FRM_FILED>.
      <FRM_FILED> = FRM_IT_DATA.

    ENDLOOP.

    APPEND P_IT_ITAB.
  ENDDO.

ENDFORM.