Dev Faq
12
votes

Obtenez chaque personnage dans une chaîne en utilisant VBScript

Y a-t-il un moyen par lequel nous pouvons obtenir chaque personnage d'une chaîne à l'aide de VBScript? J'avais utilisé la fonction moyenne mais je veux juste savoir s'il y a d'autres fonctions directes qui, lorsqu'elles sont utilisées, renvoient chaque personnage à partir d'une chaîne.

0 commentaires

6 Réponses :

4
votes

afaik, moyen est le seul moyen de le faire.

0 commentaires
29
votes 
strString = "test"
For i=1 To Len(strString)
    WScript.Echo Mid(strString,i,1)
Next
0 commentaires
5
votes 
a="abcd"

for i=1 to len(a)

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

next
0 commentaires
2
votes

Une autre façon de le faire, à partir de 0: XXX

1 commentaires

Mais moyen est toujours utilisé.

1
votes

Ce code est utile pour diviser UCASE et LACLE 

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

0 commentaires
0
votes

Cela fonctionne pour moi. À gauche, puis à droite .... 

strFullNIN = RS.fields("Client_NIN")
strFullNIN_LENGTH = LEN(strFullNIN)

x = 1
DO UNTIL x = strFullNIN_LENGTH
IF x = 1 THEN
strNIN_"& x &" = LEFT(strFullNIN,x)
ELSE
strNIN_"& x &" = RIGHT(LEFT(strFullNIN,x),1)
END IF
x=x+1
LOOP

0 commentaires

Articles qui pourrait vous intéresser :

Incorporer VBScript dans PowerShell Script - Un fichier
PowerShell obtient la valeur de retour du script Visual Basic
Comment appeler un fichier PowerShell avec des paramètres à l'aide de VBScript
Comment prévenir la fonction de verrouillage automatique d'une machine XP à l'aide de VBScript