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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分割循环  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49232)

-- 作者：qianqian1530
-- 发布时间：2014/4/14 20:11: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.Split(" ")

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

--  作者：有点甜
--  发布时间：2014/4/14 20:15:00
--

你想表达什么呢？分割以后，取什么值？

--  作者：arthurshoe
--  发布时间：2014/4/14 20:16:00
--
数组有一个Length属性，用于返回数组的长度。

for i as integer = 0 to length -1

....

next

-- 作者：y2287958
-- 发布时间：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("@")

--  作者：qianqian1530
--  发布时间：2014/4/14 20:20:00
--
想要这样的效果

此主题相关图片如下：qq截图20140414211949.png

--  作者：qianqian1530
--  发布时间：2014/4/14 20:22:00
--  回复：（y2287958）Dim Tel As String = "? ...
这也是啥意思啊？把 br 换成@？

-- 作者：y2287958
-- 发布时间：2014/4/14 20:23: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("@")
For Each s As String In Parts
Output.Show(s)
Next

-- 作者：有点甜
-- 发布时间：2014/4/14 20:24: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("@")

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

--  作者：qianqian1530
--  发布时间：2014/4/14 20:29:00
--
谢谢各位哈～可以了