’1.不使用数组
Function RightStr(inputstr, insplit, I) As String '字符串,分隔符,字段所在节
Dim z, l, k As Integer
Dim x As String
inputstr = inputstr & insplit
k = Len(inputstr)
For m = 1 To k
x = Mid(inputstr, m, 1)
If x = insplit Then
z = z + 1
If z = I - 1 Then 'MsgBox l, , "开始位置l"
l = m
ElseIf z = I Then 'MsgBox k, , "结束位置k"
k = m
End If
End If
Next
RightStr = Mid(inputstr, l + 1, k - l - 1)
End Function
‘2. 利用数组的方法
Function RightStr2(inputstr, insplit, I) As String
'字符串,分隔符,字段所在节
Dim z(100), f(100)
z(100) = f(100)
m = InStr(inputstr, insplit)
Do While m > 0
xstr = Left(inputstr, m - 1)
k = k + 1
z(k) = xstr
inputstr = Mid(inputstr, m + 1)
m = InStr(inputstr, insplit)
Loop
RightStr2 = z(I)
End Function
Private Sub Command8_Click()
On Error GoTo err:
Dim inputs, ins As String
Dim pos As Integer
inputs = Me.inputs
ins = Me.ins
pos = Me.pos
' Me.outputstr = RightStr(inputs, ins, pos)
Me.outputstr = RightStr2(inputs, ins, pos)
err:
End Sub
附 件:
点击下载此附件