[RESOLVED] comparing two strings

[jelopy15]

how can i compare two strings then it will output me the difference,, i cant figure out how to make it i googled it and cant findy any answer for my question..

its like i have two strings
x = "abc"
y = "abcd"

then what im trying to do is im going to compare them,,then give me an output of "d" which is the difference of the two stings..


im stuck with this kind of code in my mind i dont know how to make it.

Private Sub Form_Load()
Dim x As String
Dim y As String

x = "aa"
y = "aab"




If x = y Then
label1.Caption = "equal"

Else
label1.Caption = "not equal"
End If


End Sub

[HanneSThEGreaT]

You could use the StrComp function

[DataMiser]

You could loop through the strings and compare each character 1 at a time.

In your else block above something like

For I = 1 to len(x)
    If mid(x,I,1)<> Mid(y,I,1) then
        'character in this postion does not match
    end if
Next

Edit: or the strComp function

[jelopy15]

how will it output the diffrnce in the string? i mean i would like to output "d" which is the difference of string x and y .

and how to use the strComp?

thanks for the help

[DataMiser]

I would suggest that you look up strcomp in your online help or google it.

[HanneSThEGreaT]

Did you at least attempt to google strComp????? Seriously dude get with the program!

//DM - you were faster this time

[DataMiser]

btw the loop example I posted assumes both strings have the same number of characters. More code is needed for strings that are not the same length.

The loop method will allow you full control over the test and the output.

[jelopy15]

ive tried this one but then i dont know how can i output its difference..
sorry guys new to vb.

Private Sub Form_Load()
Dim x As String
Dim y As String

x = "aaa"
y = "aab"


If StrComp(x, y, vbTextCompare) = 0 Then
MsgBox "equal"
Else
MsgBox "notequal"
End If

[dglienna]

If the code is NOT EQUAL, then calculate the LENGTH of each string.

Then, use this code, that DM wrote:

For I = 1 to len(x) '    Use LengthOfA or LengthOfB instead of Len(x)
    If mid(x,I,1)<> Mid(y,I,1) then
        'character in this postion does not match  '  Print the character using ;
                                                                           ' or build a new string
    end if
' Print the differences string, or else a BLANK LINE to finish the words.
Next

[jelopy15]

my problem is how can i output the differnce string by using DM's code.

[DataMiser]

Within the if section you would add code to output the characters as you wish
Example:

If mid(x,I,1)<> Mid(y,I,1) then
        'character in this postion does not match 
        Label1.caption=label1.caption & mid(y,I,1)                                                                           
    end if

Again the above is a simple code which only handles strings that are the same lenght, you will need additional code to handle strings of unequal lenght.

Everything you need is there, Len() For Next Loop MID()

You will learn a lot more if you play with it a bit and try to figure it out from there.

[jelopy15]

thanks for all the help guys,,i got it already..thanks you so much..problem solved.