VBA如何一句话把字符串变为数组？

chenlifeng123

把数组变成字符串，只要一句话：replace(split(Arr)," ","")就把数组Arr变成了字符串。
   请问它的逆运算也能一句话处理吗？（不要循环）

fxl447098457

看不懂你写的啥。数组变成字符串是用join吧。还是要一维的才可以。。你用起了split..

huang1314wei

把字符串变成数组还是用split啊

活在理想的世界

join。。。。。。

lipton

所谓的一句代码，内部还是要循环的只是你看不见而已，嵌套的函数调用不见的会比一句一句的好。

chenlifeng123

fxl447098457 发表于 2018-6-23 17:36
看不懂你写的啥。数组变成字符串是用join吧。还是要一维的才可以。。你用起了split..

比如字符串：“1234567”，中间无任何分隔符号，用split用不上啊。

一把小刀闯天下

'可以啊，只是没有什么意思罢了

Option Explicit

Sub test()
  Dim s, t, i
  s = "1234567"
  Debug.Print s
  For i = 1 To Len(s)
    t = t & Mid(s, i, 1) & Space(1)
  Next
  s = Trim(t)
  Debug.Print s
  s = Split(s)
  Debug.Print UBound(s) + 1
  Debug.Print Join(s)
End Sub

chenlifeng123

一把小刀闯天下 发表于 2018-6-24 14:39
'可以啊，只是没有什么意思罢了

Option Explicit

感谢老师的耐心指点。您说的方法我也知道，所以才在一楼发问，不要能循环。
原以为由数组到字符，一个函数搞定，其逆运算也可用一个函数来处理。
没想到不但没有，而且还不一定实用和高效。

非常感谢各位老师的指点~！

chenlifeng123

一把小刀闯天下 发表于 2018-6-24 14:39
'可以啊，只是没有什么意思罢了

Option Explicit

我有另一种把字符串变为数组的方法，不仅适用于普通的字符串，即使是SimSun-ExtB字体，或是在程序代码框显示为问号的字体，也可：

1. Function StringToArr(Str1)
   
2.     '字符串变为数组
   
3.     Dim I1%, A1$
   
4.     For I1 = 1 To Len(Str1)
   
5.         B1 = Mid(Str1, I1, 1)
   
6.         If Asc(B1) = 63 And AscW(B1) > -20000 And (AscW(B1) < 0 And AscW(B1) < -6000) Then
   
7.             A1 = A1 & " " & Mid(Str1, I1, 2)
   
8.             I1 = I1 + 1
   
9.         Else
   
10.             A1 = A1 & " " & Mid(Str1, I1, 1)
    
11.         End If
    
12.     Next
    
13.     StringToArr = Split(Mid(A1, 2), " ")
    
14. End Function

复制代码

香川群子

一把小刀闯天下 发表于 2018-6-24 14:39
'可以啊，只是没有什么意思罢了

Option Explicit

一句代码把字符串转为数组：

1. Sub test()
   
2.     Dim b() As Byte ', s$, t$
   
3.    
   
4.     s = "123abc都可以" '任意文本字符串
   
5.    
   
6.     b = s '就这一句代码，可以直接把字符串转为unicode码的字节数组
   
7.    
   
8.    
   
9.     '以下是从该字节数组中提取返回单个字符的方法
   
10.     For i = 0 To UBound(b) Step 2 '遍历字节数组
    
11.         t = ChrW(b(i) + b(i + 1) * CLng(256)) '返回单个字符
    
12.         MsgBox t
    
13.     Next
    
14.    
    
15. End Sub

复制代码