Question

有什么方法可以使用VBScript从字符串中获取每个字符？我曾经使用过Mid函数，但我只是想知道是否还有其他直接函数，当使用时会从字符串开始返回每个字符。

Answer 1

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

Answer 2

AFAIK，Mid是唯一的方法。

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

这对我有用。先左再右。...

// IncidentController.js
async index() {
   // ...
   const translatedTitles = await Watson.translate(titles, "en");
   console.log(translatedTitles); // Should be working now
}

如果我不知道初始字符串的长度，我将执行以下操作：

'Ugandan National Identity Number (NIN) has 14 digits
strFullNIN = "18650929392010"
strNIN_1 = LEFT(strFullNIN,1)
strNIN_2 = RIGHT(LEFT(strFullNIN,2),1)
strNIN_3 = RIGHT(LEFT(strFullNIN,3),1)
strNIN_4 = RIGHT(LEFT(strFullNIN,4),1)
strNIN_5 = RIGHT(LEFT(strFullNIN,5),1)
strNIN_6 = RIGHT(LEFT(strFullNIN,6),1)
strNIN_7 = RIGHT(LEFT(strFullNIN,7),1)
strNIN_8 = RIGHT(LEFT(strFullNIN,8),1)
strNIN_9 = RIGHT(LEFT(strFullNIN,9),1)
strNIN_10 = RIGHT(LEFT(strFullNIN,10),1)
strNIN_11 = RIGHT(LEFT(strFullNIN,11),1)
strNIN_12 = RIGHT(LEFT(strFullNIN,12),1)
strNIN_13 = RIGHT(LEFT(strFullNIN,13),1)
strNIN_14 = RIGHT(LEFT(strFullNIN,14),1)

希望这对某人有帮助！

Answer 6

此代码对于拆分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

使用VBScript获取字符串中的每个字符

6 个答案: