问一个字符串的问题.(在线给分)

[whupyf]

我有一段程序.
知道了一个字符串.和另一个字符串.
后一字符串是前一个的后面一部分
我想获得这个字符字符串的前面一部分

比如已知"abcdefg123"和"fg123"

怎样才能获的"abcde"这个字符串

[whupyf]

老规矩.自己先顶起.

[yuzhan]

Private Sub CommandButton1_Click()
Dim a As Integer, b As String
a = InStr(1, "abcd1234567", "23")
b = Left("abcd123", a - 1)
TextBox1.Text = b
End Sub

[Huaraco]

就是这样，
Dim a As String
Dim b As String
a = " abcdefg123"
b = "fg123"
Print Len(b)
cc = Left(a, Len(a) - Len(b))
Print cc

[yuzhan]

sorry,上回帖有误。

Private Sub CommandButton1_Click()
Dim a As Integer, b As String
a = InStr(1, "abcdefg123", "fg123")
b = Left("abcdefg123", a - 1)
TextBox1.Text = b
End Sub

[Huaraco]

请问，你的意思是最后的几个字符，还是可能是中间的。
如果是中间的，那么就要这样，
Dim a As String
Dim b As String
a = " abcdfg123efg123"
b = "fg123"
c = 0
Do
dd = c
c = InStr(c + 1, a, b)
Loop Until c = 0
cc = Left(a, dd - 1)
Print cc
为什么我要晚一步。

[笨狗先飞]

str="abcdefg123"
substr="fg123"
left(str,len(str)-len(substr))
按理这样写就是了

[danielinbiti]

Private Sub Command1_Click()
Dim i As String
Dim j As String
i = "abcdefg123"
j = Replace(i, "fg123", "")
Print j
End Sub

[whupyf]

呵呵.我自己也想出来的.
回的都有分
第一回复的最多