- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]从TXT中提取坐标 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143268)
-- 发布时间：2019/11/19 9:34:00
-- [求助]从TXT中提取坐标
根据狐表中桥梁列的桥名，从一个TXT文件中提取出对应的坐标（桥名和坐标前后的字符串是固定的，坐标长度不定），填入到狐表的坐标列，有没有可以参考的代码或者示例文件，麻烦发下
此主题相关图片如下：qq截图20191119092423.png
此主题相关图片如下：qq截图20191119092222.png
-- 发布时间：2019/11/19 9:38:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0171.htm
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2019/11/19 21:11:00
--
这个结果在哪显示，代码考进去，点击没啥反应
-- 发布时间：2019/11/19 21:39:00
--
4楼的代码放到命令窗口执行看输出结果，改为自己的文件路径
-- 发布时间：2019/11/19 22:25:00
--
明白了，非常感谢
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2019/11/25 11:08:00
--
非常感谢，问题解决了。
有个新问题，这个图片管理器中添加了多张照片，能不能实现修改照片的名称（导进去发现有些名称不对，需要更改）
此主题相关图片如下：qq截图20191125110646.png
此主题相关图片如下：qq截图20191125110646.png[此贴子已经被作者于2019/11/25 11:10:41编辑过]