Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]从TXT中提取坐标


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

主题：[求助]从TXT中提取坐标
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 11:37:00 [只看该作者]

想怎么改？

 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		  发帖心情 Post By：2019/11/25 14:45:00 [只看该作者]

比如导进去的照片名称是“QQ截图20191119161613.png”，需要手动修改成“3号桥墩裂缝.png”
图片浏览器下面的命令有没有办法增加个重命名的功能

PictureViewer提供了以下属性，用于返回底端的各命令：

AddCommand ：增加
DeleteCommand：删除
ClearCommand：清除
OpenCommand：打开
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 15:07:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		  发帖心情 Post By：2019/11/25 17:52:00 [只看该作者]

我的想法是在图片浏览器的后面有没有可能增加一个重命名的功能，因为实际操作的时候我可能加载多张照片，最后留1-2张合适的，然后修改名称

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191125174415.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 20:11:00 [只看该作者]

内置的图片管理器改不了的。自己设计一个窗口，在窗口添加按钮调用代码处理：http://www.foxtable.com/webhelp/topics/1410.htm

 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		  发帖心情 Post By：2019/12/17 10:33:00 [只看该作者]

本帖9楼的代码使用过程中发现了一个问题：word文件转化成pdf的过程中会出现打开word文件的情况
并不是每次都出现，有时候会出现这个问题

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191217092315.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/17 10:51:00 [只看该作者]

上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		  发帖心情 Post By：2019/12/17 19:03:00 [只看该作者]

就是下面的代码，一次多转几个word文件 ，会出现上述问题（不是每次出来）。


Dim app As New MSWord.Application
try
    Dim dlg1 As New OpenFileDialog '定义一个新的OpenFileDialog dlg1:打开位置参数;dlg2保存位置参数
    Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
    dlg1.MultiSelect = True '如果将MultiSelect属性设置为True,可以选择多个文件,通过FileNames属性返回选择的多个文件
    dlg1.Filter= "Word文件|*.docx;*.doc" '设置筛选器
    If dlg1.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
        MessageBox.Show("你选择了文件个数为:" & dlg1.FileNames.Length & "个","提示")
        For Each fl As String In dlg1.FileNames
            Dim fll As String
            Dim doc = app.Documents.Open(fl)
            fll = fl.Remove(fl.LastIndexOf("."))
            fll = fll.Insert(fll.Length,".pdf")
            Label1.Text = "正在转换: " & fll
            doc.ExportAsFixedFormat(fll, MSWord.WdExportFormat.wdExportFormatPDF)
            doc.close
        Next
    End If
    app.Quit
    MessageBox.Show("转换完成")
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/17 20:25:00 [只看该作者]

代码没有问题。估计系统环境或者是office本身的问题。

这样试试

Dim doc as object
For Each fl As String In dlg1.FileNames
            Dim fll As String
            doc = app.Documents.Open(fl)
            fll = fl.Remove(fl.LastIndexOf("."))
            fll = fll.Insert(fll.Length,".pdf")
            Label1.Text = "正在转换: " & fll
            doc.ExportAsFixedFormat(fll, MSWord.WdExportFormat.wdExportFormatPDF)
            doc.close
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		  发帖心情 Post By：2019/12/18 8:59:00 [只看该作者]

试了下目前没发现问题，麻烦问下新旧代码有什么区别，
有些电脑的office安装的简化版的没法转换，适用性太局限了，这种情况有没有办法把office组件整合到代码一起
 回到顶部
总数 31 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询