请教有关截取字符的问题?

Benjamin_luk

是不是保存到两维数组里?[em03]

Benjamin_luk

试一下,看看行不行了.(主要是当中有字符串,有点难度呀)
[em01

[此贴子已经被作者于2006-4-11 9:47:40编辑过]

fanion

不是你保存到一维数组就好了。你不用管型式二的字串，因为你的方法这两种型式都能处理了。

Benjamin_luk

早说就好了,修改如下:

Function GetStar()
Dim str, str1, I As Integer, J As Integer, rs(99), K As Integer
Dim ds(99, 99) As Variant, H As Integer, AB(99) As Variant
str = " 4     4-     5  5-  6  6-  7  7-  8  8-  9  9-  10  10-  11  11-  12  12-  13  13-  1  1-  2  2-  3  3-"
str = (Replace(Trim(str), " ", ","))
''Replace space
Do Until InStr(1, str, ",,", 1) = 0
str = (Replace(str, ",,", ","))
str = str
Loop
str = str & ","
''Get "," position
For I = 1 To Len(str)
If Mid(str, I, 1) = "," Then
J = J + 1
rs(J) = I
End If
Next I
I = 1
''Get string
H = 0
L = 0
If J Mod 2 = 0 Then
For L = 1 To J
AB(L) = (Mid(str, rs(L - 1) + 1, rs(L) - rs(L - 1) - 1))
Next L
'将数据保存到1维数组AB():
'4, 数组引用: ab(1)
'4- 数组引用: ab(2)
End If
MsgBox AB(2)
End Function

fan0217

以下是引用fanion在2006-4-11 8:49:00的发言：


fan0217版主的方法不对啊？当字串变成35      36      37     38      39这种型式就不行了。

还有Benjamin_luk     的AB值我不懂是什么意思，我只要截取出来的每一个字串存到数组就可以了。你的第一种方法是对的，只不过怎么样循环把它存到数组里面啊？

我只针对你的第一种情况写的.

fanion

我要通用的。

Benjamin_luk

[em03]还没解决问题吗？

fanion

解决了.谢了..