上传下载文件 .
  1. *&---------------------------------------------------------------------*  
  2. *&  包括                ZUPLOAD_DOWNLOAD  
  3. *&---------------------------------------------------------------------*  
  4. *&---------------------------------------------------------------------*  
  5. *&      Form  ws_filename_get  
  6. *&---------------------------------------------------------------------*  
  7. FORM WS_FILENAME_GET USING  P_FILE.  
  8.   CALL FUNCTION 'WS_FILENAME_GET'  
  9.     EXPORTING  
  10.       DEF_FILENAME     = '*.txt'  
  11.       DEF_PATH         = 'C:\'  
  12.       MASK             = ',*.txt.'  
  13.       MODE             = 'O'  
  14.       TITLE            = TEXT-004  
  15.     IMPORTING  
  16.       FILENAME         = P_FILE  
  17.     EXCEPTIONS  
  18.       INV_WINSYS       = 1  
  19.       NO_BATCH         = 2  
  20.       SELECTION_CANCEL = 3  
  21.       SELECTION_ERROR  = 4  
  22.       OTHERS           = 5.  
  23. ENDFORM.                    " ws_filename_get  
  24. *&---------------------------------------------------------------------*  
  25. *&      Form  UPLOAD_FILE  
  26. *&---------------------------------------------------------------------*  
  27. FORM UPLOAD_FILE  TABLES IT_UPLOAD  
  28.                   USING P_FILE.  
  29.   DATA: FSIZEIN  TYPE I,  
  30.         W_REJECT TYPE I,  
  31.         IJIR     TYPE I VALUE 0,  
  32.         W_TYPE   LIKE DD01V-DATATYPE.  
  33.   DATA: P_TYPE LIKE RLGRAP-FILETYPE VALUE 'DAT'.  
  34. *-- Upload the Main Material Master file using Function 'WS_UPLOAD'  
  35.   CALL FUNCTION 'WS_UPLOAD'  
  36.     EXPORTING  
  37.       FILENAME            = P_FILE  
  38.       FILETYPE            = P_TYPE  
  39.     IMPORTING  
  40.       FILELENGTH          = FSIZEIN  
  41.     TABLES  
  42.       DATA_TAB            = IT_UPLOAD  
  43.     EXCEPTIONS  
  44.       CONVERSION_ERROR    = 1  
  45.       FILE_OPEN_ERROR     = 2  
  46.       FILE_READ_ERROR     = 3  
  47.       INVALID_TABLE_WIDTH = 4  
  48.       INVALID_TYPE        = 5  
  49.       NO_BATCH            = 6  
  50.       UNKNOWN_ERROR       = 7  
  51.       OTHERS              = 8.  
  52. *-- If error, display the necessary Error Message.  
  53.   CASE SY-SUBRC.  
  54.     WHEN 1. PERFORM MSG USING '转换错误' 'E'.  
  55.     WHEN 2. PERFORM MSG USING '文件打开错误' 'E'.  
  56.     WHEN 3. PERFORM MSG USING '文件读取错误' 'E'.  
  57.     WHEN 4. PERFORM MSG USING '表宽不对' 'E'.  
  58.     WHEN 5. PERFORM MSG USING '文件类型不对' 'E'.  
  59.     WHEN 6. PERFORM MSG USING '不是批处理' 'E'.  
  60.     WHEN 7. PERFORM MSG USING '不知名的错误' 'E'.  
  61.     WHEN 8. PERFORM MSG USING '其他错误' 'E'.  
  62.   ENDCASE.  
  63.   DELETE IT_UPLOAD INDEX 1.  
  64.   IF IT_UPLOAD[] IS INITIAL.  
  65.     MESSAGE E315 WITH '上载文件错误,请检查'.  
  66.     STOP.  
  67.   ENDIF.  
  68. ENDFORM.                    " UPLOAD_FILE  
  69.   
  70. *&---------------------------------------------------------------------*  
  71. *&      Form  MSG  
  72. *&---------------------------------------------------------------------*  
  73. *       text  
  74. *----------------------------------------------------------------------*  
  75. *      -->MSGTXT     text  
  76. *      -->MSGTYPE    text  
  77. *----------------------------------------------------------------------*  
  78. FORM MSG USING MSGTXT MSGTYPE.  
  79.   CASE MSGTYPE.  
  80.     WHEN 'E'.  MESSAGE E315 WITH MSGTXT.  
  81.     WHEN 'I'.  MESSAGE I315 WITH MSGTXT.  
  82.     WHEN 'S'.  MESSAGE S315 WITH MSGTXT.  
  83.     WHEN 'W'.  MESSAGE W315 WITH MSGTXT.  
  84.     WHEN 'A'.  MESSAGE A315 WITH MSGTXT.  
  85.   ENDCASE.  
  86. ENDFORM.                    "MSG  
  87. *&---------------------------------------------------------------------*  
  88. *&      Form  DOWN_LOAD  
  89. *&---------------------------------------------------------------------*  
  90. FORM DOWN_LOAD  TABLES IT_ERROR  
  91.                 USING  P_DOWN.  
  92.   CONCATENATE P_DOWN '_' SY-DATUM '_' SY-UZEIT '.txt'  
  93.     INTO P_DOWN.  
  94.   CONDENSE P_DOWN.  
  95.   CALL FUNCTION 'WS_DOWNLOAD'  
  96.     EXPORTING  
  97.       FILENAME            = P_DOWN  
  98.       FILETYPE            = 'DAT'  
  99.     TABLES  
  100.       DATA_TAB            = IT_ERROR  
  101.     EXCEPTIONS  
  102.       CONVERSION_ERROR    = 1  
  103.       FILE_OPEN_ERROR     = 2  
  104.       FILE_READ_ERROR     = 3  
  105.       INVALID_TABLE_WIDTH = 4  
  106.       INVALID_TYPE        = 5  
  107.       NO_BATCH            = 6  
  108.       UNKNOWN_ERROR       = 7  
  109.       OTHERS              = 8.  
  110.   IF SY-SUBRC = 0.  
  111.     MESSAGE I999 WITH TEXT-S01 P_DOWN.  
  112.     STOP.  
  113.   ENDIF.  
  114. ENDFORM.                    " DOWN_LOAD  
阅读更多
个人分类: SE11
想对作者说点什么? 我来说一句

主机上传and下载文件

2010年01月11日 986B 下载

上传下载文件.rar

2010年07月02日 7KB 下载

mvc上传下载文件功能

2017年06月07日 34.87MB 下载

上传下载文件以及页面全部源码

2018年04月16日 2.37MB 下载

FTP for vb

2009年05月20日 17KB 下载

没有更多推荐了,返回首页

不良信息举报

上传下载文件 .

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭