VB中字符串匹配的多种方式
这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！
1.常用的INStr方法
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
VBA.Strings 的成员
返回在另一字符串中第一次出现某一字符串的位置
判断string1中从start开始的位置第一次出现string2的位置
2.使用正则表达式
在VB中需要引入Library VBScript_RegExp_55
位置在C:\WINDOWS\System32\vbscript.dll\3
Microsoft VBScript Regular Expressions 5.5
当然，你可以直接在项目中引用，使用方法如下：
Dim ResultString As String
Dim myRegExp As RegExp
Dim resultCollection As MatchCollection
Const pattern As String = "^\s*Dim\s+([\w|,|\s]+)(?:\s+As\s+Recordset)"
Public Function executes(SubjectString As String, result As MatchCollection)
Set myRegExp = New RegExp
myRegExp.MultiLine = True
myRegExp.Global = True
myRegExp.pattern = pattern
Set result = myRegExp.Execute(Trim(SubjectString))
End Function
3.第三种是比较特别的方法，是采用if string like [parttern]，即string需要满足parttern中的模式，才会返回true，其具体定义如下：
语法
result = string Like pattern
Like 运算符的语法具有以下几个部分：
部分 描述
result 必需的；任何数值变量。
string 必需的；任何字符串表达式。
pattern 必需的；任何字符串表达式，遵循“说明”中的模式匹配约定。
说明
如果 string 与 pattern 匹配，则 result 为
相关文档：
转自：http://tieba.baidu.com/f?kz=139765011
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression) ......
让VB菜鸟最快写出自己的外挂.通杀所有游戏.呵呵.
这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~
键盘是我们使用计算机的一个很重要的输入设备了，即使在鼠标大行其道的今天，很多程序依然离不开键盘来操作。但是 ......
这里是 利用replace 函数 在vb中实现 消除空行的一个程序
这里的容器是richtext
可以扩充到其他容器 和其他字符 用于编写查找替换功能
'--------------------------------------------------------------------------------------------
' 消除空行 , 利用instr函数, 搜索文本里的vbcrlf(回车 + 换行), 两个回车替换 ......
VB创建ACCESS数据库全解 动态创建数据库、创建表，创建记录 ADO、ADOX2009年04月20日 星期一 10:17摘要： 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法，这些方法在开发VB数据库应用程序中很有实用价值，它可以提高数据库程序灵活性。
关键词：数据库、数据表、ADO、ADOX
1: 问题的提出
� ......
今天想要做类似金山词霸屏幕取词的功能，在网上找了一些资料，发现都很复杂。既然金山词霸已经实
现了，借用之:
金山词霸中2005中带了一个XdictGrb.dll，其实是一个COM组件，并且实现了一个取词的插件框架。
其中的有以下内容：
1 接口
1.1 GrabProxy 取词代理对象
Function AdviseGrab(XDictGrabSink As IXDictGra ......
