TXT文件上传与下载
2011-01-07 19:38:02| 分类:
ABAP文件操作
| 标签:
|举报
|字号大中小 订阅
*----------------------- Txt 上传 ----------------------------------------
* 注意:txt文件中的字段用tab区分开的,上传文件时允许文件已打开
DATA:BEGIN OF itab OCCURS 0,
name(20),
height TYPE p DECIMALS 2,
weight TYPE p DECIMALS 2,
END OF itab.
*---Method 1
CALL FUNCTION 'UPLOAD'
EXPORTING
codepage = 'testa'
filename = 'd:\test.txt'
filetype = 'dat'
item = '写文件'
TABLES
data_tab = itab.
*---Method 2
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'd:\test.txt'
filetype = 'DAT'
TABLES
data_tab = itab.
LOOP AT itab.
WRITE:/ 'itab-name:',itab-name, 'itab-height:',itab-height, 'itab-weight:',itab-weight.
ENDLOOP.
*----------------------- Txt 下载 ----------------------------------------
*---Method 1
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename = 'd:\test01.txt'
filetype = 'dat'
item = '文件测试'
TABLES
data_tab = itab.
*---Method 2
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'd:\test01.txt'
filetype = 'DAT'
TABLES
data_tab = itab.
评论这张
转发至微博
转发至微博
评论