分词算法！高手进来啊！

Question

分词算法！高手进来啊！
1|||5555508630100|||13511511532|||2007-08-18 13:42:00|||阿公司法律师范围绕程序中接收到如上的字符串，想取出其中的非|||部分分别进行存储，应该怎么样进行分词啊！告诉我一个思路啊！谢谢了！

Answer 1

字符函数加上条件判断。
逻辑 
if line not end  then
   if word=| then
      read

Answer 2

'一种方法可以用循环体得到结果,第二中可以用Split函数,下面是第二种方法的代码:
'------------------------------------------------------------------------------
Private Sub Form_Activate()
Dim strdeal As String
Dim result() As String '此数组用于储存结果
strdeal = "1|||5555508630100|||13511511532|||2007-08-18 13:42:00|||阿公司法律师范围绕"
result = Split(strdeal, "|||") '此函数用于将字符串以"|||"分界,然后将结果存入数祖
n = UBound(result)  '获得数组上标
For i = 0 To n
Print result(i)  '输出结果
Next i
End Sub
'------------------------------------------------------------------
Split(expression[, delimiter[, count[, compare]]])expression    必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为 零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter     可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count         可选的。要返回的子字符串数，-1表示返回所有的子字符串。 
compare       可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。