Lpad với zero trong VBScript

Question

Tôi đang cố gắng để pad một chuỗi với 0 để chiều dài left.The của chuỗi đầu ra nên 7. Dưới đây là mã của tôi:

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

Tôi nhận được lỗi dự kiến Bản Tuyên Bố Xin hãy giúp tôi cảm ơn

Answer 1

in là một từ dành riêng do đó không thể được sử dụng như một tên biến và bạn phải vượt qua một chuỗi "0" không phải là một số nguyên 0, vì vậy:

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

msgbox result 

Answer 2

Chức năng này sẽ trái pad một giá trị đầu vào cho số lượng nhất định của nhân vật bằng cách sử dụng nhân vật đệm cho mà không cần cắt bỏ các giá trị đầu vào:

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 

Output:

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

Answer 3

Các mã sau sẽ chạy nhanh hơn 5%:

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

msgbox result