【方法一】
StrComp(string1, String2, [Compare])
'函数功能:比较字符串string1和string2。
'返回说明:返回整数值:当string1string2时,返回值>0。这种比较是按照字符的字典序进行比较。
【方法二】
Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
'或者用API的lstrcmp也能很快地实现字符串的对比
【方法三】
'By JiaJia 2008-05-30
Private Function MyStrCmp(str1 As String, str2 As String) As String
Dim TmpFor As Long, Log As Long
Dim Len1 As Long, Len2 As Long
If Len1 <> Len2 Then '长度不等直接退出
If Instr(str1, str2) > 0 Or Instr(str2, str1) > 0 Then
MyStrCmp = "长度不同,有匹配字符存在。"
Else
MyStrCmp = "完全不同。"
End If
Exit Function
ElseIf Len1 = Len2 Then
For TmpFor = 1 To Len1
If Mid(str1, TmpFor, 1) <> Mid(str2, TmpFor, 1) Then Log = Log + 1
Next
If Log = 0 Then
MyStrCmp = "长度相同,有 " & Log & " 个字符不同。"
Else
MyStrCmp = "完全相同。"
End If
Exit Function
End If
End Function
分享到:
相关推荐
在vb程序将字符串转为vb代码执行,非原创,收集自网络
VB过滤中文字符串源码 VB过滤中文字符串源码 VB过滤中文字符串源码 VB过滤中文字符串源码 VB过滤中文字符串源码
给需要的朋友吧!这也是应一个朋友的要求写的。
VB中对字符串的处理及其扩展VB技术很实用的源码本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
vb获得字符串中指定后几位字符,这里使用vb Right函数一行代码即可搞定,运行代码如示例图所示,在最左侧文字框中输入任意字符串,程序预设的是获取最右侧的2位字符,单击按钮后即可获取到最左侧字符串的最右边2位...
vb asp中根据符号截取字符串方法 split (",")
在VB中实现将字符串转换成变量名,提供了两种。主要使用Contrl和callbyname ……
加密解密字符串.exe huanyin下载
vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例: If IsDate(Text1) =...
VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换 VB.NET 字符串与二进制间的转换
VB6.0语言,英文字符串转ASCLL编码十六进制字符串源码,做成函数,可以直接调用!!两种方式
vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
用vb生成随机字符串.txt
vb 字符串函数大全 vb 字符串函数大全 vb 字符串函数大全
VB_NET字符串和正则表达式参考手册~希望对大家有帮助
摘要:VB源码,字符处理,字符串分隔,字符串合并 vb字符串分隔与合并的程序实例,可以统计出字符,处理大数据。挺简单的例子,仅供参考。
VB.NET写的字符串压缩函数,使用.NET的Compression写的。
实现易语言DLL与vb6进行字符串交互,
VB常用字符串函数整理 自己整理 希望对大家有所帮助