Coding-Page 查詢和上傳下載文件Class

1、各語種的Codepage查詢

Language Keys---語種存放表(T002)


我們可能常用到的：

Laiso	Sptxt	codepage
ZH	Chinese	8404
ZF	Chinese trad	8300
EN	English	1160

Codepage的查詢：

1. REPORT zrab_zyb_test MESSAGE-ID sabapdocu.   
2. 
   
3. *CONSTANTS: tcode(8) TYPE c VALUE 'YPPM1021'.   
4. DATA:  l_codepage TYPE cpcodepage,   
5.        l_flag TYPE c.   
6. 
   
7. CALL FUNCTION 'NLS_GET_FRONTEND_CP'
   
8.   EXPORTING   
9.     langu                 = 'M'  "注意，此處使用SPRAS類型，1 Char   
10.     fetype                = 'MS'
    
11.   IMPORTING   
12.     frontend_codepage     = l_codepage   
13.   EXCEPTIONS   
14.     illegal_syst_codepage = 1
    
15.     no_frontend_cp_found  = 2
    
16.     internal_or_db_error  = 3
    
17.     OTHERS                = 4.   
18. *IF sy-subrc <> 0.   
19. *  CASE sy-subrc.   
20. *    WHEN 1.   
21. *      MESSAGE i055.   
22. *    WHEN 2.   
23. *   ***   
24. *  ENDCASE.   
25. *  LEAVE TO TRANSACTION tcode.   
26. *ENDIF.   
27. 
    
28. WRITE: / l_codepage.  

REPORT zrab_zyb_test MESSAGE-ID sabapdocu.*CONSTANTS: tcode(8) TYPE c VALUE 'YPPM1021'.DATA:  l_codepage TYPE cpcodepage,       l_flag TYPE c.CALL FUNCTION 'NLS_GET_FRONTEND_CP'  EXPORTING    langu                 = 'M'  "注意，此處使用SPRAS類型，1 Char    fetype                = 'MS'  IMPORTING    frontend_codepage     = l_codepage  EXCEPTIONS    illegal_syst_codepage = 1    no_frontend_cp_found  = 2    internal_or_db_error  = 3    OTHERS                = 4.*IF sy-subrc <> 0.*  CASE sy-subrc.*    WHEN 1.*      MESSAGE i055.*    WHEN 2.*   ****  ENDCASE.*  LEAVE TO TRANSACTION tcode.*ENDIF.WRITE: / l_codepage.


2、Upload/Download
upload文件存在與否的判斷

1. form check_file_exist .   
2. 
   
3.   data: l_result type abap_bool,   
4.         l_file type string.   
5. 
   
6.   l_file = p_upath.   
7.   call method cl_gui_frontend_services=>file_exist   
8.     exporting   
9.       file                 = l_file   
10.     receiving   
11.       result               = l_result   
12.     exceptions   
13.       cntl_error           = 1
    
14.       error_no_gui         = 2
    
15.       wrong_parameter      = 3
    
16.       not_supported_by_gui = 4
    
17.       others               = 5.   
18. 
    if sy-subrc <> 0.   
19. *    CASE sy-subrc.   
20. *      WHEN 1.   
21. *        MESSAGE i039.   
22. *      WHEN 2.   
23. *        MESSAGE i040.   
24. *      WHen OTHERS.   
25. *        MESSAGE i041.   
26. *    ENDCASE.   
27. *    LEAVE TO TRANSACTION tcode.   
28.   endif.   
29. 
    if l_result <> 'X'.   
30.     message e888 with 'Invalid file'.   
31.   endif.   
32. 
    
33. endform.                    " check_file_exist  

form check_file_exist .  data: l_result type abap_bool,        l_file type string.  l_file = p_upath.  call method cl_gui_frontend_services=>file_exist    exporting      file                 = l_file    receiving      result               = l_result    exceptions      cntl_error           = 1      error_no_gui         = 2      wrong_parameter      = 3      not_supported_by_gui = 4      others               = 5.  if sy-subrc <> 0.*    CASE sy-subrc.*      WHEN 1.*        MESSAGE i039.*      WHEN 2.*        MESSAGE i040.*      WHen OTHERS.*        MESSAGE i041.*    ENDCASE.*    LEAVE TO TRANSACTION tcode.  endif.  if l_result <> 'X'.    message e888 with 'Invalid file'.  endif.endform.                    " check_file_exist


download文件格式及保存路徑存在與否的判斷

1. form check_file_path .   
2.   data: l_result type abap_bool,   
3.         l_directory type string,   
4.         l_filename type string,   
5.         l_index type i.   
6.   data: begin of lt_tab occurs 0,   
7.           cont(100) type c,   
8.         end of lt_tab.   
9. 
   
10. 
    if not p_spath cs '.txt'.   
11.     message e888 with 'Invalid file format.'.   
12.   elseif not p_spath cs ':\'.  
13.     message e888 with 'Invalid driver.'.  
14.   endif.  
15. *** 通過split分割，concatenate組合，實例存儲路徑、文件名的分離  
16.   split p_spath at '\' into table lt_tab.  
17.   describe table lt_tab lines l_index.  
18.   read table lt_tab index l_index.  
19.   l_filename = lt_tab-cont.  
20.   delete lt_tab index l_index.  
21.   loop at lt_tab.  
22.     concatenate l_directory lt_tab-cont '\' into l_directory.  
23.     clear lt_tab.  
24.   endloop.  
25. 
    
26.   call method cl_gui_frontend_services=>directory_exist  
27.     exporting  
28.       directory            = l_directory  
29.     receiving  
30.       result               = l_result  
31.     exceptions  
32.       cntl_error           = 1  
33.       error_no_gui         = 2  
34.       wrong_parameter      = 3  
35.       not_supported_by_gui = 4  
36.       others               = 5.  
37.   if sy-subrc <> 0.  
38. *    CASE sy-subrc.  
39. *      WHEN 1.  
40. *        MESSAGE i039.  
41. *      WHEN 2.  
42. *        MESSAGE i040.  
43. *      WHen OTHERS.  
44. *        MESSAGE i041.  
45. *    ENDCASE.  
46. *    LEAVE TO TRANSACTION tcode.  
47.   endif.  
48.   if l_result <> 'X'.  
49.     message e888 with 'Invalid save path.'.   
50.   endif.   
51. 
    
52. endform.                    " check_file_path   

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

转载于:http://blog.itpub.net/21122155/viewspace-578423/