分拆成单个字符

/db_自贡黄明儒_

'[功能]单个字符
Public Function SingleCharacter1(str As String)
    ' 这种使用方式需要"工具""引用"
    ' 引用Microsoft VBScript Regular Expressions 5.5类库
    'Dim reg As New RegExp
   
    Dim reg As Object, mc As Object
    Dim arr
    Set reg = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "[\\u4E00-\\u9FA5]|[^\\u4E00-\\u9FA5/ ]|[\\s]"
    End With
   Set mc = reg.Execute(str) '对象
   
   '对象转数组
   ReDim arr(Len(str))
   ReDim arr(mc.Count)
   For Each m In mc
    arr(i) = m: i = i + 1
   Next
   SingleCharacter1 = arr
End Function