Посчитайте, сколько конкретных символов в строке

Question

У меня есть окно поиска.

Мой пользователь с правами администратора может искать "@MG @EB dorchester".

В ASP мне нужно посчитать, сколько раз символ «@» появляется в строке. Как это возможно?

Answer 1

Попробуйте это:

len(yourString) - len(replace(yourString, "@", ""))

Answer 2

для JW01

Dim pos : pos = 0
Dim count : count = -1
Do 
  count = count + 1
  pos = InStr(pos + 1, str, "@")
Loop While (pos > 0)

Answer 3

Response.write ubound(split(str,"@"))

достаточно для подсчета появления конкретного символа

Answer 4

Попробуйте цикл while:

Do While (str.indexOf("@") != -1)
  count = count + 1
  str = right(str, len(str) - str.indexOf("@"))
Loop

EDIT :

Этот цикл for может иметь больше смысла:

dim strLen, curChar, count
count = 0
int strLen = len(str)
for i = 1 to strLen
  curChar = mid(str, i, 1)
  if curChar = "@"
    count = count + 1
  end if
next

Answer 5

Замените поиск пустым и найдите разницу между оригинальной и новой строкой, сколько раз строка присутствует

Dim a = "I @ am @ Thirs@ty" 
Dim count 
count = Len(a) - Len(Replace(a,"@",""))
Response.write count