如何用format函数显示一行字符，要求长度为22个汉字

renahu

如果字符串长度不够，后面用空格代替，保证总长度为22个汉字的长度

lsdongjh

1.    
   
2.     strConChar = Space(20)
   
3.    
   
4.     strStr = Mid("ABC" & strConChar, 1, 20)

复制代码

lsdongjh

1.     strstr = Format("ABCDABCDABCDABCDABCDABCDABCD", "!@@@@@@@@@@@@@@@@@@@@")
   

复制代码

renahu

lsdongjh 发表于 2017-3-3 13:51

这20应该是数字或字母的个数，如果要是汉字，那就应该翻倍即40，我想要字符串总长度是40，如果实际长度不够后面补成空格，这个字符串有可能是数字、字母和汉字混合的

renahu

lsdongjh 发表于 2017-3-3 13:51

这20应该是数字或字母的个数，如果要是汉字，那就应该翻倍即40，我想要字符串总长度是40，如果实际长度不够后面补成空格，这个字符串有可能是数字、字母和汉字混合的

renahu

lsdongjh 发表于 2017-3-3 14:09

关键是字符串（中英数混合的）长度都是不超过22个汉字字符宽度，大部分都是小于这个宽度的，那么后面就补成空格 。这个@只是表示一个字符，好像不区分中文和英文，或者说全角和半角

lsdongjh

打印排版的话，要考虑单双字节：

1. Sub Test()
   
2. 
   
3.     Debug.Print GetFixedLength("ABC")
   
4.    
   
5.     Debug.Print GetFixedLength("A我C")
   
6. 
   
7.    
   
8. End Sub
   
9. 
   
10. 
    
11. Function GetFixedLength(strVal As String, Optional intLength As Integer = 20) As String
    
12.     Dim intLen As Integer
    
13.     Dim intSpace As Integer
    
14.    
    
15.     intLen = LenB(StrConv(strVal, vbFromUnicode))
    
16.     intSpace = intLength - intLen
    
17.    
    
18.     GetFixedLength = strVal & Space(intSpace)
    
19. End Function

复制代码

renahu

lsdongjh 发表于 2017-3-3 17:21
打印排版的话，要考虑单双字节：

其实我用类似的方法已经解决，但效果并不是很好，右侧排列还是显得不整齐，这是不是误差问题？
这是我从网上抓的帖子文章列表，我把长度设成60个字符长度，右面连上“------作者”，打开后点击初始化，看combobox控件中的列表，不知道还能不能排列更整齐？
文章排列问题.rar (20.22 KB, 下载次数: 3)

2017-3-3 20:28 上传

点击文件名下载附件

lsdongjh

renahu 发表于 2017-3-3 20:28
其实我用类似的方法已经解决，但效果并不是很好，右侧排列还是显得不整齐，这是不是误差问题？
这是我从 ...

请将控件的字体设为 "小四" 或 "12"