如何判别?
在TEXT中有字符串:
1234567/2345678/5645/5896/54565
如何把那些数字以组的方式分出来
"/"其实是分隔符的.
分开后如下:
1234567
2345678
5645
5896
54565
问题点数：20、回复次数：4Top
1 楼cnthinking（e塔）回复于 2002-05-29 15:52:22 得分 4
'GetUnitFromStringLine,返回字符串数组
'参数strLine为源字符串，strSeparetor为分隔符
Public Function GetUnitFromStringLine(ByVal strLine As String, ByVal strSeparator As String) As String()
Dim Units() As String
Dim startPos As Long
Dim endPos As Long
Dim nUnit As Integer
Dim strUnit As String
strLine = VBA.Trim(strLine)
startPos = 1
nUnit = -1
endPos = InStr(endPos + 1, strLine, strSeparator)
Do While Not endPos = 0 Or endPos = startPos
nUnit = nUnit + 1
ReDim Preserve Units(nUnit)
strUnit = VBA.Mid(strLine, startPos, endPos - startPos)
If Not strUnit = "" Then Units(nUnit) = strUnit
startPos = endPos + 1
endPos = InStr(endPos + 1, strLine, strSeparator)
Loop
ReDim Preserve Units(nUnit + 1)
Units(nUnit + 1) = VBA.Right(strLine, Len(strLine) - startPos + 1)
GetUnitFromStringLine = Units
End Function
Top
2 楼little_ice（小冰块）回复于 2002-05-29 16:04:00 得分 8
Dim a, b As String
Dim i As Integer
a = "1234567/2345678/5645/5896/54565"
i = InStr(a, "/")
Do Until i = 0
b = Left(a, i - 1)
a = Mid(a, i + 1, Len(a))
msgbox b
i = InStr(a, "/")
LoopTop
3 楼1825（得之我幸，失之我命.）回复于 2002-05-29 16:05:56 得分 8
Dim i as Integer
Dim a() As String '定义数组
i = 0
a() = Split("123\45\457", "\")
For i = LBound(a) To UBound(a)
MsgBox a(i)
NextTop
4 楼52694（寒鱼啄冰）回复于 2002-05-29 16:09:28 得分 0
ok
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
