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

whupyf 武汉大学 2004-01-01 09:16:52
我有一段程序.
知道了一个字符串.和另一个字符串.
后一字符串是前一个的后面一部分
我想获得这个字符字符串的前面一部分

比如已知"abcdefg123"和"fg123"

怎样才能获的"abcde"这个字符串
...全文
9 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
whupyf 2004-01-01
呵呵.我自己也想出来的.
回的都有分
第一回复的最多
回复
danielinbiti 2004-01-01
Private Sub Command1_Click()
Dim i As String
Dim j As String
i = "abcdefg123"
j = Replace(i, "fg123", "")
Print j
End Sub
回复
笨狗先飞 2004-01-01
str="abcdefg123"
substr="fg123"
left(str,len(str)-len(substr))
按理这样写就是了
回复
Huaraco 2004-01-01
请问,你的意思是最后的几个字符,还是可能是中间的。
如果是中间的,那么就要这样,
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
为什么我要晚一步。
回复
yuzhan 2004-01-01
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 2004-01-01
就是这样,
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 2004-01-01
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
回复
whupyf 2004-01-01
老规矩.自己先顶起.
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告