难题：按每个字符为一个元素，分割字符串到数组。

coby001

按每个字符为一个元素，分割字符串到数组。
其实也不是难题，用一个循环就解决了。

1. Sub 分割字串()
   
2.     Const s = "1234567890abcd"
   
3.     Dim i&, sArr$()
   
4.     ReDim sArr(1 To Len(s))
   
5.     For i = 1 To Len(s)
   
6.         sArr(i) = Mid$(s, i, 1)
   
7.     Next
   
8.     Debug.Print sArr(1)
   
9. End Sub
   

复制代码

但是，此循环法总觉得啰嗦，不太简洁。看 javascript 的：

var sArr
sArr = "1234567890abcd".split('')  //一句就搞定了。
alert(sArr[0])

再看看VBA的split()
sArr = Split("1234567890abcd","")
只能得到 原来的字符串，没有分割。

好了，问题来了：
VBA 有没有简洁的办法，不用循环，实现：按每个字符为一个元素，分割字符串到数组？？？


。10楼，Byte数组 法
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1167558&pid=7958925

18楼，js脚本对象法
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1167558&pid=7958990

-----

zmnyu

循环是编程的亮点，VBA不用循环，干嘛不直接用函数或基础操作呀？

coby001

zmnyu 发表于 2014-11-22 14:05
循环是编程的亮点，VBA不用循环，干嘛不直接用函数或基础操作呀？

我搜了论坛中的相关帖子，没发现有人实现此功能。
你有办法吗？

sevenstar

如下面的例子，以前见有人这样用过，不需要循环赋值。但貌似仅限于数字和字母这些单字节字符！

Sub test()
Dim arr() As Byte, i%
s = "1234567890abcd"
arr() = s
For i = 0 To UBound(arr) Step 2
    Debug.Print Chr(arr(i))
Next
End Sub

coby001

sevenstar 发表于 2014-11-22 14:49
如下面的例子，以前见有人这样用过，不需要循环赋值。但貌似仅限于数字和字母这些单字节字符！

Sub te ...

不错，是个好办法。
可惜有局限，如果是中文怎么办？

bluexuemei

还是用js和ruby吧。。。

coby001

bluexuemei 发表于 2014-11-22 15:07
还是用js和ruby吧。。。

js 也 想过，还是有缺点。
你有例子吗？ js 的。

bluexuemei

什么缺点？用VBA调用JS脚本不就可以了

coby001

bluexuemei 发表于 2014-11-22 15:14
什么缺点？用VBA调用JS脚本不就可以了

你做一个例子看看就知道了，不能直接引用单个元素。

coby001

Sub test()
    Dim arr() As Byte, i%
    Const s = "1234567890abcd中"
    arr() = s
    For i = 0 To UBound(arr) Step 2
        ' Debug.Print ChrW(arr(i + 1) * &H100 + arr(i))
       ' Debug.Print ChrW((arr(i + 1) And &HFFFF&) * &H100 + arr(i))
        Debug.Print ChrW(CLng(arr(i + 1)) * &H100 + arr(i))
    Next
End Sub


哈哈，能显示中文了