在tiptop上利用Perl 脚本，实现按自定义格式导出Excel模板数据，支持多页签

实现方式，先将Perl脚本放到服务器，赋予正确权限，程序先将数据按指定格式写入TXT文档，最后，利用Perl脚本将TXT文档转换为Excel文档并下载出来！

4GL实例

FUNCTION p010_txt()
DEFINE l_count    LIKE type_file.num5
DEFINE l_mac      LIKE type_file.chr100
DEFINE l_mac1     LIKE type_file.chr100
DEFINE l_mac2     LIKE type_file.chr100
DEFINE l_sn       LIKE type_file.chr100
DEFINE l_passwd   LIKE type_file.chr100
DEFINE l_xml      LIKE type_file.chr100DEFINE l_hash     LIKE type_file.chr100
DEFINE l_pin      LIKE type_file.chr100
DEFINE l_model    LIKE type_file.chr100
DEFINE l_po       LIKE type_file.chr100
DEFINE l_chr      STRING
DEFINE l_title    STRING
DEFINE l_title1    STRING
DEFINE l_sql      STRING
DEFINE  l_bb      LIKE type_file.chr100
DEFINE  l_num     LIKE type_file.chr100
DEFINE  l_box     LIKE type_file.chr100
DEFINE  l_ssidpasswd   LIKE type_file.num10
DEFINE  l_tc_box01     LIKE tc_box_file.tc_box01
DEFINE  l_tc_box05     LIKE tc_box_file.tc_box05 #TXT文件标题
LET l_title='TXT文档.txt'
LET l_title1='EXCEL文档.xls'
LET l_chr=''
LET l_mac=''
LET l_sn=''
LET l_passwd=''
LET l_xml=''
LET l_hash=''
LET l_pin=''
LET l_model=''
LET l_box=''
LET l_ssidpasswd=''RUN "rm -rf /u1/out/"||l_title||" "
RUN "echo '标题栏栏位1,标题栏栏位2,标题栏栏位3' >/u1/out/"||l_title||" "
RUN "chmod 777 /u1/out/"||l_title||" "
LET l_chr = '抓取的数据组合起来'RUN "echo '"||l_chr||"' >>/u1/out/"||l_title||" " RUN "/u1/mail/script/txt2xlszqcao.pl /u1/out/"||l_title||" /u1/out/"||l_title1||" "  #转换xls
IF cl_sure(0,0)  THEN
CALL  p010_downloadtxt(l_title1)   #下载数据
END IF
END FUNCTION FUNCTION p010_downloadtxt(l_title)
DEFINE l_title       STRING
DEFINE ls_url        STRING
DEFINE li_status     STRING
DEFINE gs_fglasip    STRING
LET gs_fglasip = FGL_GETENV("FGLASIP")
LET ls_url = gs_fglasip, "/tiptop/out/",l_title
LET li_status = cl_open_url(ls_url)
IF NOT li_status THEN
CALL cl_err(NULL, "lib-205", 1)
END IF
END FUNCTION

perl脚本代码

#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
use Text::CSV::Encoded;
use Encode;
if (($#ARGV < 1) || ($#ARGV > 2)) {die("Usage: csv2xls txtfile.txt newfile.xls\n");
};# Open the Comma Separated Variable fileopen  CSVFILE, '<:utf8', $ARGV[0] or die "$ARGV[0]: $!";my $workbook  = Spreadsheet::WriteExcel->new($ARGV[1]);my $worksheet = $workbook->add_worksheet();my $row = 0;$worksheet->set_column(0,5,14);while (<CSVFILE>) {s/[\001-\037]//g;my @list = split /,/,$_;my $col = 0;foreach my $token (@list) {if  ($token=~/^0[^.]/) {$worksheet->write_string($row, $col, $token );}else{ $worksheet->write($row, $col, $token);}$col++;}$row++;}close(CSVFILE);
$workbook->close();

Perl脚本实现tiptop数据导出EXCEL模板相关推荐

python数据导出excel模板中的脚本_Python实现将数据库一键导出为Excel表格的实例...
数据库数据导出为excel表格,也可以说是一个很常用的功能了.毕竟不是任何人都懂数据库操作语句的. 下面先来看看完成的效果吧. 数据源导出结果依赖由于是Python实现的,所以需要有Python ...
使用 EasyPOI 优雅导出Excel模板数据（含图片）
点击上方蓝色"程序猿DD",选择"设为星标" 回复"资源"获取独家整理的学习资料! 作者 | 星悬月来源 | blog.csdn.net/ ...
bootstraptable导出excel独立使用_使用 EasyPOI 优雅导出Excel模板数据（含图片）
EasyPOI功能如同名字Easy,主打的功能就是容易,让一个没接触过POI的人员可以方便的写出Excel导出,Excel模板导出,Excel导入,Word模板导出.通过简单的注解和模板语言(熟悉的表 ...
.net 导出excel_使用 EasyPOI 优雅导出Excel模板数据（含图片）
作者:星悬月 blog.csdn.net/u012441819/article/details/96828044 EasyPOI功能如同名字Easy,主打的功能就是容易,让一个没接触过POI的人员可以 ...
使用EasyPOI导出Excel模板数据（含图片）
使用EasyPOI导出Excel模板数据(含图片) EasyPOI功能如同名字Easy,主打的功能就是容易,让一个没接触过POI的人员可以方便的写出Excel导出,Excel模板导出,Excel导入, ...
java 实现导出excel模板
java 实现指定内容导出execl模板业务层 /**点击导出excel模板,触发的接口 */@PostMapping("exportData")@ResponseBodypub ...
java使用POI的HSSFWorkbook导出excel模板添加各种校验
java导出excel模板添加各种校验添加值域(下拉列) /*** @description 设置某些列的值只能输入预制的数据,显示下拉框.* @param sheet 模板sheet页(需要设置下 ...
JavaEasyPoi将数据导出Excel
最近工作中有需求需要将数据导出到Excel中,这个功能以前做过的项目中几乎都有,但都是人家已经实现了的,这次自己做也折腾了不少的时间,特此记录方便以后自己查阅. 首先需要借助第三方jar包,如标题所言 ...
上传excel文件，导出excel模板实现
此功能上商品导入,分别有导入组别,品类,属性(json字符串截取)等多功能多表实现. 导出功能,根据自定义需要的模板名称生成可配置模板 controller调用前段路径,然后导入/导出模板工具,ser ...

Perl脚本实现tiptop数据导出EXCEL模板

在tiptop上利用Perl 脚本，实现按自定义格式导出Excel模板数据，支持多页签

实现方式，先将Perl脚本放到服务器，赋予正确权限，程序先将数据按指定格式写入TXT文档，最后，利用Perl脚本将TXT文档转换为Excel文档并下载出来！

4GL实例

perl脚本代码

Perl脚本实现tiptop数据导出EXCEL模板相关推荐

最新文章

热门文章