I have been racking my brain tryign to understand how to compare two string
in vb6. Can someone help?

I have a string E-DRA-SYMB that has to be compared to DRA-SYMB. As long as
string2 is found in string one, I want a return value of true. I tried the
InStr and Like commands but I never get the correct response. What can I do?
How do I truncate the E- from string1 before comparing both strings?

Any help would be greatly appreciated.

Sean Campbell

Hi Sean:
InStr should have worked (I've used it many times).  Be sure the strings
have matched cases (upper case/ lower case).  Also, note that InStr has four
different comparing methods, so you may wish to state "1" in the function to
force a text comparison.

string1=InStr(1,string1,"DRA-SYMB",1)
or
string1=InStr(3,string1,"DRA-SYMB",1)

To truncate the E- use the "Right String"
or "Mid String".  For some reason, I found the "Mid" function to be more
reliable than "Left" or "Right" functions so I recommend it first.

string1=Right(string1,len(string1)-2)
or
string1=Mid(string1,3,len(string1)-2)

I hope this helps:
KAB

Show quoteHide quote

When you use the Mid function to get the right-hand portion of a text
string, you don't need to specify the 3rd argument... the default is to get
the remainder of the text string. So, this is equivalent to the above...

     string1 = Mid(string1, 3)

Rick

Thanks to you and KAB for the tips. I will try them out.

Here a small follow-up thought: could I write a .NET function (dll) that
uses the EndsWith function and then reference it in VB6 to benefit from the
..NET enhancements to VB?

Sean

Show quoteHide quote

Or, write your own EndsWith function in VB6 in a minute or two and save the
hassle of instantly sucking the performance life out of your app and adding
20+ megabytes to your setup package size.

Ken Halter wrote:
Show quoteHide quoteI wouldn't know that dotnet function if it bit me (which AAMOF I'm sure it would)

Yet I'd hope something like this would get pretty close:

Public Function EndsWith(StringCheck As String, StringMatch As String, _
         Optional Compare As VbCompareMethod = vbBinaryCompare)

     EndsWith = (Len(StringCheck) - Len(StringMatch)) _
                  = InStrRev(StringCheck, StringMatch, , Compare) - 1
End Function




    Bob

Or, for VB5 users:

Function EndsWith(Source As String, _
                  Match As String, _
                  Optional Compare As VBA.VbCompareMethod = vbTextCompare) _
                  As Boolean

  EndsWith = Not CBool( _
                    StrComp( _
                       Right$(Source, Len(Match)), _
                       Match, _
                       Compare _
                    ) _
                 )
End Function


LFS

Text files
Using timers
Inconsistent fso result.
Right Click on a file List box
Help using <flags>
Algorthim
VB 6 custom Install & Uninstall
Shell launch with multiple files
How can i output data between 2 strings to another file
Mouse Pointer