菜鸟来啦!请大家帮忙(如何分隔字符串) dim tm() as string tm= split(mystr,"#") 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim Bit() As String, mystr As String mystr = "234#456#123#" Bit = Split(mystr, "#") Debug.Print Bit(0) Debug.Print Bit(1) Debug.Print Bit(2) tm(0) ,tm(1),tm(2) 是你要得三个字符! 定义三个字符数组 str(1),str(2),str(3)i=1if left$(mystr,1)<>"#" then str(i)=str(i)+left$(mystr,1)else i=i+1endif mystr = "234#456#123#"longstr = Len(mystr) i = 1While longstr > 0 If Left$(mystr, 1) <> "#" Then longstr = longstr - 1 Str(i) = Str(i) + Left$(mystr, 1) mystr = Right$(mystr, longstr) Else i = i + 1 End IfWend 现在是正式版Dim str(3)Private Sub Command1_Click()mystr = "234#456#123#"longstr = Len(mystr) i = 1While longstr > 0 If Left$(mystr, 1) <> "#" Then longstr = longstr - 1 str(i) = str(i) + Left$(mystr, 1) mystr = Right$(mystr, longstr) Else i = i + 1 longstr = longstr - 1 mystr = Right$(mystr, longstr) End IfWendPrint str(1)Print str(2)Print str(3)End Sub此程序上机通过 Split有一个功能:限制mystr = "ttt1sss1888"dim ttat() As Stringttat = split(mystr, "1", 2)这样,就只返回两个 VB6中如何转换坐标原点? 帮我看看,什么意思? 小弟跪求一天一夜,请各位大哥帮忙解决访问局域网access数据库问题 Access 加密与VB 连接的问题! 如何不让子窗体的菜单替代父窗口的菜单 怎样创建一个文本文件??? 请教一个简单的数据库查询,急! 使用mscomm时的问题 VB6.0中,视频捕捉的方法 新手请教一个查询的问题,谢谢! 有时正常,我时出现实时错误'13',类型不匹配,为什么?,听说用友的也出现此种情况? split是干什么用的?
mystr = "234#456#123#" Bit = Split(mystr, "#")
Debug.Print Bit(0)
Debug.Print Bit(1)
Debug.Print Bit(2)
i=1
if left$(mystr,1)<>"#" then
str(i)=str(i)+left$(mystr,1)
else
i=i+1
endif
longstr = Len(mystr)
i = 1
While longstr > 0
If Left$(mystr, 1) <> "#" Then
longstr = longstr - 1
Str(i) = Str(i) + Left$(mystr, 1)
mystr = Right$(mystr, longstr)
Else
i = i + 1
End If
Wend
Dim str(3)
Private Sub Command1_Click()
mystr = "234#456#123#"
longstr = Len(mystr)
i = 1
While longstr > 0
If Left$(mystr, 1) <> "#" Then
longstr = longstr - 1
str(i) = str(i) + Left$(mystr, 1)
mystr = Right$(mystr, longstr)
Else
i = i + 1
longstr = longstr - 1
mystr = Right$(mystr, longstr)
End If
Wend
Print str(1)
Print str(2)
Print str(3)
End Sub
此程序上机通过
mystr = "ttt1sss1888"
dim ttat() As String
ttat = split(mystr, "1", 2)
这样,就只返回两个