VB截取指定字符串

2024-12-01 18:30:57

推荐回答（5个）

回答1：

首先left和right里面搭基的4和7肯定是不能加歼枝拿引号的。
想从“—氏搭”做截取可以这样做。
loca=instr(rs.fields(1),"-")
'获取
-
所在的位置
left(rs.fields(1),loca-1)
'
-
之前的内容
right(rs.fields(1),len(rs.fields(1))-loca)
'
-
之后的内容

回答2：

用
Split()
函数差分，再用
Join()
函数合并（也可以直握孝世慎桐接用
&
连接）。
举例：
Dim
S()
as
String
S
=
Split("段肢张某-陕西西安-205房间",
"-")
Debug.Print
S(0)
&
S(2)
'结果是
张某205房间

回答3：

建耐唤一个Command1。
代局亩含码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim s As String
s = "

1111:2233445566

"

Dim i As Integer
i = InStr(1, s, "1111:")
s = Mid(s, i + 5, InStr(i, s, ""桐笑) - i - 5)

MsgBox s
End Sub

回答4：

我胡乱写了一段代码袭桥唯搜，请你参照一下
Dim
aa
As
String
Dim
t
As
Integer
aa
=
"张某-陕西西安-205房间拍山猛"
t
=
InStr(1,
aa,
"-")
MsgBox
Left(aa,
t
-
1)
t
=
InStr(t
+
1,
aa,
"-")
MsgBox
Right(aa,
Len(aa)
-
t)

回答5：

阁下是需要清除html标记，贺尘只保留网页中的文本吧，你可以试一下这个算法；
s=me.text1.text 's中保留网页源码；
private funcation ClsHtml(s as string)
dim t as string
dim c as string
dim k as string
t=""
while(len(s))
c=left(s,1)
s=right(s,len(s)-1)

if c='<' or c='>' then k=c

if k='>' and c<>'<' and c<> '>' then t=t & c

wend

ClsHtml=t '返回结果禅握禅；
end funcation

本函数清除皮绝"<"与">"之间的所有字符串；