- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]修改特定开头和结尾的值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147563)
-- 发布时间：2020/3/19 13:56:00
-- [求助]修改特定开头和结尾的值
dim str as string = "<div style=\'width:100%\' ><a>一网</a></div><div style=\'width:100%\' ><a>二网</a></div><div style=\'width:100%\' ><a>三网</a></div>"
比如以上代码，使用狐表，怎么才能修改全部开头为<a>结尾为</a>的值？
-- 发布时间：2020/3/19 14:18:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0171.htm
Dim str As String = "<xml><div style=\'width:100%\' ><a>一网</a></div><div style=\'width:100%\' ><a>二网</a></div><div style=\'width:100%\' ><a>三网</a></div></xml>"
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(str)
Dim ygs As JArray = xo("div")
For n As Integer = 0 To ygs.Count - 1
ygs(n)("a")= n
Next
Output.Show(xo.ToXML)
-- 发布时间：2020/3/19 15:10:00
--
谢谢了
