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


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

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


加好友 发短信
等级：幼狐 帖子：91 积分：715 威望：0 精华：0 注册：2019/10/20 0:27:00 		[求助]从TXT中提取坐标  发帖心情 Post By：2019/11/19 9:34:00 [只看该作者]

根据狐表中桥梁列的桥名，从一个TXT文件中提取出对应的坐标（桥名和坐标前后的字符串是固定的，坐标长度不定），填入到狐表的坐标列，有没有可以参考的代码或者示例文件，麻烦发下

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191119092423.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191119092222.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:示例.txt
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


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

问题：提取文件的时候会出错，错误提示如下，试了几次错误的位置在提取文件的倒数第二个数据的时候，麻烦看看是什么原因


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191119161724.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191119161613.png
图片点击可在新窗口打开查看
//////////////////
Dim xmlDoc As New System.XML.XmlDocument
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog 
dlg.Filter= "Kml文件|*.kml|Txt文本文件|*.txt|Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   xmlDoc.Load(dlg.FileName)
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If
Dim ndList1 As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("name")
Dim ndList2 As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("coordinates")
For i As Integer = 0 To ndList1.count - 1
    Dim nr As Row = Tables("经纬度").AddNew
    nr("桥梁名称") = ndList1(i).InnerText
    Dim Multi As String = ndList2(i).InnerText
    Dim Values() As String
    Values = Multi.split(",")
    nr("经度") =Values(0)
    nr("纬度") =Values(1)
Next
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.txt


[此贴子已经被作者于2019/11/19 17:42:27编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim s As String = FileSys.ReadAllText("D:\问题\测试.txt")
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(s)
Output.Show(xo.Tostring)
Dim ja As JArray = xo("kml:Document")("kml:Folder")("kml:Placemark")

For i As Integer = 0 To ja.Count - 1
    Output.show(ja(i)("kml:name"))
    Output.show(ja(i)("kml:description"))
    Output.show(ja(i)("kml:Point")("kml:coordinates"))
    Output.show(ja(i)("kml:markerStyle"))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

图片点击可在新窗口打开查看图片点击可在新窗口打开查看这个结果在哪显示，代码考进去，点击没啥反应

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

4楼的代码放到命令窗口执行看输出结果，改为自己的文件路径
 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

明白了，非常感谢

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


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

目的：word文件转化成pdf
问题：转换完word文件的进程没有结束，下次转化同一文件被占用
///////////////////
Dim app As New MSWord.Application
try
    Dim dlg1,dlg2 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|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
    If dlg1.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
        ' messagebox.Show("你选择了" & dlg1.FileNames.Length & "个文件, 分别是:")
        For Each fl As String In dlg1.FileNames
            ' MessageBox.Show(fl)
            Dim fll As String
            app.Documents.Open(fl)
            fll = fl.Remove(fl.LastIndexOf("."))
            fll = fll.Insert(fll.Length,".pdf")
            ' MessageBox.Show(fll)
            Label1.Text = "正在转换: " & fll
            app.Documents(fl).ExportAsFixedFormat(fll, MSWord.WdExportFormat.wdExportFormatPDF)
        Next
    End If
    MessageBox.Show("转换完成")
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
    If dlg1.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
        ' messagebox.Show("你选择了" & dlg1.FileNames.Length & "个文件, 分别是:")
        For Each fl As String In dlg1.FileNames
            ' MessageBox.Show(fl)
            Dim fll As String
            Dim doc = app.Documents.Open(fl)
            fll = fl.Remove(fl.LastIndexOf("."))
            fll = fll.Insert(fll.Length,".pdf")
            ' MessageBox.Show(fll)
            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
 回到顶部
帅哥哟，离线，有人找我吗？
12397522011
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

非常感谢，问题解决了。
有个新问题，这个图片管理器中添加了多张照片，能不能实现修改照片的名称（导进去发现有些名称不对，需要更改）

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191125110646.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/11/25 11:10:41编辑过]
 回到顶部
总数 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.05469 秒, 6 次数据查询