LPAD con zero di in VBScript

Question

Sto cercando di pad una stringa con 0 alla lunghezza del left.The della stringa di uscita dovrebbe essere 7. Ecco il mio codice:

inputstr = "38" 
in = string(7 - Len(inputStr),0) & inputStr 
msgbox in 

sto errore ottenendo Previsto dichiarazione Please help me Thank You

Answer 1

in è una parola riservata, quindi non può essere usato come un nome di variabile e si deve passare una stringa di non "0" un intero 0, quindi:

inputStr = "38" 
result = string(7 - Len(inputStr), "0") & inputStr 

msgbox result 

Answer 2

Questa funzione sinistra-pad un valore di input per il dato numero di caratteri usando il dato carattere di riempimento senza troncare il valore di ingresso:

Function LPad(s, l, c) 
    Dim n : n = 0 
    If l > Len(s) Then n = l - Len(s) 
    LPad = String(n, c) & s 
End Function 

uscita:

>>>WScript.Echo LPad(12345, 7, "0") 
0
>>>WScript.Echo LPad(12345, 3, "0") 
12345

Answer 3

Il codice seguente verrà eseguito il 5% più veloce:

inputStr = "38" 
result = Right("0000000" & inputStr, 7) 

msgbox result