这里假设你的分割符是逗号
dim myArr() as string
myArr = split(YourString,",")
dim myArr() as string
myArr = split(YourString,",")
解决方案 »
- 如何去处前边的0
- 如何不让vb打印word时的提示框出现?
- 使用msxml时,出现“对象'send'的方法'ixmlhttprequest'失败”的提示,请问怎么回事?
- 實時修改控件的名字﹐這樣的功能怎樣實現﹖
- 求一个导入excel或者access数据库的内容进入mysql数据库的程序实现方法
- 高分求助漂亮或实用的控件。(不够或有好的再加)
- 关于vb程序设计的一点思考。请关注。
- ########## 那位大哥给我讲讲WebBrowser控件的用法,给段代码最好
- 什么是钩子技术,只能用C++吗
- 如何在sql语句中使用变量?
- 求教一个菜鸟问题,如何实现按钮的多次点击
- 怎么样把整个form打印到v5的纸上?
str(i)=text1.text
str(i)=mid(text1,i,1)
next i
dim BytS() as byteredim BytS(len(text1.text) '这是不含中文的文本
for i=1 to len (text1.text)
bytS(i-1)=mid(text1.text,i,1)
next i
Dim a(10) As Integer
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 9
Text1.Text = Text1.Text & a(i) & Chr(13) & Chr(10)
Next i
End Sub
要赋值给数组!不是给text1!并且行数是随机输入的。
mystr = split(text1.text,vbcrlf)
原来题目是这个意思:只有顶了,用split
dim mystr() as string
mystr = split(text1.text,vbcrlf)