Найти счет и положение символа-VB-скрипта

Question

Как найти количество символов в строке и ее значение индекса в скрипте VB.
Например, "лев король джунглей" в этом примере, если п счетчик равен 3 и позиции 3,10 и 18.

Answer 1

Использование RegExp - как в:

Option Explicit 

Dim s : s  = "Lion is king of jungle" 
Dim c : c  = "n" 
Dim r : Set r = New RegExp 
r.Global = True 
r.Pattern = c 
Dim ms : Set ms = r.Execute(s) 
WScript.Echo "found", ms.Count, "tokens of", c 
Dim m 
For Each m In ms 
    WScript.Echo m.FirstIndex + 1 
Next 

выход:

cscript 29181557.vbs 
found 3 tokens of n 
4 
11 
19 

+ 1 настраивается на индексы строк на основе VBScript.