新手求助字符串格式化

Question

如何将一个字符串Format成固定长字符串，后面用空格填充
例如:
 固定长 = 6
"abc" ---->  "abc   "
"abcdefgh"----->"abcdef"

Answer 1

'strTmp 为字符串，nLen是你要设定的长度
Public Function FixLenString(ByVal strTmp As String, ByVal nLen As Integer) As String
    strTmp = IIf(nLen <= Len(strTmp), Left(strTmp, nLen), strTmp & Space(nLen - Len(strTmp)))
End Function调用：debug.print FixLenString("abc",6)

Answer 2

调用下面的函数：?FIXStringLen("abcdebfeg",6)
abcdeb
'--------------------------------
'将字符串变成指定长度
'--------------------------------
Function FIXStringLen(ByVal str1 As String, byval fixLen As Long) As String
    If Len(str1) > fixLen Then
        FIXStringLen = Left(str1, fixLen)
    Else
        FIXStringLen = str1 & Space(fixLen - Len(str1))
    End If
End Function

Answer 3

你就去判断字符串的长度啊。当字符串长度<6，就在后面加空格
>=6的话就取前面6位咯

Answer 4

晕~~，函数返回都写错了：）
Public Function FixLenString(ByVal strTmp As String, ByVal nLen As Integer) As String
    FixLenString = IIf(nLen <= Len(strTmp), Left(strTmp, nLen), strTmp & Space(nLen - Len(strTmp)))
End Function

Answer 5

我想用Format函数，简单一点实现
不用判断长度，然后后边加空格的方法啊主要是不知道如何用Format实现，哪位贴一个出来，最好一个语句解决问题啊

Answer 6

去帮助里找一下，format（）中有哪些参数，就知道能不能用format实现了。

Answer 7

left("abc" & space(6),6)
left("abcdefgh" & space(6),6)

Answer 8

声明一个定长为6的字符串变量不就行了？
dim s as string * 6
s="abc"