[VbScript] 調整格式補0的問題

    在VB裡有Format函數可以用

ex
    Dim S1      As String
       
        S1 = "123"
   
        S1 = Format(S1, "00000000")
   
        MsgBox S1

執行結果為 "00000123"

但VBScript卻沒辦法這樣用,這時可以換個想法

只要直接在要顯示的值前面補上 "00000000",再使用 right 函數從右取所需的位數即可



ex
假設目前要顯示出 ???/??? 筆 這樣的畫面
未足3碼補0,3碼以上不補0

目前從資料庫是得到 Num1 / Total 這兩個值

'未滿3碼再做處理
If Len(Num1)<3 Then
    S1="00" & Num1
    S1=right(S1,3)
End IF

If Len(Total)<3 Then
    S2="00" & Total
    S2=right(S2,3)
End IF

之後再輸出 S1 / S2 就是要的結果了