Question

求教按键精灵如何分割字符串

比如把 acfss

分割成a c f s s 单个的字符 求指教

Answer 1

Dim a,b
a = "abcdefg"
c=len(a)
TracePrint c

Dim b(10) //定义的值要大于a串的长度轿答拍
For i=1 to c

b(i) = Mid(a, i, 1)//a为串，i为起举纳始位置闭羡，1表示一个字符
TracePrint b(i) //以数组形式输出
Next