Visual Basic's 'LIKE' Function in VBScript?
Salty
Is it true that VBScript has no support for the Like function
found in Visual Basic (you know the one that allows you to compare a string
agains wildcards like in dos [*, ?]) I've looked long and hard and have been
unable to find any mention of it in reference to VBScript.
Does anyone have a code to provide VBScript with this same functionality
(and would be willing to provide me a copy)
It would be greatly appreciated.
Salty.
Ps. It's been one of "those" days so if I'm completely of track here and
VBScript does support the Like function feel free to vent some of your anger
on me. :)
Nathan Ernst
in VBS. As to provide the same functionality, my brain is
also fried this morning, so hopefully someone else may
help...
Nathan Ernst
>.
>
Peter W Johnson
SQLQuery = "SELECT * FROM CUSTID WHERE CUSTID.FirstName like '%" & Forename
& "%'"
Peter
"Salty" <salt...@newmail.net> wrote in message
news:OaDhKBaIBHA.1948@tkmsftngp03...
DogWalker
matchers.
"Salty" <salt...@newmail.net> wrote in message
news:OaDhKBaIBHA.1948@tkmsftngp03...
nicholas
On Fri, 10 Aug 2001 23:27:53 +1000, "Salty" <salt...@newmail.net>
wrote:
Jim Teeuwen
nice try though :-)
----------------------------
Jim Teeuwen
www.defiance.nl
ma...@defiance.nl
---------------------------
"Peter W Johnson" <peter.w...@cwsthelena.sh> wrote in message
news:uxnty2aIBHA.1256@tkmsftngp05...
Nick Osdale-Popa
Esposito. It can be downloaded directly from the Wrox website. IF the
practice of posting this code is discouraged, please let me know, I don't
want to be blamed for plagarism. [at least the reference is sited and I'm
not posting it as my own code :-) .]
MsgBox IsLike("config.sys", "c*.*") 'returns true
Function IsLike(strText, match)
Dim i, str, spec, temp, token, nPos
' Turn strings to lower case
str = LCase(strText)
spec = LCase(match)
' Split the various components of the match string
aInput = split(spec, "*") ' "c*.*m" becomes Array("c", ".", "m")
' Walk the array of specification sub-components
i = 0
For Each token In aInput
' The first token plays an important role: the file name must begin
' with a substring identical to the token.
If i = 0 Then
temp = Left(str, Len(token))
' Don't match...
If temp <> token Then
IsLike = False
Exit Function
End If
' Removes the leading substring before next step
str = Right(str, Len(str) - Len(token))
Else
temp = str
' For each asterisk we come accross, we chack that what remains of
' the filename contains the next token of the match string.
nPos = Instr(1, temp, token)
' Don't match...
If nPos = 0 Then
IsLike = False
Exit Function
End If
' Removes the leading substring before next step
str = Right(str, Len(str) - nPos + 1)
End If
i = i + 1
Next
IsLike = True
End Function
"Salty" <salt...@newmail.net> wrote in message
news:OaDhKBaIBHA.1948@tkmsftngp03...
Nick Osdale-Popa
Nick Osdale-Popa
Torgeir Bakken
But posting the same article 3 times <can> get you some blame ;-)
Torgeir
Nick Osdale-Popa
"Torgeir Bakken" <Torgeir.B...@hydro.com> wrote in message
news:3B7999E8...@hydro.com...
