Получить каждый символ в строке, используя VBScript

Question

Есть ли способ, с помощью которого мы можем получить каждый символ из строки с помощью VBScript? Я использовал функцию Mid, но я просто хочу знать, есть ли другие прямые функции, которые при использовании возвращают каждый символ, начиная с строки.

Answer 1

AFAIK, Mid - единственный способ сделать это.

Answer 2

strString = "test" 
For i=1 To Len(strString) 
    WScript.Echo Mid(strString,i,1) 
Next 

Answer 3

a="abcd" 

for i=1 to len(a) 

msgbox right(left(a,i),1) 

next 

Answer 4

Другой способ сделать это, начиная с 0:

str = "hola che" 
x=Len(str)  
text = "" 
For i=0 to x-1 'x-1 is because it exceeds the actual length  
    text= text & Mid(str,i+1,1)  
Next  
msgbox text 

Answer 5

Данный код используется для разделения UCase и LCASE

Dim a 
a="StAcKoVeRfLoW" 

for i=o to len(a)-1 
if mid(a,i+1,1)=ucase(mid(a,i+1,1)) then 
    b=mid(a,i+1,1) 
msgbox b 
end if 
next