分割循环 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3768人关注过本帖树形打印复制链接主题：分割循环

y2287958

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

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/4/14 20:17:00 [显示全部帖子]

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

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

y2287958

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

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/4/14 20:23:00 [显示全部帖子]

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

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

For Each s As String In Parts

Output.Show(s)

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

主题：分割循环