我要实现以下效果 字符串的读取

Question

用SPLIT函数,详细情况请自己查MSDN

Answer 1

Split函数
      描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
设置值compare参数的设置值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 

Answer 2

.................Split这么好用的函数我怎能么不知道：（

Answer 3

str=“asdfsdf   sdfds  dsfsdf”
getvalue = Split(str, CStr(Chr(32)), -1, 1)
Text1.Text = getvalue(0)
字符串之间的值，你自己定义，comma ,space 都可

Answer 4

lonwang() 你的方法怎样才能得到第二个和其他的单词呢？

Answer 5

这个肯定这个正确，可以求出使用于任何形式的字符串！
dim i as integer, j as integer,sum as integer
dim result(1000) as string
i=1: j=1: sum=0
str="asdfsdf   sdfds  dsfsdf"
Do while i<=len(str)
 If i<>"" and asc(i)<>13 and asc(i) <>10 then
   i=i+1
 Else
   If mid(str,j,i-j+1)<>"" then   
     sum=sum+1
     result(sum)=mid(str,j,i-j)
   Endif
   i=i+1
   j=i
 Endif
Loop记得给分啊：-）
   

Answer 6

方法楼上的兄台已经说得很明白了，不过我想问一句：
不看方法和解释，下次遇到类似的问题如何做？
可能我的水平不比你好，但你这样做不能体现我们来CSDN的意义吧！