请问如何用最简单的方法将任一长度的中文字符串截成莫一固定长度？

Question

请问如何用最简单的方法将任一长度的字符串截成莫一固定长度？如果是数字或数字字符很简单，用format就可以了，例如：
format("123","000000")
foramt(123,"000000")但若是中文，后面就是不添空格。

Answer 1

Function DO_str (Byval target_str as String, Byval lenth as Integer) as StringDim i as Integer
Dim empty_str as String
For i = 1 to lenth
    empty_str = empty_str & " "
Next i
 
DO_str = Right(empty_str & target_str, lenth) 

Answer 2

用定长字串:Dim s As String * 8
s = "你好吗中往往外花朵达到"
MsgBox Len(s)