ITPub博客

首页 > 数字化转型 > ERP > CL_ABAP_CHAR_UTILITIES类

CL_ABAP_CHAR_UTILITIES类

原创 ERP 作者:sapkitty 时间:2007-07-06 15:17:04 0 删除 编辑

本程序演示了如何利用类CL_ABAP_CHAR_UTILITIES在字符串中加入tab字符,回车换行符,换页符。

[@more@]

*&---------------------------------------------------------------------*

*& Report ZCHAR_UTILITIES

*&---------------------------------------------------------------------*

*& 文字列処理用のユーティリティクラスCL_ABAP_CHAR_UTILITIESの使用

*&---------------------------------------------------------------------*

REPORT ZCHAR_UTILITIES.

* 出力テーブル

DATA: BEGIN OF GH_FILE,

LINE(4096) TYPE C,

END OF GH_FILE.

DATA: GT_FILE LIKE TABLE OF GH_FILE.

* "キャリッジリターン(CR)と改行(LF)"文字

DATA: GW_CRLF(2) TYPE C.

* "改ページ"文字

DATA: GW_NEWPAGE TYPE C.

* "水平タブストップ" 文字

DATA: GW_HTAB TYPE C.

*----------------------------------------------------------------------*

* START-OF-SELECTION

*----------------------------------------------------------------------*

START-OF-SELECTION.

*

GW_CRLF = CL_ABAP_CHAR_UTILITIES=>CR_LF.

GW_NEWPAGE = CL_ABAP_CHAR_UTILITIES=>FORM_FEED.

GW_HTAB = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.

* 出力テーブルの作成

GH_FILE-LINE = 'NAME:'.

CONCATENATE GH_FILE-LINE GW_HTAB 'ZHOUGH' INTO GH_FILE-LINE.

APPEND GH_FILE TO GT_FILE.

CONCATENATE GW_CRLF 'Detailed info:' INTO GH_FILE-LINE.

APPEND GH_FILE TO GT_FILE.

CONCATENATE GW_NEWPAGE 'New page' INTO GH_FILE-LINE.

APPEND GH_fILE TO GT_FILE.

* 出力テーブルのダウンロード

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = 'C:TEST.DOC'

TABLES

DATA_TAB = GT_FILE

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

WRITE SY-SUBRC.

ENDIF.

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/8214011/viewspace-924533/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: 创建动态内表
请登录后发表评论 登录
全部评论

注册时间:2008-08-04

  • 博文量
    62
  • 访问量
    213953