Question

VB中在文本中输入一段字符串，怎么分别提取出各个字符给一个数组

eg：文本1中输入abcd，希望得到数组A（3）
A0=A
A1=B
A2=C
A3=D
我的用EXCEL编的VBA
Dim A() As String
Dim i As Integer
Dim ry As String
Dim n As Integer
ry = Range("b1").Value
i = Len(ry)
For n = 0 To i - 1
A(n) = Mid(ry, n, 1)——依照下面那位兄弟的修正~~
Range("b(15+n)").Value = A(n)
Next
目前以下回答测试有的提示 下标越界~~~~~求解~
一直提示下标越界
要么range（b15+n）错误~~不能用~~

Answer 1

Option Explicit
Dim a() As String
Dim n As Integer
Private Sub Command1_Click()
ReDim a(Len(Text1.Text))
For n = 1 To Len(Text1.Text)
a(n) = Mid(Text1.Text, n, 1)
Print a(n)
Next n
End Sub

有问题再找我。

Answer 2

LZ求的是VBA的答案？

选中你输入字符串的单元格，然后运行
Option Explicit

Sub subSplit()
Dim strInput As String
Dim strOutPut() As String
Dim i As Integer
Dim nLen As Integer

strInput = Selection.Text
nLen = Len(strInput)
ReDim strOutPut(nLen - 1) As String
For i = 0 To UBound(strOutPut)
strOutPut(i) = Mid(strInput, i + 1, 1)
Debug.Print strOutPut(i)
Next
End Sub

Answer 3

你读出的文本为 s string
如果你能保证每行都有＝号，下面代码可用，你试一下

dim A() as string
A=split(s,vbcr)
dim i as integer
for i =0 to ubound(A)
a(i)=split(a,"=")(1)
next
'现在的A()就是你要的。

Answer 4

试试我的。。。。。
Dim a$(), i%, ry$
ry = Range("b1").Value
If ry = "" Then Exit Sub
ReDim a(Len(ry) - 1)
For i = 0 To UBound(a)
a(i) = Mid(ry, i + 1, 1)
Range("b" & (15 + i)).Value = a(i)
Next

Answer 5

dim A(3) as string
For i=0 to 3
A(i)=mid(Text1.Text,i+1,1)
Next
这样就可以了

Answer 6

A(n) = Mid(ry, n, n + 1) ==》A（n）=Mid(ry,n,1)
MID(string,start,Len)
string 为字符串
Start为第几个字符开始截取
Len 为截取长度