您的位置：程序门 -> vb -> 基础类



如何固定字符串的长度?


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


如何固定字符串的长度?
发表于：2007-08-08 10:31:53 楼主
限定字符串只能是20个字,不够补空格,超长了截取前20个
发表于：2007-08-08 10:38:431楼 得分:0
dim   a   as   string,   b   as   string
a   =   "1234567890127 "
b   =   right（space（20)   &   left（a,   20),   20)
print   b
发表于：2007-08-08 10:39:532楼 得分:0
option   explicit

private   sub   form_load（)
        dim   str1   as   string
        str1   =   "test "
        text1.text   =   fixedstr（str1,   20)
end   sub


function   fixedstr（byval   sinput   as   string,   byval   lfixlen)
        dim   llen   as   long
        llen   =   len（sinput)
        if   llen   <   lfixlen   then
        fixedstr   =   sinput   &   space（lfixlen   -   llen)
        else
        fixedstr   =   left（sinput,   lfixlen)
        end   if
end   function
发表于：2007-08-08 11:00:153楼 得分:0
private   sub   command1_click（)
        dim   straa   as   string   *   20
        straa   =   "123456789abcdef123456789abcdef "
        debug.print   "straa:   ";   straa
end   sub

运行结果：
straa:   123456789abcdef12345
发表于：2007-08-08 11:43:214楼 得分:0
lz   假如不足20个字符   那么空格补在字符串前面还是后面呢？
发表于：2007-08-08 11:59:495楼 得分:0
假如不足20个字符   那么空格补在字符串是后面
发表于：2007-08-08 12:37:066楼 得分:0
dim   s   as   string   *   20
可以用这个，如果还要考虑双字节单字节，可以用sstrconv处理一下，如果还要考虑空格补充在字串前后，可用lset、rset语句处理
发表于：2007-08-08 14:54:457楼 得分:0
dim   s   as   string   *   20

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击