如何提取字符

nagee

如何对一个字符串进行取值,如DFSDF12354DFK 中,依据顺提取第一个到最后一个字母与数字,每次提取一个!

海狸先生

什么意思？？

nagee

版主!你好!我是要提取字符!如DFGH123456789中,提取第一个字符,D,第二个字符为F,以此类推,把所有的字符全部分离出来!

zyp

    Dim i As Integer, MyStr As String

    MyStr = "DFGH123456789"

    For i = 1 To Len(MyStr)

        MsgBox Mid(MyStr, i, 1)

    Next i

bpchan

学习

todaynew

zyp 发表于 2005-6-4 17:52
Dim i As Integer, MyStr As String
    MyStr = "DFGH123456789"
    For i = 1 To Len(MyStr)

可能这样更好吧？
Function Astr(str As String) As Variant
功能: 返回分解字符串后的数组
Dim A()
ReDim A(Len(str) - 1)
Dim i As Integer
For i = 0 To UBound(A)
    A(i) = Mid(str, i, 1)
Next i
Astr = A
End Function