Foxtable(狐表)用户栏目专家坐堂 → 下载地址动态文件名怎么合成。。。


  共有2096人关注过本帖树形打印复制链接

主题:下载地址动态文件名怎么合成。。。

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
下载地址动态文件名怎么合成。。。  发帖心情 Post By:2017/8/20 20:52:00 [只看该作者]

Dim ex As New Exporter
ex.SourceTableName = "盘点明细表" '指定导出表
ex.FilePath = "C:\inetpub\wwwroot\pandian\" '指定目标文件路径
ex.Filter = filter1
ex.Format = "Delimited" 
ex.NewTableName = "盘点明细表" & Date.Today 
ex.Export() '开始导出
wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href='http://106.122.245.30:8081/pandian/盘点明细表.txt' >下载</button></div>")

老师,这个下载地址动态文件名怎么合成。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 20:56:00 [只看该作者]

wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href='http://106.122.245.30:8081/pandian/" & ex.NewTableName & ".txt' >下载</button></div>")

 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/8/20 20:58:00 [只看该作者]

另外,希望是点击了下载按钮后,才导出,才下载,能实现吗?

我现在是只要进入到这个页面,就先导出放着,等他下载。

这样如果用户只是查看,不下载,就有浪费资源。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 21:07:00 [只看该作者]

wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href='download.txt'>下载</button></div>")

 

在download.txt里面生成和下载文件 http://www.foxtable.com/mobilehelp/scr/0160.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/8/20 23:14:00 [只看该作者]

甜老师,用跳转到另外一个页面实现了。
wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href='download.htm'>请点击这里下载此盘点明细</button></div>")

再download.htm页面里处理完导出后,自动刷新下载链接
e.WriteString("<meta http-equiv='refresh' c>")


你说的客户端类接收文件,不知道怎么操作

我理解的客户端类是指有另外一个FT做的客户端,而我现在做的是电脑PC网页供下载的。

请甜老师指导下 这个客户端类的 接收文件 在这里怎么用呢。。。

[此贴子已经被作者于2017/8/21 0:32:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/8/20 23:17:00 [只看该作者]

多写的,忽略。。
[此贴子已经被作者于2017/8/21 0:32:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/8/20 23:32:00 [只看该作者]

多写的,忽略。。
[此贴子已经被作者于2017/8/21 0:32:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/21 8:57:00 [只看该作者]

httprequest事件直接写下面代码,如果你实现了,还有什么问题?

 

Select Case e.Path
    Case "download.txt"
       
        Dim ex As New Exporter
        ex.SourceTableName = "盘点明细表" '指定导出表
        ex.FilePath = "C:\inetpub\wwwroot\pandian\" '指定目标文件路径
        'ex.Filter = filter1
        ex.Format = "Delimited"
        ex.NewTableName = "盘点明细表" & Date.Today
        ex.Export() '开始导出
       
        e.WriteFile("C:\inetpub\wwwroot\pandian\" & ex.NewTableName & ".txt")
End Select

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/8/23 13:58:00 [只看该作者]

甜老师,这样写,可以导出和直接打开这个文件,但是我要下载这个文件,要怎么处理呢。。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170823135455.png
图片点击可在新窗口打开查看

这里的客户端项目写这段代码,我这里的客户端就是浏览器呢,要怎么写呢:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170823135653.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/23 14:20:00 [只看该作者]

mark 下载文件

 

        
        Dim fs As System.IO.FileStream = Nothing
        fs = System.IO.File.Open("d:\test.txt", System.IO.FileMode.Open)
        Dim btFile As Byte() = New Byte(fs.Length - 1) {}
        fs.Read(btFile, 0, Convert.ToInt32(fs.Length))
        fs.Close()
       
        e.Response.Headers("Content-Disposition") = "attachment;filename=test.txt"
        '输出文件格式
        e.Response.ContentType = "application/octet-stream"
        
        Dim output = e.response.OutputStream
        output.Write(btFile,0,btFile.Length)
        output.Close()

[此贴子已经被作者于2017/8/23 14:20:03编辑过]

 回到顶部
总数 16 1 2 下一页