Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式？


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

主题：表达式？
美女呀，离线，留言给我吧！
qianqian1530
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		表达式？  发帖心情 Post By：2014/3/2 0:17:00 [只看该作者]

不知道叫不叫 表达式，  我的问题是这样的

<fea="***" />  

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

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

那么就筛选出 123
 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2014/3/2 8:34:00 [只看该作者]

默默地..在顶一下

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


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		回复：（lsy）Dim s As String = "<fea=""123"" /&...  发帖心情 Post By：2014/3/2 9:40:00 [只看该作者]

如果说  一个 单元里  有 两个着多个 <fea=""123"" /> 怎么办呢？   

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


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/3/2 11:57:00 [只看该作者]

你上一段要改变的文字呗

 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询