上传下载文件 .

转载 2013年12月05日 16:54:48
  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  

相关文章推荐

SpringMVC实现文件上传下载

  • 2016-07-22 15:15
  • 6.49MB
  • 下载

文件上传下载 源代码

SSM框架-SpringMVC 实例文件上传下载

林炳文Evankaka原创作品。转载请注明出处http://blog.csdn.net/evankaka 本文详细讲解了SpringMVC实例单文件上传、多文件上传、文件列表显示、文件下载。 ...

struts2文件上传下载

  • 2015-02-01 19:19
  • 879KB
  • 下载

文件上传下载包jar

  • 2017-08-27 16:16
  • 119KB
  • 下载

JCIFS实现远程服务器共享文件上传下载

JCIFS是CIFS 在JAVA中的一个实现,是samba组织负责维护开发的一个开源项目,专注于使用java语言对cifs协议的设计和实现。他们将jcifs设计成为一个完整的,丰富的,具有可扩展能力且...

上传下载文件

  • 2017-08-18 17:41
  • 33KB
  • 下载

javaweb中文件上传下载示例

Html代码 %@ page language="java" contentType="text/html; charset=UTF-8"       page...

文件上传下载所需包

  • 2015-04-05 10:45
  • 223KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)