[已解决]求助数组问题

15962670623

问题我有一个数组变量arr 只有1列格式为“张三/1，李四/1，张三/2”形式，我想吧arr转到brr数组中吧”/1“全部删掉，数组变量brr结果为“张三，李四，张三”。

最佳答案

月排行榜 / 总排行榜

hoogle

2013-1-30 13:12

1. 
   
2. Sub hoogle()
   
3.     Dim arr, i, brr  '定义变量
   
4.     arr = Array("张三/1", "李四/2", "王五/3")  '给ARR数组赋值
   
5.     brr = arr        'arr数值值赋值给brr
   
6.     For i = LBound(arr) To UBound(arr)   '从最小下标循环到最大下标
   
7.         brr(i) = Split(arr(i), "/")(0)  '用“/”分割arr(i),第一个元素（下标为0）赋值给brr(i)
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

直接做字符串处理。

hoogle

要用循环
for i= lbound(arr)  to ubound(arr)
  left(arr(i),2)=brr(i)
next

hwc2ycy

1.查找法，查找到/的位置，然后从/开始的位置全替换掉
2.截取法，查找到/的位置，截取/后所在位置的前面一段字符。

hwc2ycy

1. Sub test()
   
2.     Dim arr, arrb, i&
   
3.     arr = Array("张三/1", "李四/2", "王五/3")
   
4.     arrb = arr
   
5.     For i = LBound(arr) To UBound(arr)
   
6.         If arr(i) Like "*/#" Then
   
7.             arrb(i) = Mid(arr(i), 1, InStr(arr(i), "/") - 1)
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

hwc2ycy

1. Sub 正则法()
   
2.     Dim arr, arrb, i&
   
3.     Dim reg As Object
   
4.     arr = Array("张三/1", "李四/2", "王五/3")
   
5.     arrb = arr
   
6.     Set reg = CreateObject("VBScript.regExp")
   
7.     With reg
   
8.         .Global = True
   
9.         .Pattern = "\/\d+"
   
10.         For i = LBound(arr) To UBound(arr)
    
11.             If .test(arr(i)) Then
    
12.                 arrb(i) = .Replace(arr(i), "")
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     Set reg = Nothing
    
17. End Sub

复制代码

hoogle

1. 
   
2. Sub hoogle()
   
3.     Dim arr, i, brr  '定义变量
   
4.     arr = Array("张三/1", "李四/2", "王五/3")  '给ARR数组赋值
   
5.     brr = arr        'arr数值值赋值给brr
   
6.     For i = LBound(arr) To UBound(arr)   '从最小下标循环到最大下标
   
7.         brr(i) = Split(arr(i), "/")(0)  '用“/”分割arr(i),第一个元素（下标为0）赋值给brr(i)
   
8.     Next
   
9. End Sub
   

复制代码

liuguansky

filter函数不试试？

ybchxj2010

不用循环也可以办到的，以下代码供参考！

1. Sub test1()
   
2.   Dim Arr, Brr, Str$
   
3.   Arr = Array("张三/1", "李四/2", "王五/3")
   
4.    
   
5.   With CreateObject("VBScript.regExp")
   
6.     .Global = True
   
7.     .Pattern = "\/\d+"
   
8.     Str = .Replace(Join(Arr, ""), "@")
   
9.     Brr = Split(Left(Str, Len(Str) - 1), "@")
   
10.   End With
    
11.   
    
12. End Sub

复制代码