zoukankan      html  css  js  c++  java
  • [唐胡璐]VBS技巧 Pad Number String with Zeroes(在字符串左侧补0)

     '******************************************************************************* 
    'Description : Pads a number with zeroes on the left, according to the expected maximum length of the numbers in the list. ' 

    'Purpose : To keep a number list sorted properly, as with a file list (001, 002,..., 010, and not 1, 10, 11,..., 2, 20). ' 

    'Arguments : intCurrentNum (the current number to be padded) 
                'intMaxNumInList (the top number in the list) 

    'Note: The arguments are always taken in absolute values 

    'Returns : The padded intCurrentNum (for example, If 1 and 9999 are sent to the function, the result will be 0001) ' 

    '*******************************************************************************  
    PublicFunction PadNumber(ByVal intCurrentNum, ByVal intMaxNumInList) 
       
    'Validates the arguments - if invalid then it returns the value as is     
        If (NotIsNumeric(intCurrentNum) OrNotIsNumeric(intMaxNumInList)) Then         
            PadNumber = intCurrentNum         
            ExitFunction     
        EndIf    
         
        If (Abs(intCurrentNum) >= Abs(intMaxNumInList)) Then         
            PadNumber = intCurrentNum         
            ExitFunction     
        EndIf     
        
        PadNumber = String(len(CStr(Abs(intMaxNumInList)))-len(CStr(Abs(intCurrentNum))), "0") _  
                     & CStr(Abs(intCurrentNum)) 
                       
    EndFunction


    '*******************************************************************************  
    'Msgbox PadNumber(4, 34567)    'Returns 00004 
    'Msgbox PadNumber(-4, 34567)   'Returns 00004  
    'Msgbox PadNumber(4, -34567)   'Returns 00004 
    'Msgbox PadNumber(34567, 4)    'Returns 34567 
    'Msgbox PadNumber(4, 9)        'Returns 4 
    'Msgbox PadNumber("Hello", 9999) 'Returns Hello

  • 相关阅读:
    基于ARM的指纹采集仪的设计与实现
    基于单片机和CPLD的数字频率计的设计
    转来的
    单片机式语音播报伏特表
    汽车驾驶模拟器单片机系统设计
    基于AT89C51的智能矿井环境质量监控系统
    我的理解OpenAPI原理
    关联规则中的支持度与置信度
    LVS-NAT实现负载均衡
    在IIS上部署Analysis Services
  • 原文地址:https://www.cnblogs.com/yongfeiuall/p/4134201.html
Copyright © 2011-2022 走看看