VB 6.0中instr函数的应用
我的想法是把like函数y和instr函数结合起来。
私有子命令1_Click()
a = InStr(string1，" $gprsc ")
如果a & lt& gt那么0
如果Mid(string1，a，34)像“$gprsc，#，？，abcd，####。##.##，efghijk" =那么为真
MsgBox”找到了指定的字符，在第一个“&；a & amp“楚”&；Chr(13)Chr(10)“是”&；Mid(string1，a，34)
其他
MsgBox“未找到”
如果…就会结束
如果…就会结束
末端接头