lr文件下载脚本（文件参数化重命名）

 

http://wenku.baidu.com/link?url=6oiIadyF9eFS4VshKbfJDnxrBh2IX919ndi0JO8yoqTRNRNIpavFrZJ9LPVb-FBSfbRYINuJpUY7Q2uP_we559QV7Ri7wqm1r7EXhigBl3a

 

下载文件时 文件名相同会被覆盖：

以下是两种重命名文件的方法，妈蛋的函数写错了，让我整了一早上：

第一种 利用strcpy函数，随机数参数化文件名会使文件每次生成的文件名 随机带上不同的数字

strcpy(filepath,lr_eval_string("D://数据导出{num}.doc"));

第二种比较复杂一点

char filename1[50]; 
char filename[50];
char filepath[50]; 
//生成不重复的随机数，
int i=rand()%10; 
srand(time(NULL)); 
//生成1-10之间的随机数，这块注意（）不能漏写
lr_save_datetime("%Y%m%d%H%M%S",DATE_NOW,"now"); 
//这块注意时间格式以及是否加双引号
sprintf(filename,"%s%d.csv",
lr_eval_string("{now}"),i); 
lr_save_string(filename,"filename1"); 
strcpy(filepath,"D:\\Users\\wufangfang\\Desktop\\app\\"); 
strcat(filepath,lr_eval_string("{filename1}")); 
lr_message("%s",filepath

 

==============================黄金分割线===============================

//定义一个整型变量保存获得文件的大小
int flen;
//保存文件句柄
long filedes;

/*
char filename1[50]; 

char filename[50]; 

char filepath[50]; 
//生成不重复的随机数，
int i=rand()%10; 
srand(time(NULL)); 
//生成1-10之间的随机数，这块注意（）不能漏写
lr_save_datetime("%Y%m%d%H%M%S",DATE_NOW,"now"); 

//这块注意时间格式以及是否加双引号
sprintf(filename,"%s%d.csv",
lr_eval_string("{now}"),i); 

lr_save_string(filename,"filename1"); 

strcpy(filepath,"D:\\Users\\wufangfang\\Desktop\\app\\"); 
strcat(filepath,lr_eval_string("{filename1}")); 
lr_message("%s",filepath);

*/
//设置参数的最大长度，注意该值必须大于文件的大小

web_set_max_html_param_len("20000");

//使用关联函数获取下载文件的内容，在这里不定义左右边界，获得服务器响应的所有内容

web_reg_save_param("fcontent",

"LB=",

"RB=",

"SEARCH=BODY",

LAST);





/*下载帮助文件*/



lr_start_transaction("导出文件");

//发送导出文件的请求

web_url("DownLoadServlet",

"URL= http://wenku.baidu.com/view/9052ad6c011ca300a6c39060.html",

"Resource=1",

"RecContentType=application/x-msdownload",

"Referer=",

"Snapshot=t41.inf",

LAST);

lr_convert_string_encoding(lr_eval_string("{fcontent}"),LR_ENC_SYSTEM_LOCALE,LR_ENC_UTF8,"str");

//获取响应中的文件长度
flen = web_get_int_property(HTTP_INFO_DOWNLOAD_SIZE);


strcpy(filepath,lr_eval_string("D://数据导出{num}.doc"));
if(flen > 0)

{

//以写方式打开文件

if((filedes = fopen(filepath, "wb")) == NULL)

{

lr_output_message("打开文件失败!");

return -1;

}

//写入文件内容

fwrite(lr_eval_string("{str}"), flen, 1, filedes);

//关闭文件

fclose(filedes);

}

lr_end_transaction("导出文件",LR_AUTO);

return 0;
}