中科新闻网match函数用法:VB比较的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/01 12:00:38
请问，如何比较一个字符串里是否包含了另一个字符串，比如说：字符串（1）为“1234567890……”，字符串（2）为“234”，字符串（3）为“789”，因为字符串（1）包含了字符串（2）和（3），所以我想将字符串（2）和（3）显示出来，可以把程序写给我吗？谢谢了
Private Sub Command1_Click()
Dim s1, s2, s3 As String
s1 = "123456789dgdfg"
s2 = "234"
s3 = "789"
bj s1, s2
bj s1, s3
End Sub
Sub bj(ByVal s As String, ByVal sbj As String)
Dim i, j As Integer
Dim t As String
For i = 1 To Len(s)
t = Mid(s, i, 3)
If t = sbj Then Print sbj
Next
End Sub
s1="12345678"
s2="234"
s3="678"
dim s4 as string
if instr(s1,s2) then
s4=s2
end if
if instr(s1,s3) then
s4=s4 & s3
end if
最后把s4的值副给你想输出的地方就可以了
instr的意思是判断第二个参数是否在第一个参数里