VB摘取指定字符

Dim s As String
s = "[12132354554geh45hh]5g45s4h4ha"
s1 = Split(s, "[")
s1 = Split(s1(1), "]")
Print s1(0)

只需要找到 "[" 位置 P1, "]"位置 P2,截取它们之间的字符串 P2-P1-1

dim p1 as integer
dim p2 as integer
dim a as string
a="[12132354554geh45hh]5g45s4h4ha"
p1=instr(a,"[")
p2=instr(a,"]")
print mid(a,p1+1,p2-p1-1)

没测试,不过应该没问题!!

给你一个我使用已久的函数,我在很多程序都用,基本上你可以应用在任何场合
=================================
Public Function MidEx(lpStr As String, Char1 As String, Char2 As String, Optional ClearChars As Boolean = true, Optional Start As Long = 1) As String
On Error Resume Next
Dim a As Long, b As Long
a = InStr(Start, lpStr, Char1) + Len(Char1)
If a > 1 Then
b = InStr(a, lpStr, Char2)
MidEx = Mid(lpStr, a, b - a)
If Not ClearChars Then
MidEx = Char1 & MidEx
MidEx = MidEx & Char2 <