UC知道急求会编程~vb
来源：百度知道 编辑：UC知道 时间：2024/09/20 09:45:04
编写函数实现字符串的匹配功能，即字符串查找。
字符串的匹配通常两种结果：匹配成功和失败。匹配成功时可以得到所有出现的位置。例如：字符串a为“ABACABABC”,字符串b为“AB”，字符串b在字符串a中出现的位置为1，5和7。匹配不成功时，能得到匹配不成功的提示，保存文件名为test2。（
字符串的匹配通常两种结果：匹配成功和失败。匹配成功时可以得到所有出现的位置。例如：字符串a为“ABACABABC”,字符串b为“AB”，字符串b在字符串a中出现的位置为1，5和7。匹配不成功时，能得到匹配不成功的提示，保存文件名为test2。（
这个函数可以实现你的功能。参数Str1是原字符串（例如"ABACABABC"），Str2是要匹配字符串(例如"AB")返回值是位置（例如"1,5,7"）.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function MyStr(str1 As String, str2 As String)
Dim p As Long, v
p = InStr(1, str1, str2)
If p = 0 Then MyStr = "匹配不成功": Exit Function
ReDim v(0)
v(0) = p
Do
p = InStr(v(UBound(v)) + 1, str1, str2)
If p = 0 Then Exit Do
ReDim Preserve v(UBound(v) + 1)
v(UBound(v)) = p
Loop
MyStr = Join(v, ",")
End Function
'以下是调试程序。
Private Sub Command1_Click()
MsgBox MyStr("ABACABABC", "AB")
End Sub
if instr(a,b)=0 then
msgbox "不匹配"
open test2 for output as #1
print#1,a
close#1
end if
Option Explicit
Private Sub Command1_Click()
Dim a, b As String
Dim p As Integer
a = "ABACABABC"
b = "AB"
p = 0
p = InStr(p + 1, a, b)
If p