www.3112.net > vB split 数组

vB split 数组

应该不能,不过您可以先通过Replace函数来将“@”替换成“#”再用Split函数拆分字符串到数组。 例如: B = Split(Replace(a, "@", "#", , , vbTextCompare), "#")

Private Sub Command1_Click() Dim a(1 To 10, 1 To 10, 1 To 3), b() As String b = Split("1/2/3", "/") For i = 0 To 2 a(1, 1, i + 1) = b(i) Print "a(1,1," & i + 1 & ")="; a(1, 1, i + 1) Print Next i Print End Sub

返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 语法 Split(expression[, delimiter[, count[, compare]]]) Split函数语法有如下几部分: 部分描述expression必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个...

Split(Split(s, ",")(i), ",")(0)输出是s字符串通过","分割后的第i个数组内的字符再次使用","分割后的第0个数组内的字符 比如s=",1,2,3,4,5," 此时AllNum1(LineNum1)=5,LineNum1=1 For i = 1 To AllNum1(LineNum1) NumberNum1(LineNum1, i) = S...

有些文本中的换行符不一定是vbCrLf,也有可能是vbCr或vbLf,你可以这样试试: a = split(textbox1.text, vbcr) 或 a = split(textbox1.text, vblf)

Private Sub Command1_Click() Dim arr() As Integer, tmp1, tmp2, tmp3 As String tmp1 = Split(Text1, vbCrLf) tmp2 = Split(tmp1(0), "x") ReDim arr(UBound(tmp1), UBound(tmp2)) For i = 0 To UBound(tmp1) For j = 0 To UBound(tmp2) arr(...

Split("北京,乌鲁木齐,上海,广州,香港,澳门", ",") 就是以","为分隔符把字符串"北京,乌鲁木齐,上海,广州,香港,澳门"分割成若干子串 结果就是 a(0)="北京" a(1)="乌鲁木齐" a(2)="上海" a(3)="广州" a(4)="香港" a(5)="澳门" 后面的代码就把数组a...

Function testSplit() Dim a As String a = "1,2,3,4,dsd-ad5,6,45,656465,564,45" Dim b() As String b() = Split(a, ",") Debug.Print b(4) End Function 解释如下: Split函数 返回一个从零开始的一维数组,其中包含指定数量的子字符串。 Fun...

定义另一个一维数组,用 一维数组=split(string,"|") 然后再 调整二维数组的列与一维数组行数相同 For n = LBound(一维数组) To UBound(一维数组) 二维数组(指定行,n)=一维数组(n) next 呃......没注意看是C的,我用VB的结构,不过也差不多了,...

ubound 可以取得数组的最后一位的下标。 print Split("a/b/c/d/e", "/")(UBound(Split("a/b/c/d/e", "/")) - 1)

网站地图

All rights reserved Powered by www.3112.net

copyright ©right 2010-2021。
www.3112.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com