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

Question

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

Answer 1

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

Answer 2

a="abcd"

for i=1 to len(a)

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

next

Answer 3

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

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