Question

vba中怎么提取每一个字符？

如题，如“行为规范”，把他提取为“行”“为”“规”“范”。
我能想到的办法是 ：
Sub 分字符()
For x = 1 To Len(Cells(1, 1))
Cells(1, x + 1) = Mid(Cells(1, 1), x, 1)
Next x
End Sub
用mid 根据长度，一个一个的取，但是这样感觉挺麻烦。

想用split函数，但是字符之间没有任何特定的字符。

所以想问，有没有其他方便的函数或方法？，最好能像split那样一下子就能放到一个数组里。
或者 split 可不可以不根据 特定的字符来分割？

Answer 1

1. 字符由中文及英文构成，在AutoCAD里面，中文默认为两个字窜符构成，所以要分析。

2. 如果不分析的话，中文拆开后就是乱码了。

3. 怎么分析是中文，很简单，利用 ASCII表来解决，把字符转换为数值，如果数值大于127，那么是中文。

4. ;;文字内容拆开;AutoCAD程序
   (defun lsp20150926 (&_#ac1 / &_#ac1 &_#ac2 &_#n1 &_#ss2)
    (setq &_#ss2 '() &_#ac1 (strcase &_#ac1))
    (while (/= &_#ac1 "")
     (setq &_#ac2 (substr &_#ac1 1 1) &_#n1 (ascii &_#ac2))
     (if (< &_#n1 128)
      (setq  &_#ac1 (substr &_#ac1 2))
      (progn
       (setq &_#ac2 (substr &_#ac1 1 2) &_#ac1 (substr &_#ac1 3))
      )
     )
     (setq &_#ss2 (cons &_#ac2 &_#ss2))
    );while
    (reverse &_#ss2)
   )
   ;以【.lsp】为后缀命名，Autolisp加载了，这个是子程序，输入文字内容，就可以得到由字符构成的表

Answer 2

Sub bb()
Dim s1, s2 As String
Dim s() As String

s1 = "1234"
s2 = Trim(WorksheetFunction.Text(s1, WorksheetFunction.Rept(" 0", Len(s1))))
s = Split(s2, " ")
End Sub

大致思维是这样的，给每个字符后面加上一个空格，然后再split。例子是数字，改成字符串后，需要修改WorksheetFunction.Rept的第一个参数。就帮到这里了。

还有就是用正则表达式按位插入用于分割字符串的字符，然后再使用split。

追问

嗯，不错，只是不明白 为什么 是 空格0？
rept我知道，目的是变为“ 0 0 0 0”，
但为什么text 可以 把字符替换到0的位置呢？
我试了试把0换成其他的数字就不行。

追答

使用正则的例子如下：

Sub test()

Dim s1, s2 As String
Dim s() As String
Dim regex1 As Object

Set regex1 = CreateObject("VBSCRIPT.REGEXP")
With regex1
.Global = True
End With
s1 = "ABCDEFGHIJK"
s2 = Trim(regex1.Replace(s1, " "))
s = Split(s2)
End Sub

帮人帮到底了，用这个可以处理文字。

Answer 3

用MID函数逐个提取就行