ＡＳＰ生成文本文件的时候，怎么来用空格填充长度，达到对齐的效果，有什么好算法？多谢了
多谢了． 问题点数：20、回复次数：8Top
1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-19 22:23:51 得分 0
len计算长度Top
2 楼leason（水汪汪）回复于 2005-04-19 22:45:11 得分 6
用空格来对齐，首先的确定各个列的最大长度，如果能约定好，直接使用len来计算长度，但也不是最好的办法，因为如果是中英文混合、全角半角字符混合，肯定对不齐
如果各列的长度无法约定，似乎用len计算更难以很好的实现Top
3 楼lanyur（蓝鱼儿）回复于 2005-04-19 22:58:08 得分 8
function ForMatStr(str)
dim lens,x,blanks
lens=0
x=0
lens=len(str)
for x=0 to 9-lens
blanks=blanks+" "
next
if lens>9 then
str="《"&left(str,9)&"…"&"》"&blanks
else
str="《"&str&"》"&blanks
end if
End function
看看这个，或许对你有帮助。Top
4 楼gaoan（流浪花---不迁怒，不二过．）回复于 2005-04-20 09:37:41 得分 0
因为如果是中英文混合、全角半角字符混合，肯定对不齐
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
完全没有办法吗？Top
5 楼lanyur（蓝鱼儿）回复于 2005-04-20 16:41:08 得分 6
<%
Function WordCount(strInput)
Dim strTemp
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' 删除字首字尾空格
strTemp = Trim(strTemp)
' 替换为一个空格
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%>
引用：http://dev.csdn.net/article/59/59928.shtm
Top
6 楼gaoan（流浪花---不迁怒，不二过．）回复于 2005-05-09 15:47:28 得分 0
咋就对不齐呢?Top
7 楼tjzym（天远水寒）回复于 2005-05-09 16:28:25 得分 0
up!Top
8 楼lilia（小苦瓜）回复于 2005-05-09 17:09:41 得分 0
upTop
