if instr (strl,"(2002/6/6)")<>0 then
msgbox "找到了"
end if
msgbox "找到了"
end if
解决方案 »
- VB控制摄像头分辨率
- 动态库对象创建失败,不可以调用动态库函数
- ***** 再次发现 CSDN 论坛两大问题 *****
- 关于VB中用createobject启动Excel97时,宏不被自动执行的问题,送100分,急急急急!
- 串口问题(急)
- 为什么选择服务器游标后,datagrid 不能用了?
- 如何在WINDOWS中建立一个可以访问,修改,但不能删除的目录(含目录下的文件0
- 搜索引擎优化中网页描述以及重要内容的优化
- 高手请进:vb中怎样得到当前过程或函数和当前模块、类模块的名称。请给出代码。
- junglerover(灌木丛)
- 急!!!!!!我看到一个ado操作excel表的一个例子!!!!
- lingyu2001来领分
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1) ' 从第一个字符开使,以二进制比较的方式找起。返回值为 9(大写 P)。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)' 缺省的比对方式为二进制比较(最后一个参数可省略)。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。MyPos = Instr(1, SearchString, "W") ' 返回 0。