web.Address得到的是一串非汉字内容，要怎么转换为汉字呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → web.Address得到的是一串非汉字内容，要怎么转换为汉字呢？

共有6370人关注过本帖树形打印复制链接主题：web.Address得到的是一串非汉字内容，要怎么转换为汉字呢？

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

web.Address得到的是一串非汉字内容，要怎么转换为汉字呢？ 发帖心情

Post By：2022/5/24 11:25:00 [显示全部帖子]

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.ShowSaveAsDialog

MessageBox.Show(web.Address)

得到的内容如下：

file:///C:/Users/Administrator/%E6%A1%8C%E9%9D%A2/%E5%B7%A1%E5%AF%9F%E5%8A%9E%E4%B8%9A%E5%8A%A1/%E4%B8%8B%E8%BD%BD%E6%96%87%E4%BB%B6/%E5%85%B3%E4%BA%8E%E5%8D%B0%E5%8F%91%E3%80%8A%E7%93%AE%E5%AE%89%E5%8E%BF%E5%AE%89%E5%85%A8%E7%94%9F%E4%BA%A7%E2%80%9C%E6%89%93%E9%9D%9E%E6%B2%BB%E8%BF%9D%E2%80%9D%E4%B8%93%E9%A1%B9%E8%A1%8C%E5%8A%A8%E5%B7%A5%E4%BD%9C%E6%96%B9%E6%A1%88%E3%80%8B%E7%9A%84%E9%80%9A%E7%9F%A5(1).pdf

cnsjroom

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）Dim s As String = "file:///C:/User... 发帖心情

Post By：2022/5/24 11:56:00 [显示全部帖子]

先在web控件中打开了word并修改了文件，然后执行另存文件按钮代码如下：

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.ShowSaveAsDialog

vars("webfl")=web.Address

对应保存的文件是修改后的文件内容，然后再执行如下代码进行静默上传新版文件！

【当前上传可以完成，但是上传的文件内容还是另存之前的文件内容(vars("webfl")得到的是另存为之前的文件路劲，怎么对应获取得到的是另存之后的文件路劲呢？】

Dim fl As String = UrlDecode(vars("webfl").Replace("file:///",""))

Dim r As Row = Tables("知识库_table2").AddNew()

Dim wjm="[" & Format(Date.Now, "yyyyMMddHHmmss") & "]" & FileSys.GetName(fl)

Dim Multi As String = wjm

Dim Values() As String

Values = Multi.split(".")

For Index As Integer = 0 To Values.Length - 1

r("文件名") = Values(0) '写入文件名

r("文件类型") = Values(1) '写入文件名

r("uuid")=Guid.NewGuid.TOstring()

r("主表uuid")=Tables("知识库_table1").Current("uuid")

r.Save '必须先保存

r.DataRow.SQLInsertFile("附件",fl) '插入文件

r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值

cnsjroom

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）https://docs.microsoft.com/zh-cn/d... 发帖心情

Post By：2022/5/24 12:28:00 [显示全部帖子]

是的

有没有办法获取另存后的文件进行上传呢？

或者不用类似的web控件另存为方式

当前修正为如下：【对应的文件没有保存，红色部分代码弹出的值是符合预期的，但是对应的文件没有保存，有什么办法修正呢？使得当前web控件里面的文件保存到对应选择的目录和名称】

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "word文件|*.docx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件

'Dim fl As String = UrlDecode(vars("webfl").Replace("file:///",""))

Dim fl As String = dlg.FileName

Dim r As Row = Tables("知识库_table2").AddNew()

Dim wjm="[" & Format(Date.Now, "yyyyMMddHHmmss") & "]" & FileSys.GetName(fl)

Dim Multi As String = wjm

Dim Values() As String

Values = Multi.split(".")

For Index As Integer = 0 To Values.Length - 1

r("文件名") = Values(0) '写入文件名

r("文件类型") = Values(1) '写入文件名

r("uuid")=Guid.NewGuid.TOstring()

r("主表uuid")=Tables("知识库_table1").Current("uuid")

r.Save '必须先保存

r.DataRow.SQLInsertFile("附件",fl) '插入文件

r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值

End If

[此贴子已经被作者于2022/5/24 12:49:00编辑过]

cnsjroom

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）试试这种方法，直接保存，不要另存ht... 发帖心情

Post By：2022/5/24 13:59:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:webbrowser控制word_测试.table

全局代码：

Public axWebBrowser As Object

Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

axWebBrowser = sender.ActiveXInstance

End Sub

打开word文件代码：【打开之后并不能编辑和保存，麻烦老师指导下如何编辑与保存呢？】

axWebBrowser = Nothing

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "word文件|*.doc"

If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

web.Navigate(dlg.FileName)

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop

Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)

oApplication.ActiveWindow.DocumentMap = false

oDocument.Protect (Password:="123456", NoReset:=False, Type:= _

MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

oDocument.saved = True

vars("doc") = oDocument

End If

[此贴子已经被作者于2022/5/24 13:59:55编辑过]

cnsjroom

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）[upload=zip,webbrowser控制word_测试... 发帖心情

Post By：2022/5/24 14:45:00 [显示全部帖子]

有点蓝老师如果我将文件类型新增excel后发现可以打开excel文件，但是无法保存，有没有办法可以实现对应的保存呢？

Dim oDocument As Object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

oDocument.save()

保存时，有没有办法同步output出保存的文件位置呢？

[此贴子已经被作者于2022/5/24 14:58:52编辑过]

cnsjroom

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）就是web.Address 发帖心情

Post By：2022/5/24 16:15:00 [显示全部帖子]

此主题相关图片如下：1.png

此主题相关图片如下：2.png

依次按图进行操作后，最后会报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：窗口,知识库,Button3,Click

详细错误信息：

未将对象引用设置到对象的实例。

以下内容是专门发给有点蓝浏览

[此贴子已经被作者于2022/5/24 16:15:22编辑过]

cnsjroom

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）调试技巧：http://www.foxtable.com/... 发帖心情

Post By：2022/5/24 17:03:00 [显示全部帖子]

打开word代码：

axWebBrowser = Nothing

e.Form.Controls("WebBrowser1").Address = vars("文件")

e.Form.Controls("WebBrowser1").OfficeToolBar = True

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop

Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)

这个保存word代码如下：

Dim oDocument As Object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

MessageBox.Show(1)

oDocument.save()

MessageBox.Show(2)

运行提示一个都不弹出来……

还会导致当前窗体无法关闭……

[此贴子已经被作者于2022/5/24 17:06:23编辑过]

cnsjroom

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）这个保存word代码如下：MessageBox.S... 发帖心情

Post By：2022/5/24 17:14:00 [显示全部帖子]

老师 MessageBox.Show(0)这个能够弹出来

接下来的1和2不能弹，同时当前窗体想关闭的话也无法关闭了点x或alt+f4都不能关闭，只有任务管理器吧整个项目关闭了重新打开才行……

cnsjroom

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）MessageBox.Show(axWebBrowser ... 发帖心情

Post By：2022/5/24 17:30:00 [显示全部帖子]

提示是true

此主题相关图片如下：1.png

cnsjroom

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）MessageBox.Show(axWebBrowser ... 发帖心情

Post By：2022/5/24 17:44:00 [显示全部帖子]

提示是true

此主题相关图片如下：1.png

全局代码：

Public axWebBrowser As Object

Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

axWebBrowser = sender.ActiveXInstance

End Sub

打开word代码：

axWebBrowser = Nothing

e.Form.Controls("WebBrowser1").Address = vars("文件")

e.Form.Controls("WebBrowser1").OfficeToolBar = True

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop

Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)

保存word代码：

Dim oDocument As Object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

oDocument.save()

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：web.Address得到的是一串非汉字内容，要怎么转换为汉字呢？