vba中怎么提取每一个字符?
发布网友
发布时间：2022-04-29 22:18
共3个回答
热心网友
时间：2022-06-24 08:51
字符由中文及英文构成，在AutoCAD里面，中文默认为两个字窜符构成，所以要分析。
如果不分析的话，中文拆开后就是乱码了。
怎么分析是中文，很简单，利用 ASCII表来解决，把字符转换为数值，如果数值大于127，那么是中文。
;;文字内容拆开;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加载了，这个是子程序，输入文字内容，就可以得到由字符构成的表
热心网友
时间：2022-06-24 08:51
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
帮人帮到底了，用这个可以处理文字。
热心网友
时间：2022-06-24 08:52
