比较两个字符串是否相似脚本源码

可以用这个脚本做模糊文字数字识别 。

运行环境:分辨率:1440×900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

@兄弟工程师 2009/3/19

Dim lk,Str1,Str2,k,long2,err  
Str1="比克大魔":Str2="比克大魔王":k=1:lk=1  
//k为字符个数偏差数,lk为字符长度偏差数  
Gosub 检查字符串  
If err=1  
    MessageBox "相似"  
Else   
    MessageBox "不相似"  
EndIf   
EndScript   
Sub 检查字符串  
    i=0  
    e=0  
    long2=Abs(Len(Str1)-Len(Str2))  
    While i<=len(Str1) and i<=len(Str2)  
        If Mid(Str1,1,1)<>Mid(Str2,1,1)  
            //切割字符串  
            e=e+1  
        EndIf   
        i=i+1  
    EndWhile   
    If CInt(long2)=<lk and e<=k  
        err=1  
    Else   
        err=0  
    EndIf   
Return

比较两个字符串是否相似脚本源码》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注