以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46954)
--  作者：qianqian1530
--  发布时间：2014/3/2 0:17:00
--  表达式？
不知道叫不叫 表达式，  我的问题是这样的

<fea="***" />  

用以上的 文字  筛选出  *** 

比如， 表里面有 <fea="123" />

那么就筛选出 123
--  作者：qianqian1530
--  发布时间：2014/3/2 8:34:00
--  
默默地..在顶一下
--  作者：lsy
--  发布时间：2014/3/2 9:13:00
--  

Dim s As String = "<fea=""123"" />"
Dim i As Integer = s.IndexOf("""")
Dim j As Integer = s.LastIndexOf("""")
Output.Show(s.SubString(i + 1,j - i - 1))

 

或者：

Dim s As String = Tables("表A").Current("第一列")

Dim i As Integer = s.IndexOf("""")
Dim j As Integer = s.LastIndexOf("""")
Output.Show(s.SubString(i + 1,j - i - 1))

 
--  作者：qianqian1530
--  发布时间：2014/3/2 9:40:00
--  回复：（lsy）Dim s As String = "<fea=""123"" /&...
如果说  一个 单元里  有 两个着多个 <fea=""123"" /> 怎么办呢？   
--  作者：y2287958
--  发布时间：2014/3/2 11:57:00
--  
你上一段要改变的文字呗
--  作者：qianqian1530
--  发布时间：2014/3/2 13:02:00
--  
<?xml version="1.0" encoding="utf-8" ?>
<ZIP_result>
<result name="ZipSearchXML" />
<result version="1.01" />
<result request_url="**" />
<result request_zip_num="**" />
<result request_zip_version="none" />
<result result_code="1" />
<result result_zip_num="**" />
<result result_zip_version="0" />
<result result_values_count="1" />
<ADDRESS_value>

<value company_kana="none" />
<value state="黑龙江省" />
<value city="海林市" />
<value address="北纬街" />
<value company="none" />
</ADDRESS_value>
</ZIP_result>


论坛里的，xml 提取，研究了一晚上都不知道啥是啥，  所以想 提取字符·的办法··

<value state="黑龙江省" />  想提取 ------黑龙江
--  作者：lsy
--  发布时间：2014/3/2 13:50:00
--  

Dim fls As List(of String) = DataTables("表A").DataRows(0).Lines("第一列")   \'把提取的内容复制到表A的第一行、第一列，测试。

提取内容的行数，按说是固定的，所以：
For i As Integer = 13 To 15
    Dim j As Integer = fls(i).IndexOf("""")
    Dim k As Integer = fls(i).LastIndexOf("""")
    Output.Show(fls(i).SubString(j + 1,k - j - 1).Trim("省"))
Next

[此贴子已经被作者于2014-3-2 13:53:15编辑过]
--  作者：有点甜
--  发布时间：2014/3/2 20:14:00
--  
 这样用

Dim strXML = Tables("表A")(0,0)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.LoadXml(strXML)
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("ADDRESS_value")
For i As Integer = 0 To ndList.count - 1 \'取出所有的 ADDRESS_value
    output.Show(ndList(i).ChildNodes(1).Attributes.GetNamedItem("state").value) \'显示 省份
Next