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

fanion

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

如:字符有可能是这样: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-

      也有可能是这样：36      37     38       39      40     41

现在我想要的是分别截取4 4- 5 5-等为一个字符存到一个数组或变量里面，也是就说不要空格的每一个字符作为一个值。   

一点通

提示不是很清楚,试下用replace()处理

fanion

这个函数不行啊？我是想把4截取出来放到变量1，4-截出来放到变量2啊？以此类推。

Benjamin_luk

如果每串字符之间的间隔为2空格的话, 可以按下面的方法进行

Function GetStr(L As Integer)
Dim str, str1, I As Integer, J As Integer, rs(99)
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(str, "  ", ",")) & ","

For I = 1 To Len(str)
If Mid(str, I, 1) = "," Then
J = J + 1
rs(J) = I
End If
Next I
I = 1

If L > 1 And L <= J Then
GetStr = Mid(str, rs(L - 1) + 1, rs(L) - rs(L - 1) - 1)
ElseIf L = 1 Then
GetStr = Left(str, rs(L) - 1)
ElseIf L > J Then
MsgBox "超出数据范围"
End If
End Function

'//取得字符串
Function ds()
MsgBox GetStr(2) '2表示第2个字符
End Function

fanion

这种方法也不行.因为空格的间隔数是不定的,

Benjamin_luk

等下再帮你修改一下,

fanion

先谢了,

fan0217

有固定间隔符的字符串,最有效的拆分方法是使用:Split()

fanion

如何做啊?不太懂..

fanion

请继续指点一下..