（asp 学习一）一个字符串定长补齐的函数

最新推荐文章于 2016-07-22 11:50:02 发布

kewangliulang

最新推荐文章于 2016-07-22 11:50:02 发布

阅读量640

点赞数

本文链接：https://blog.csdn.net/kewangliulang/article/details/4028106

版权

网页开发专栏收录该内容

1 篇文章 0 订阅

订阅专栏

在非 ASP 的服务端Script语言中，基本都有 StringPad 这种类型的函数或功能

注：StringPad 的概念 — 给定一个字符串，例如： "567"；如果字符长度不足 6，则在左侧或右侧补足某个字符，例如“0”；那么 "567" 的补足结果就是 “000567” 或 "567000"。

看代码：

'参数说明：SourceString 源字符串； TargetLength 目标长度； PadChar 用来补长的字符，例如 “0”；
'LEFT_OR_RIGHT 左补齐还是右补齐，0表示左，非零表示右

Function StringPad(SourceString, TargetLength, PadChar, LEFT_OR_RIGHT)
    Dim SourceLength
    SourceLength = Len(SourceString)
    If (SourceLength >= TargetLength) Then
        StringPad = SourceString
    Else
         If (LEFT_OR_RIGHT = 0) Then
             StringPad = String(TargetLength - SourceLength, PadChar) & SourceString
         Else
             StringPad = SourceString & String(TargetLength - SourceLength, PadChar)
         End If
    End If
End Function

调用方式：

Dim TempString
TempString = "234"
Response.Write( StringPad(TempString, 5, "x", 0) )
返回结果： xx234