将长文本分割成行宽一致的行（长文本在ScriptForm显示美观整齐）
DATA: l_tline TYPE TABLE OF tline WITH HEADER LINE. DATA: rf_tlinetab TYPE REF TO data. FIELD-SYMBOLS:<l_tab> TYPE STANDARD TABLE,<fs_wa>,<l_dec>. DATA: l_rows TYPE i .
CLEAR: l_tline[]. l_tline-tdline = con_tab-ojtxp.将某个字符串按照每行指定英文字符数分隔成多行，如果是读取的长文本，则直接将长文本内表传递给split_ltx即可 APPEND l_tline.
PERFORM split_ltx TABLES l_tline USING rf_tlinetab 37.ASSIGN rf_tlinetab->* TO <l_tab>.DESCRIBE TABLE <l_tab> LINES l_rows.IF l_rows > 1. LOOP AT <l_tab> ASSIGNING <fs_wa>. ASSIGN COMPONENT 'TDLINE' OF STRUCTURE <fs_wa> TO <l_dec>. ... ENDLOOP.ELSE.
*&---------------------------------------------------------------------**& Form split_ltxt_to_print*&---------------------------------------------------------------------** 将 READ_TEXT 函数读取的长文本按指定的行字符宽度截取成多行，* 以便长文本在ScriptForm显示整齐美观（注：每个中文本将按二个英文进行计算）*----------------------------------------------------------------------** -->P_TLINE READ_TEXT函数返回的 tline 类型内表* -->P_RC_TAB 返回分割好的长文本内表引用
* -->p_linewidth 每行最多可显示的英文字符个数，一个中文会兑换成两个英文*----------------------------------------------------------------------*FORM split_ltxt_for_scrptfrm_outprt TABLES p_tline STRUCTURE tline USING p_rc_tab TYPE REF TO data value(p_linewidth) TYPE i. DATA: rf_strc TYPE REF TO data, rf_tab TYPE REF TO data, rf_elem_typ TYPE REF TO cl_abap_elemdescr, rf_strc_typ TYPE REF TO cl_abap_structdescr, rf_tab_typ TYPE REF TO cl_abap_tabledescr, t_component TYPE cl_abap_structdescr=>component_table WITH HEADER LINE. FIELD-SYMBOLS: <fs_wa> , <fs_tab> TYPE STANDARD TABLE. rf_elem_typ ?= cl_abap_elemdescr=>get_c( p_linewidth ). t_component-name = 'TDLINE'. t_component-type = rf_elem_typ. APPEND t_component. rf_strc_typ = cl_abap_structdescr=>create( t_component[] ). rf_tab_typ = cl_abap_tabledescr=>create( p_line_type = rf_strc_typ p_table_kind = cl_abap_tabledescr=>tablekind_std ). CREATE DATA rf_strc TYPE HANDLE rf_strc_typ. ASSIGN rf_strc->* TO <fs_wa>. CREATE DATA rf_tab TYPE HANDLE rf_tab_typ. ASSIGN rf_tab->* TO <fs_tab>. FIELD-SYMBOLS:<fs_field>. ASSIGN COMPONENT 'TDLINE' OF STRUCTURE <fs_wa> TO <fs_field> . DATA: l_len TYPE i,i_counter TYPE i,l_c,l_cc(4) ,i_start TYPE i, at_fist VALUE 'X',last_blankline,i_off_set TYPE i . FIELD-SYMBOLS: <fs_c> TYPE x. ASSIGN l_c TO <fs_c> CASTING. LOOP AT p_tline . IF ( p_tline-tdformat = '*' AND at_fist <> 'X' ) OR i_counter >= p_linewidth . INSERT <fs_wa> INTO TABLE <fs_tab>. CLEAR:i_off_set ,i_counter, <fs_wa>. ENDIF. l_len = STRLEN( p_tline-tdline ). DO l_len TIMES. IF i_counter >= p_linewidth. INSERT <fs_wa> INTO TABLE <fs_tab>. CLEAR:i_off_set,i_counter, <fs_wa>. ENDIF. i_start = sy-index - 1. l_c = p_tline-tdline+i_start(1). <fs_field>+i_off_set(1) = l_c. i_off_set = i_off_set + 1.*如果我们将0x1234abcd写入到以0x0000开始的内存中，则结果为*big-endian： 0x0000 0x0001 0x0002 0x0003* 0x12 0x34 0xab 0xcd*little-endian： 0x0000 0x0001 0x0002 0x0003* 0xcd 0xab 0x34 0x12*little-endian与人的阅读习惯是反的（阅读习惯：高位放在前，低*位放在后，而little-endian则是将高位放在后，低们放在前，但内*地址是越往后越大，即后面是高字符，靠前的是低字节），但我们在*程序中给一个变量赋值是按照人的阅读习惯来书写的——即认为是高字节序的方式赋值，而在低字节序的系统中，*以little-endian低字节序的字节内容读取出来给l_c变量后，l_c变量内容也是低字节序方式显示存储的，此时将l_c赋值给X类型字段符号<fs_field>时，需要将l_c转换为赋值方式所采用的高字节序方式 IF cl_abap_char_utilities=>endian = 'L'. l_cc = <fs_c>."将十六进制（字符的Unicode码）转换为字面意义上的字符串 SHIFT l_cc BY 2 PLACES CIRCULAR. <fs_c> = l_cc."再将字符转换为十六进制数（字符的Unicode码） ENDIF. IF <fs_c> > 255. i_counter = i_counter + 2. ELSE. i_counter = i_counter + 1. ENDIF. ENDDO. AT LAST. IF l_len = 0 . last_blankline = 'X'. ENDIF. ENDAT. CLEAR at_fist . ENDLOOP. IF i_counter <> 0 OR last_blankline = 'X' . INSERT <fs_wa> INTO TABLE <fs_tab>. CLEAR:i_off_set ,i_counter, <fs_wa>. ENDIF. p_rc_tab = rf_tab.ENDFORM. "split_ltxt_to_print
结构拷贝（拷贝的列名可以不同）
*&---------------------------------------------------------------------**& Form strc_copy*&---------------------------------------------------------------------** 结构拷贝，如果要拷贝的两个字段名不同时使用 SRC_FILEDNAME-DEST_fILEDNAME* 将两个不同的名映射起来，并通过field_maping内表参数进行转递，如果相同，则* 不需要*----------------------------------------------------------------------** -->FIELD_MAPING 不同名称字段映射* -->SRC 源结构* -->DEST 目标结构*----------------------------------------------------------------------*FORM strc_copy TABLES field_maping USING src dest . FIELD-SYMBOLS : <fs_field_src> TYPE x, <fs_field_dest> TYPE x. DATA: field_name_src TYPE string, field_name_dest TYPE string. LOOP AT field_maping. SPLIT field_maping AT '-' INTO field_name_src field_name_dest . ASSIGN COMPONENT field_name_src OF STRUCTURE src TO <fs_field_src> CASTING. ASSIGN COMPONENT field_name_dest OF STRUCTURE dest TO <fs_field_dest> CASTING. <fs_field_dest> = <fs_field_src>.”原汁原味的进行赋值，因为都是X类型，在赋值过程中不会发生类型转换而可能会出现的问题 ENDLOOP. MOVE-CORRESPONDING src TO dest.ENDFORM. " FRM_STRC_COPY
结构不同的两个内表之间进行拷贝
*&---------------------------------------------------------------------**& Form tab_copy*&---------------------------------------------------------------------** 内表拷贝，如果要拷贝的两个字段名不同时使用 SRC_FILEDNAME-DEST_fILEDNAME* 将两个不同的名映射起来，并通过field_maping内表参数进行转递，如果相同，则* 不需要*----------------------------------------------------------------------** -->FIELD_MAPING 不同名称字段映射* -->SRC_TAB 源内表* -->DEST_TAB 目标内表*----------------------------------------------------------------------*FORM tab_copy TABLES field_maping USING src_tab TYPE ANY TABLE dest_tab TYPE ANY TABLE . FIELD-SYMBOLS: <wa_src>, <wa_dest>. FIELD-SYMBOLS: <fs_src_tab> TYPE ANY TABLE. DATA: rf_tabdecr TYPE REF TO cl_abap_tabledescr. DATA: rf_linetype TYPE REF TO cl_abap_structdescr. ASSIGN src_tab TO <fs_src_tab>. rf_tabdecr ?= cl_abap_tabledescr=>describe_by_data( dest_tab ). rf_linetype ?= rf_tabdecr->get_table_line_type( ). DATA: rf_wa_dest_tmp TYPE REF TO data. CREATE DATA rf_wa_dest_tmp TYPE HANDLE rf_linetype. ASSIGN rf_wa_dest_tmp->* TO <wa_dest>. LOOP AT <fs_src_tab> ASSIGNING <wa_src>. PERFORM strc_copy TABLES field_maping USING <wa_src> <wa_dest>. INSERT <wa_dest> INTO TABLE dest_tab. ENDLOOP. "SORT dest_tab . "DELETE ADJACENT DUPLICATES FROM dest_tab.ENDFORM. "frm_tab_copy
将内表中的某一列转换为RANG条件内表
RANGES: r_dispo FOR zkpipp02-dispo. "将内表转换为 Range Internal table PERFORM tab_to_rang TABLES lt_zkpipp02 r_dispo USING 'DISPO'.
*&---------------------------------------------------------------------**& Form tab_to_rang*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->SRC_TAB text* -->RANG_TAB text* -->VALUE(FIELDNAME) text*----------------------------------------------------------------------*FORM tab_to_rang TABLES src_tab rang_tab USING value(fieldname) TYPE c. TYPES: BEGIN OF rang_line_type , sign TYPE c LENGTH 1, option TYPE c LENGTH 2 , low LIKE t001-bukrs, high LIKE t001-bukrs, END OF rang_line_type. "动态创建 Range Internal table DATA: rang_elemt_type_ref TYPE REF TO cl_abap_elemdescr, rang_line_type_ref TYPE REF TO cl_abap_structdescr, rang_tab_type_ref TYPE REF TO cl_abap_tabledescr, component_rang_tab TYPE cl_abap_structdescr=>component_table WITH HEADER LINE, src_line_type_ref TYPE REF TO cl_abap_structdescr, src_tab_type_ref TYPE REF TO cl_abap_tabledescr. DATA: rang_strc_ref TYPE REF TO data, rang_tab_ref TYPE REF TO data. FIELD-SYMBOLS: <rang_wa> , <rang_tab> TYPE STANDARD TABLE. component_rang_tab-name = 'SIGN'. rang_elemt_type_ref ?= cl_abap_elemdescr=>get_c( 1 ). component_rang_tab-type = rang_elemt_type_ref. APPEND component_rang_tab. component_rang_tab-name = 'OPTION'. rang_elemt_type_ref ?= cl_abap_elemdescr=>get_c( 2 ). component_rang_tab-type = rang_elemt_type_ref. APPEND component_rang_tab. component_rang_tab-name = 'LOW'. src_tab_type_ref ?= cl_abap_tabledescr=>describe_by_data( src_tab[] ). src_line_type_ref ?= src_tab_type_ref->get_table_line_type( ). component_rang_tab-type = src_line_type_ref->get_component_type( fieldname ). APPEND component_rang_tab. component_rang_tab-name = 'HIGH'. APPEND component_rang_tab. rang_line_type_ref = cl_abap_structdescr=>create( component_rang_tab[] ). rang_tab_type_ref = cl_abap_tabledescr=>create( p_line_type = rang_line_type_ref p_table_kind = cl_abap_tabledescr=>tablekind_std ). CREATE DATA rang_strc_ref TYPE HANDLE rang_line_type_ref. ASSIGN rang_strc_ref->* TO <rang_wa>. CREATE DATA rang_tab_ref TYPE HANDLE rang_tab_type_ref. ASSIGN rang_tab_ref->* TO <rang_tab>.* SORT src_tab BY (fieldname). DATA: src_tab_rows TYPE i. FIELD-SYMBOLS: <src_tab_fld>, <rang_tab_fld>, <src_tab_fld_last>. DATA: curr_i TYPE i VALUE 1, next_i TYPE i. READ TABLE <rang_tab> ASSIGNING <rang_wa> INDEX curr_i. ASSIGN COMPONENT 'SIGN' OF STRUCTURE <rang_wa> TO <rang_tab_fld>. <rang_tab_fld> = 'I'. ASSIGN COMPONENT 'OPTION' OF STRUCTURE <rang_wa> TO <rang_tab_fld>. <rang_tab_fld> = 'EQ'. ASSIGN COMPONENT 'LOW' OF STRUCTURE <rang_wa> TO <rang_tab_fld>. LOOP AT src_tab. ASSIGN COMPONENT fieldname OF STRUCTURE src_tab TO <src_tab_fld>. IF <src_tab_fld> <> <rang_tab_fld>. <rang_tab_fld> = <src_tab_fld>. APPEND <rang_wa> TO <rang_tab>. ENDIF. ENDLOOP. rang_tab[] = <rang_tab>.ENDFORM. "tab_to_rang
通过正则分组，查找所有子匹配串
*&---------------------------------------------------------------------**& Form fin_all_submatch*&---------------------------------------------------------------------** 找出所有的子匹配项（正则式中使用括号括起来的部分）*----------------------------------------------------------------------** -->P_RESULT text* -->P_STR text* -->P_REG text*----------------------------------------------------------------------*FORM find_all_submatch TABLES p_result USING p_str p_reg. DATA: result_tab TYPE match_result_tab WITH HEADER LINE. DATA: subresult_tab TYPE submatch_result_tab WITH HEADER LINE. "注意：带表达时 result_tab 后面一定要带上中括号，否则激活时出现奇怪的问题 FIND ALL OCCURRENCES OF REGEX p_reg IN p_str RESULTS result_tab[]. LOOP AT result_tab .* p_result = p_str+result_tab-offset(result_tab-length).* APPEND p_result. subresult_tab[] = result_tab-submatches. LOOP AT subresult_tab. p_result = p_str+subresult_tab-offset(subresult_tab-length). APPEND p_result. ENDLOOP. ENDLOOP.ENDFORM. "find_all_submatch
读取长文本
*&---------------------------------------------------------------------**& Form read_text*&---------------------------------------------------------------------** 读取长文本，可以自动在中英两种语言间切换，如果指定的语言不存在，* 则自动切换到另一种语言;如果输入的语言为空时，则先会默认使用当前语言，如果没
*有，则也会自动切换到另一种语言*----------------------------------------------------------------------*FORM read_text TABLES lines STRUCTURE tline USING txtid language txtname txtobj. DATA: cnt VALUE 2, l_name TYPE thead-tdname, lang(1). IF language IS INITIAL. lang = syst-langu. ELSE. lang = language. ENDIF. l_name = txtname. WHILE cnt >= 1. CALL FUNCTION 'READ_TEXT' EXPORTING id = txtid language = lang name = l_name object = txtobj TABLES lines = lines EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. IF sy-subrc = 0. EXIT. ENDIF. CASE lang. WHEN '1'. lang = 'E'. WHEN 'E'. lang = '1'. ENDCASE. cnt = cnt - 1. ENDWHILE.ENDFORM.
读取长方本，并按指定字符长度拼接单个字符串
*&---------------------------------------------------------------------**& Form read_text_bylen*&---------------------------------------------------------------------** 读取长文本（可以自动在中英两种语言间切换，如果指定的语言不存在，* 则自动切换到另一种语言），并将前 MAXLEN 个字符拼接一个字符串。* 该函数主要用在在ALV单元格显示长文本*----------------------------------------------------------------------** -->LINE_SEPARAT 行分隔符* -->MAXLEN 需拼接字符数* -->RETURN 返回的拼接字符串*----------------------------------------------------------------------*FORM read_text_bylen USING txtid language txtname txtobj line_separat maxlen return. DATA: lines TYPE TABLE OF tline , txt_len TYPE i, diff_len TYPE i, tmp_str TYPE string, l_line_separat TYPE string, i_separat_len TYPE i. FIELD-SYMBOLS: <tline> TYPE tline. PERFORM read_text TABLES lines USING txtid language txtname txtobj. LOOP AT lines ASSIGNING <tline> . IF sy-tabix = 1. l_line_separat = ``. ELSE. l_line_separat = line_separat. i_separat_len = i_separat_len + STRLEN( line_separat ). ENDIF. diff_len = maxlen - txt_len. IF diff_len > 132 .”因为TDLINE-TDLINE的最大长度为，每次截取时不能超过这个数，否则越界 diff_len = 132. ENDIF. CONCATENATE tmp_str <tline>-tdline(diff_len) INTO tmp_str SEPARATED BY l_line_separat . txt_len = STRLEN( tmp_str ) - i_separat_len. IF txt_len >= maxlen. EXIT. ENDIF. ENDLOOP. return = tmp_str.ENDFORM.
读取长方本，并按指定行数拼接单个字符串
*&---------------------------------------------------------------------**& Form read_text_byline*&---------------------------------------------------------------------** 读取长文本（可以自动在中英两种语言间切换，如果指定的语言不存在，* 则自动切换到另一种语言），并将前 MAXLINES 行长文本拼接成字符串。* 该函数主要用在在ALV单元格显示长文本*----------------------------------------------------------------------** -->ID text* -->LANGUAGE text* -->NAME text* -->OBJECT text* -->LINE_SEPARAT 行分隔符* -->MAXLINES 要拼接的行数* -->RETURN 返回拼接好的字符串*----------------------------------------------------------------------*FORM read_text_byline USING id language name object line_separat maxlines return. DATA: lines TYPE TABLE OF tline , l_line_separat TYPE string. FIELD-SYMBOLS: <tline> TYPE tline. PERFORM read_text TABLES lines USING id language name object. LOOP AT lines ASSIGNING <tline> . IF sy-tabix = 1. l_line_separat = ``. ELSE. l_line_separat = line_separat. ENDIF. CONCATENATE return <tline>-tdline INTO return SEPARATED BY l_line_separat . IF sy-tabix = maxlines. EXIT. ENDIF. ENDLOOP.ENDFORM. "read_text_byline
将含有数字类型字段内表转化为可写入到服务器文本文件的内表
data: begin of lt_tab occurs 0, content(300), end of lt_tab . perform itab_to_exceltab tables t_div lt_tab.
form itab_to_exceltab tables p_src_tab p_excel_tab. data:strct_type_ref type ref to cl_abap_structdescr, tab_type_ref type ref to cl_abap_tabledescr, t_component type cl_abap_structdescr=>component_table, wa_component like line of t_component. field-symbols: <fldvalue>. data: begin of t_fldinfo occurs 0, fldname type string, fldtype, end of t_fldinfo, begin of lt_tab occurs 0, content(300), end of lt_tab . data :l_str type string,fldtype,firsttime value 'X'. tab_type_ref ?= cl_abap_tabledescr=>describe_by_data( p_src_tab[] ). strct_type_ref ?= tab_type_ref->get_table_line_type( ). t_component = strct_type_ref->get_components( ). loop at p_src_tab. firsttime = 'X'. loop at t_component into wa_component. fldtype = wa_component-type->type_kind. assign component wa_component-name of structure p_src_tab to <fldvalue>. l_str = <fldvalue>. if fldtype = 'P' or fldtype = 'F' or fldtype = 'I' or fldtype = 'b' or fldtype = 's'. call function 'CLOI_PUT_SIGN_IN_FRONT' changing value = l_str. endif. if firsttime = 'X'. lt_tab-content = l_str . clear firsttime. else. concatenate lt_tab-content l_str into lt_tab-content separated by cl_abap_char_utilities=>horizontal_tab . endif. endloop. append lt_tab. clear: lt_tab. endloop. p_excel_tab[] = lt_tab[].endform.
上面的程序是将内表转换为可以直接写入到服务器上文件的字符串，如果是要将内表下载到客户端，则只需要使用GUI_DOWNLOAD就可以直接做到，这与将内表写入服务器上是不一样的。GUI_DOWNLOAD可以将内表中的任何类型组件字段转换为字符类型后下载，并且以 DAT 模式下载时（此时以TAB键分隔），还可直接由Excel打开：
call function 'GUI_DOWNLOAD' exporting filename = l_filename filetype = 'DAT' 使用TAB键分隔 codepage = '8400' tables data_tab = itab
上面Form程序就是模拟GUI_DOWNLOAD，将内表转换为可以直接使用open dataset l_file for output IN TEXT MODE语句写入文件的纯字符内表，因为如果内表中包数字类型的字段时，如果不经过转换，在以IN TEXT MODE模式写入时，会出现乱码。
该程序就是用在将内表写入SAP服务器上的文件中，再上传到FTP上，在这过程中如果不经过这样的转换就会出现乱码