unable to search character in a given string using VBScript?

Question

I am trying to find whether the character is present in a given string or not but unable to search and increment value though it is present

  Dim testchar,noOfSpecialChar
   noOfSpecialChar=0

Dim specialChars
specialChars="*[@.^$|?#*+!)(_=-]."
 for lngIndex = 1 to Len("test@123")
    testchar = mid("test@123",lngIndex,1)
    if((InStr(specialChars,testchar))) then
        noOfSpecialChar=noOfSpecialChar+1
end if  
next

The code is sound, except InStr() returns the character position if one is found where as you are using it as a boolean condition (True or False). Changing the If to If InStr(specialChars, testchar) > 0 Then will give you what you are expecting. — user692942
– user692942, Commented Nov 25, 2018 at 12:54

user692942 · Accepted Answer · 2018-11-25 13:08:34Z

2

The problem here is InStr() as highlighted in the documentation;

Returns the position of the first occurrence of one string within another.

We can use this knowledge to create a boolean comparison by checking the return value of InStr() is greater than 0.

Dim testString: testString = "test@123"
Dim testchar, foundChar
Dim noOfSpecialChar: noOfSpecialChar = 0
Dim specialChars: specialChars = "*[@.^$|?#*+!)(_=-]."

For lngIndex = 1 To Len(testString)
  testchar = Mid(testString, lngIndex, 1)
  'Do we find the character in the search string?
  foundChar = (InStr(specialChars, testchar) > 0)
  If foundChar Then noOfSpecialChar = noOfSpecialChar + 1   
Next

edited Nov 25, 2018 at 13:08

answered Nov 25, 2018 at 13:03

user692942

16.4k8 gold badges85 silver badges196 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

unable to search character in a given string using VBScript?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related