如何把文本框中的一段文字，拆分成单词赋值到 test() 数组中？

如TEXT1中的一段文字

Every common person has it's own interest.Well,so have I.
I have many interests,and I am interested in using the computer the most.I don't often use computer to surf the internet,but whenever I use it,I always fall in love with it.Don't you think it very interesting?
Firstly,I can play online games on the internet,that often brings me much happiness and make me forget my trouble.That can train my intelligence.It's true,isn't it?


用Split()函数 可吗？

[此贴子已经被作者于2007-7-3 11:51:54编辑过]

请老师指教

Private Sub Command1_Click()
Dim nw As Integer, i As Integer, nl As Integer, j As Integer
Dim wt As Boolean
Dim strA As String, strB As String, a() As String


strA = Text1.Text

wt = False

nl = Len(Trim(strA))

For i = 1 To nl
strB = Mid$(strA, i, 1) '取得每一个字符

Select Case Asc(strB)
Case 32, 33, 44, 46, 58, 59, 13, 10 '数字代表标点符号回车空格等
wt = False
Case Else
If Not wt Then '如果不是符号空格等就赋值到数组中

'此处循环怎么做，才能使a()得到正确赋值？？？??????????????????????????

a(j) = a(j) + strB


Next i

搞不明白，你是想把一段一段的放进数组还是？

我的意思是想把text1.text中的文本，拆成单词（不是字母）放到数组TEST（）中

在我写的那几行代码中，怎么设置test()数组的循环，才能使单词正确的赋值，

dim str as String
dim var as Variant
str=trim(text1.text)
str=replace(replace(str,chr(10),""),chr(13),"")'把回车符去掉
var=split(str," ")'var就是数组了，通过空一隔来得到单词的

replace的话vbcrlf为空
'.!?要替换成空格

谢谢老师。

我写的那几行代码中，主要是对这空格的个数控制不好，以致赋值时，数组的循环不好弄。