rreyCompare Gaev Keeka Desktop False 800 600 False False False WebApp False .goodCompare { color: green; } .badCompare { color: red; } en [AndroidOS,iOS,WindowsPhoneOS] normal True True False True True False False True False False TopCenterApp

... [Trace] is for testing only
SetVar "[Trace]" ""

... result html to be returned by subroutine
SetVar [ResultInHTML] ""

... string lengths and corresponding max values for loop/endloop
StrLen "[String1]" [String1Len]
Math "[String1Len] - 1" 0 [LoopMax1]

StrLen "[String2]" [String2Len]
Math "[String2Len] - 1" 0 [LoopMax2]

... compare lengths to determine maximum loop count
If [LoopMax1] >= [LoopMax2]
   SetVar "[LoopMax]" "[LoopMax1]"
Else
   SetVar "[LoopMax]" "[LoopMax2]"
EndIf

Loop 0 [LoopMax] [thisCharPosition]
     If "[thisCharPosition]" ">" "[LoopMax1]"
        ... string1 is shorter than this position
        SetVar "[thisCharString1]" ""
        SetVar "[upperCharString1]" ""
     Else
        SubStr "[String1]" [thisCharPosition] 1 [thisCharString1]
        StrUpper "[thisCharString1]" [upperCharString1]
     EndIf

     If "[thisCharPosition]" ">" "[LoopMax2]"
        ... string2 is shorter than this position
        SetVar "[thisCharString2]" ""
        SetVar "[upperCharString2]" ""
     Else
        SubStr "[String2]" [thisCharPosition] 1 [thisCharString2]
        StrUpper "[thisCharString2]" [upperCharString2]
     EndIf

     ... compare based on variable [Case]
     If "[Case]" "==" "CaseMatters"
        ... b is not same as B; compare original data
        If [thisCharString1] === [thisCharString2]
           SetVar "[CharCompared]" "Yes"
        Else
           SetVar "[CharCompared]" "No"
        EndIf
     Else
         ... b is same as B; compare uppercased characters
        If [upperCharString1] === [upperCharString2]
           SetVar "[CharCompared]" "Yes"
        Else
           SetVar "[CharCompared]" "No"
        EndIf
     EndIf

     ... now act on comparison
     If [CharCompared] === "Yes"
        SetVar [ResultInHTML] "[ResultInHTML]<span class='goodCompare'>[ThisCharString2]</span>"
     Else
         If [thisCharString2] == ""
            ... String2 is shorter
            SetVar [ResultInHTML] "[ResultInHTML]<span class='badCompare'>?</span>"
         Else
            ... no match for this character
            SetVar [ResultInHTML] "[ResultInHTML]<span class='badCompare'>[ThisCharString2]</span>"
         EndIf
     EndIf

     ... trace the logic; for testing only
     SetVar "[thisTrace]" "[thisCharPosition] ... [CharCompared]<br/>"
     SetVar "[thisTrace]" "[thisTrace][thisCharString1] ... [thisCharString2]<br/>"
     ... accumulate trace
     SetVar "[Trace]" "[Trace][thisTrace]<br/>"
EndLoop
... for testing only
... AlertBox "Trace" "[Trace]" ""

[String1]|STRING|First of 2 strings to compare;[String2]|STRING|Second of 2 strings to compare;[Case]|STRING|Type CaseMatters if b is not same as B;[ResultInHTML]|VARNAME|Show Differences in HTML 200px 64px 512px 40px [MasterText] The quick brown fox 200px 112px 160px 40px Go to UserText Page ...AlertBox "MasterText" "[MasterText]" "" GotoPage "UserTextPage" 200px 32px 160px 24px Enter Master Text below 120px 88px 584px 56px [UserText] 120px 56px 144px 24px Enter User Text below 120px 160px 208px 40px Compare this to Master Text ... use this if B is NOT same as b ...ShowTextDifferences "[MasterText]" "[UserText]" "CaseMatters" "[CompareResultHTML]" ... use this if B IS same as b ShowTextDifferences "[MasterText]" "[UserText]" "" "[CompareResultHTML]" ... now populate object with resulting HTML SetObjectHTML "CompareResultHTML" "Result of comparison ...<br/>[CompareResultHTML]" 120px 240px 584px 56px 0px 0px 800px 600px False