format可以对汉字的格式格式化吗？

sxgaobo

想要的结果是将下面的文字：
张三、刘大柱、欧阳无敌
格式化为：
张三　　、刘大柱　　、欧阳无敌　，即张三后３个空格、刘大柱后２个空格、欧阳无敌后１个空格　

tmtony

可能要用split  以 、为分隔符拆出来后，加上空格后，再合并

sxgaobo

tmtony 发表于 2014-12-9 22:53
可能要用split  以 、为分隔符拆出来后，加上空格后，再合并

谢谢您的关注！其实我想要的结果是将3个字段按固定格式合并，部门最多5个字，职务最多5个字，姓名最多4个字

todaynew

sxgaobo 发表于 2014-12-10 09:31
谢谢您的关注！其实我想要的结果是将3个字段按固定格式合并，部门最多5个字，职务最多5个字，姓名最多4个 ...

SELECT a.队别, a.职务, a.姓名, Format(a.队别,"@@@@@@@@@@@!") & Format(a.职务,"@@@@@@@@@@@!") & Format(a.姓名,"@@@@@@@@@@@!") AS 合并
FROM 总表 AS a;

roych

1. Function getChar(ByVal str As String, ByVal MaxLength As Long) As String
   
2. Dim strLen As Long
   
3. Dim i As Long
   
4. Dim strSpaces As String
   
5. strLen = Len(str)
   
6. If strLen > MaxLength Then
   
7.     str = Left(str, MaxLength)
   
8. Else
   
9.     For i = 1 To MaxLength - strLen + 1
   
10.         strSpaces = " " & strSpaces
    
11.     Next
    
12.     str = str & strSpaces
    
13. End If
    
14. getChar = str
    
15. End Function

复制代码

sxgaobo

谢谢二位版主的关注和解答。我想要的结果是，就是说字段的开头部分需要对齐

roych

晕。空格跟汉字的占位符的不一样的。把里面的空格改成2个应该就对齐了。

1. strSpaces = "  " & strSpaces

复制代码

但问题是：如果有数值或者字母之类的对不齐了。总不能为此再去进行判断吧？

sxgaobo

谢谢二位版主！OK了，正好我的记录里只是汉字

todaynew

sxgaobo 发表于 2014-12-10 13:05
谢谢二位版主的关注和解答。我想要的结果是，就是说字段的开头部分需要对齐

其实不必那么麻烦，加chr(13) & chr(10)回车换行比排整齐简单。

sxgaobo

todaynew 发表于 2014-12-10 20:27
其实不必那么麻烦，加chr(13) & chr(10)回车换行比排整齐简单。

哦~！怎么做啊？