Finding a char in a String, multiple times 1

[whitshea]

I am using vbscript to verify an inputted string. This string is 8 chars long. I need to identify if, within the first four characters, a Z or z is present, and if so, I need to return the location of this Z. Any ideas how I can return the location of all the Z's located in the first 4 spaces? I'd like to do this as elegantly as possible. I'm currently using brut force to accomplish this.

Thanks,
Whitney

 

[MNClimber]

Something like this maybe...

zlocation = instrRev(wholestring,"z",4,vbTextCompare)

This will give you the location of the last "z", case insensitive, within the first four characters.

Or you could use:

zlocation = instr(1,wholestring,"z",vbTextCompare)

And it will give you the first location.
Then maybe:

if zlocation < 4 then
zlocation2 = instr(zlocation,wholestring,&quot;z&quot;,vbTextCompare)
end if

HTH

Mike

 

[JohnYingling]

If it is only four characters, make it easy
Dim blnZ(3) as boolean
For I = 1 to 4
if Lcase$(Mid$(wholestring,I,1) = &quot;z&quot; then blnZ(I-1) = true
Next

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript