Foxtable(狐表)用户栏目专家坐堂 → 分割循环


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

主题:分割循环

美女呀,离线,留言给我吧!
qianqian1530
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim Tel As String = "?&nbsp;2014年03月30日 12:18 配達は終了致しました。<BR>↑&nbsp;2014年03月30日 仙台南営業所から配達に出発致しました。<BR>↑&nbsp;仙台南営業所でお預かりしております。<BR>↑&nbsp;2014年03月28日 18:44 ご不在でしたので、お預かりしております。<BR>↑&nbsp;2014年03月28日 仙台南営業所から配達に出発致しました。<BR>↑&nbsp;2014年03月27日 15:29 ご不在でしたので、お預かりしております。<BR>↑&nbsp;2014年03月25日 19:27 城西営業所を出発致しました。<BR>↑&nbsp;お荷物をお預かり致しました。"


Dim Parts() As String = Tel.Split("<BR>")


想用 <br> 做分割, 然后放到表A 第一列里,···怎么做呢/   <br>数量不确定的情况下   怎么做循环呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/14 20:15:00 [只看该作者]

你想表达什么呢?分割以后,取什么值?


 回到顶部
帅哥哟,离线,有人找我吗?
arthurshoe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:1806 威望:0 精华:0 注册:2014/3/29 9:27:00
  发帖心情 Post By:2014/4/14 20:16:00 [只看该作者]

数组有一个Length属性,用于返回数组的长度。

for i as integer = 0 to length -1

....

next

 回到顶部
帅哥,在线噢!
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/4/14 20:17:00 [只看该作者]

Dim Tel As String = "?&nbsp;2014年03月30日 12:18 配達は終了致しました.<BR>↑&nbsp;2014年03月30日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;仙台南営業所でお預かりしております.<BR>↑&nbsp;2014年03月28日 18:44 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月28日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;2014年03月27日 15:29 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月25日 19:27 城西営業所を出発致しました.<BR>↑&nbsp;お荷物をお預かり致しました."

Dim Parts() As String = Tel.Replace("<BR>","@").Split("@")

 回到顶部
美女呀,离线,留言给我吧!
qianqian1530
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 想要  这样的效果


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140414211949.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
回复:(y2287958)Dim Tel As String = "?&nbsp;...  发帖心情 Post By:2014/4/14 20:22:00 [只看该作者]

 这也是啥意思啊?   把 br 换成@?

 回到顶部
帅哥,在线噢!
y2287958
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/4/14 20:23:00 [只看该作者]

把这个放命令窗口看看效果:

Dim Tel As String = "?&nbsp;2014年03月30日 12:18 配達は終了致しました.<BR>↑&nbsp;2014年03月30日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;仙台南営業所でお預かりしております.<BR>↑&nbsp;2014年03月28日 18:44 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月28日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;2014年03月27日 15:29 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月25日 19:27 城西営業所を出発致しました.<BR>↑&nbsp;お荷物をお預かり致しました."


Dim Parts() As String = Tel.Replace("<BR>","@").Split("@")
For Each s As String In Parts
    Output.Show(s)
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/14 20:24:00 [只看该作者]

代码

 

Dim Tel As String = "?&nbsp;2014年03月30日 12:18 配達は終了致しました.<BR>↑&nbsp;2014年03月30日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;仙台南営業所でお預かりしております.<BR>↑&nbsp;2014年03月28日 18:44 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月28日 仙台南営業所から配達に出発致しました.<BR>↑&nbsp;2014年03月27日 15:29 ご不在でしたので?お預かりしております.<BR>↑&nbsp;2014年03月25日 19:27 城西営業所を出発致しました.<BR>↑&nbsp;お荷物をお預かり致しました."
Dim Parts() As String = Tel.Replace("<BR>","@").Split("@")

For Each part As String In parts
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("第一列") = part
Next


 回到顶部
美女呀,离线,留言给我吧!
qianqian1530
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢各位哈~  可以了

 回到顶部