Comparing two strings with various parameters and get Percentage of matching

[mepalival]

I read various threads and theories regarding two string matching and convert matching value into Percentage.

there are some algorithms to calculate similarity like Lowenstein, but sometimes you need more then that

So, I written this code, and you will use it at your convenience

script matches two strings with word by word OR character by character

also match by case OR non case format

you can also find difference with (100 – Result)

If any suggestion then please write here

 

expandcollapse popup

#include <Array.au3>
#include <File.au3>
#include <Math.au3>
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>

$sStr01 = "My string Software v1.0"
$sStr02 = "My String Software v1.1"

ConsoleWrite("Standard: " & _StringMatchPercent($sStr01, $sStr02) & @CRLF)      ; Return Standard: 95.65
ConsoleWrite("Case ON (Char lvl): " & _StringMatchPercent($sStr01, $sStr02, 1, 0) & @CRLF)      ; Return "Case ON (Char lvl): 91.3"
ConsoleWrite("Case ON (word lvl): " & _StringMatchPercent($sStr01, $sStr02, 1, 1) & @CRLF)      ; Return "Case ON (word lvl): 50"
ConsoleWrite("Case Off (Char lvl): " & _StringMatchPercent($sStr01, $sStr02, 0, 0) & @CRLF)     ; Return "Case Off (Char lvl): 95.65"
ConsoleWrite("Case Off (word lvl): " & _StringMatchPercent($sStr01, $sStr02, 0, 1) & @CRLF)     ; Return "Case Off (word lvl): 75"


Func _StringMatchPercent($FirstString = "", $SecondString = "", $iCaseSense = 0, $iMatchByWord = 0)
;~ ($iCaseSense : [0 = not case sensitive [, 1 = case sensitive]])
;~ $iSplitByWord : [0 = Match Character by Character [, 1 = Match word by Word]]
;~ ### Check/Set function header parameters
    Local $sMatchBy = ($iMatchByWord = 0) ? "" : " "
    Local $inCaseSense = ($iCaseSense = 0) ? 0 : 1
    If $FirstString = "" Or $SecondString = "" Then Return "0"

    Local $aFirstArray = StringSplit($FirstString, $sMatchBy, 2)
    _ArraySort($aFirstArray) ; Sort Array to Ascending Order
;~ _ArrayDisplay($aFirstArray,"Show First Array")
    Local $aSecondArray = StringSplit($SecondString, $sMatchBy, 2)
    _ArraySort($aSecondArray) ; Sort Array to Ascending Order
;~ _ArrayDisplay($aSecondArray,"Show Second Array")

    Local $inSL = 0 ;Second Level matching starting Point
    Local $iMatchCount = 0
    Local $sMatchArg = 0
    ; Now Matching Every First Array Element to Second Array Element
    For $iFL = 0 To UBound($aFirstArray) - 1 ; $iPL = Represent First Array Position
        For $iSL = $inSL To UBound($aSecondArray) - 1 ; $iSL = Second Array Position $inSL = Second Array Checking Start from
            If StringCompare($aFirstArray[$iFL], $aSecondArray[$iSL], $inCaseSense) = 0 Then ; If Both Element Matched
                $iMatchCount += 1 ; Match Count get +1
                $inSL = $iSL + 1 ; Set New Starting Position for Second Array
                ExitLoop ; Exit Loop for checking next element
            EndIf
        Next
    Next
    Local $iMax = _Max(UBound($aFirstArray), UBound($aSecondArray)) ; Finding Large Array for Calculation
    Return Round((($iMatchCount <> 0) ? (($iMatchCount / $iMax) * 100) : 0), 2)
EndFunc

 

[Jos]

1 hour ago, mepalival said:

If any suggestion then please write here

Yes: Do not cross post and resurrect old threads to point here! 

All extra posts zapped.

Edited Tuesday at 09:28 AM by Jos

[AspirinJunkie]

On 6/25/2024 at 10:10 AM, mepalival said:

there are some algorithms to calculate similarity like Lowenstein, but sometimes you need more then that

Just in case you haven't stumbled across this yet:

 

[jchd]

Searching the forum, you could have found this as well: