VBA 拆解字串為2維陣列的例子 未完成

2021-09-23 21:56:10 字數 1355 閱讀 9219

使用splint()處理資料時,不受 option base 影響

sub test2001()

rem range("f1").value="1001|1,2005|1,1006|1,2009|1,2006|1,4001|60"

arr1 = split(range("f1"), ",")

for i = 0 to ubound(arr1)

debug.print arr1(i)

next i

end sub

拆解2維陣列的例子—沒搞定

sub testarr1()

rem 把乙個字串切割兩次成為1個2維陣列好像很難?

rem 資料1:張三1|男,李四1|女,張三2|男,李四2|女,張三3|男,李四3|女,張三4|男,李四4|女

rem 資料2:張三1(男),李四1(女),張三2(男),李四2(女),張三3(男),李四3(女),張三4(男),李四4(女)

dim arr1

dim arr2

arr1 = split(range("f1"), ",")

for i = 1 to ubound(arr1)

redim arr2(1 to i, 1 to 2)

arr2(i, 1) = split(arr1(i), "|")

next

for i = 1 to ubound(arr1)

for j = 1 to 2

debug.print arr2(i, j)

next j

next i

end sub

第2個方法好了點?

sub testarr1()

rem 把乙個字串切割兩次成為1個2維陣列好像很難?

rem 資料1:張三1|男,李四1|女,張三2|男,李四2|女,張三3|男,李四3|女,張三4|男,李四4|女

rem 資料2:張三1(男),李四1(女),張三2(男),李四2(女),張三3(男),李四3(女),張三4(男),李四4(女)

dim arr1

dim arr2

arr1 = split(range("f1"), ",")

for i = 1 to ubound(arr1)

redim arr2(1 to i, 1 to 2)

arr2(i, 2) = right(arr1(i), 1)

next

for i = 1 to ubound(arr1)

for j = 1 to 2

debug.print arr2(i, j)

next j

next i

end sub

一維陣列字串2 最長有效括號

有乙個只包含 的字串,找出其中最長的有效的括號子串。利用棧,我們遇到 的時候將它的下標放入棧中,遇到 時先將棧頂元素彈出 也就是它的左括號 如果此時棧中沒有元素,則說明此時之前的所有括號都被分配完,這就是最後乙個匹配的有效右括號,將它的座標放入棧中。如果此時棧不為空,將res更新為以此時右括號結尾的...

陣列與字串四(例子 使用(2))

如題 給定兩個字串,判斷它們是否是彼此可置換的。分析 1 兩個字串的長度不同,必定不能置換 2 判斷是否可以置換,即找到兩個字串的共同點,可以通過某種對映,使得所有置換得到相同的結果。3 如果兩個字串經過雜湊對映後得到的雜湊表不同的話,必定不能置換。bool ispermutation string...

二維陣列 字串 迴圈的處理

小遊戲 1 字串的比較 include if strcmp char1,char2 0 兩個字串相等 strcpy char1,char2 char2賦值給char1兩字串交換2 二維陣列的迴圈輸出 include int main int i,j for i 0 i 5 i return 0 3 ...