function formatNum(num, formatLen)
numLen = len(num)
if formatLen<numLen then
formatNum = num
else
tmpLen = formatLen-numLen
for j=1 to tmpLen
tmpStr = tmpStr&"0"
next
formatNum = tmpStr&num
end if
end function
使用方法formatNum(str,8)
function formatNum(num, formatLen)
numLen = len(num)
if formatLen<numLen then
formatNum = num
else
tmpLen = formatLen-numLen
for j=1 to tmpLen
tmpStr = tmpStr&"0"
next
formatNum = tmpStr&num
end if
end function
使用方法formatNum(str,8)