vb中文版中取一个数组的两边的子数组串的函数是什么,类似mid函数的反函数

vb中文版中取一个数组的两边的子数组串的函数是什么,类似mid函数的反函数,在vb中怎么定义的?怎么求出一个串的两边构成子串的?

vb

2个回答

Public Function RevMid(Byval Str As String, Byval iStart as Integer, Byval iEnd as Integer) as String
Dim s1 as String, s2 as String

If iStart > iEnd Then
  '处理参数不对的情况,你可以按你的思路来处理,这里只是简单的返回
    Exit Function
End If
If iStart >1 Then   s1=Left$(Str, iStart - 1)
s2=Mid$(Str, iEnd +1)
RevMid = s1 & s2

End Function
或者象下面这样:
Public Function RevMid(Byval Str As String, Byval iStart As Integer, Byval iLength As Integer) As String
RevMid=Replace$(iStart, Str, Mid$(Str, iStart, iLength), "", 1)
End Function

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐