欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs字符串及二维数组的应用有关问题

更新时间: 2014-01-05 01:52:33 责任编辑: Author_N1

 

vbs字符串及二维数组的应用问题
str = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12 |"

我获取到一段数据。。然后我要分别按照|, $, %的顺序取出数据,然后在存入一个二维数组中去,数组中的行数由|的多少来决定,也就是上面那串字符串是会增加的,不过数据的排列方式都是一样的。
我现在想做的就是,先按照|的多少来决定二维数组的行有多少,然后在一行中分别取出$前面的数据,%前面和后面的数据。。。然后存入数据。。循环直到|结束
做出来的数组的示例是:

array((12:12,12,112), (12:12, 12, 12), (32:32, 32, 23), (12:3, 32, 12))

这样子的。。。我对VBS的二维数组不是很熟


--参考方法--
VBScript code
str = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12 |" 
Dim a()
b = Split(str, "|")
ReDim Preserve  a(UBound(b),2)
For i=0 To UBound(b)
    b1 = Split(Replace(b(i),"$","%"), "%")
    If UBound(b1) >0 then
        a(i,0) = b1(0)
        a(i,1) = b1(1)
        a(i,2) = b1(2)
    End If 
Next

For i=0 To UBound(a)
    MsgBox a(i,0) & "=" & a(i,1) & "=" & a(i,2)
Next

--参考方法--
首先,你的问题不是二维数组,而是三维数组,由于VB中数组不能够复制(除非用CopyMemory等API),所以多了一个循环,下面的代码演示了实现过程,结果应该符合LZ的要求。
VBScript code

    Dim i, j, strData, strBuffer, strTemp, strArray()
    
    strData = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12|"
    strData = Left(strData, Len(strData) - 1) '去掉最后1个|
    strData = Replace(strData, " ", "") '过滤掉中间的空格
    strData = Replace(strData, "%", "$") '将%替换为$,因为二者作用一样
    strBuffer = Split(strData, "|") '缓存根据|转换的一维数组
    ReDim strArray(0 To 2, UBound(strBuffer)) '定义为1个三维数组
    For i = 0 To UBound(strBuffer) '通过循环将缓存中的每一维数据根据$转换为三维数组
        strTemp = Split(strBuffer(i), "$")
        For j = 0 To 2
            strArray(j, i) = strTemp(j)
        Next
        Debug.Print strArray(0, i), strArray(1, i), strArray(2, i)
    Next 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:33
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2368/
本文WWW.DOC100.NET DOC100.NET版权所有。