怎样实现字符串每20个字符就换行
怎样实现字符串每20个字符就换行 问题点数：0、回复次数：8Top
1 楼dragonloveboy（飞翔）回复于 2003-06-03 07:22:36 得分 0
用len函数Top
2 楼DaiLM（）回复于 2003-06-03 08:12:28 得分 0
中文算几个字符Top
3 楼oupj（）回复于 2003-06-05 18:44:10 得分 0
谁能回答？？？？？？Top
4 楼planetike（胜哥哥）回复于 2003-06-05 19:16:10 得分 0
有中文不好搞。Top
5 楼victorycyz（--）回复于 2003-06-05 19:28:46 得分 0
应该是一个中文字算一个字符，要不然岂不是可能把一个中文字一劈两半了。Top
6 楼rappercn（rapper）回复于 2003-06-05 19:38:50 得分 0
dim str1,str2 as string
str1="abc...............................abc...........................xxxxxx"
do while len(str1)>=20
str2=str2 & left(str1,20) & vbcrlf
str1=mid(str1,21)
loop
debug.print str2
如果中文算两个，就会出现半个字的现象，那可不好办了
中文算两个的时候：
dim str1,str2 as string
str1="abc...............................abc...........................xxxxxx"
do while lenb(strconv(str1,vbfromunicode))>=20
str2=str2 & left(strconv(str1,vbfromunicode),20) & vbcrlf
str1=mid(strconv(str1,vbfromunicode),21)
loop
debug.print str2Top
7 楼lazycat818（lazycat818）回复于 2003-06-06 08:21:57 得分 0
是显示时换行，还是写文件时换行？
Top
8 楼sunxl（小呆）回复于 2003-06-06 09:37:00 得分 0
vbCrLf Chr(13) + Chr(10) 回车符与换行符结合
vbCr Chr(13) 回车符
vbLf Chr(10) 换行符
Len 函数 返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数
两个可能的参数必须有其一（而且只能有其一）。如为用户定义类型，Len 会返回其写至文件的大小。
LenB 函数 作用于字符串中的字节数据，如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。
摘自MSDN Library
Top
