标题:[求助]怎样让英文字母按半个字符处理
只看楼主
乱弹琴
Rank: 1
等 级:新手上路
威 望:1
帖 子:1665
专家分:0
注 册:2006-3-7
 问题点数:0 回复次数:4 
[求助]怎样让英文字母按半个字符处理
<%=left(rs5("soft_name"),20)%>
输出之后无论英文字母还是汉字都是按一个字符处理的,能不能把英文字母按半个字符处理(即如果是英文字母的话就输出40个),这样的话就对齐了,先谢过了
搜索更多相关主题的帖子: 字母 字符 英文 
2006-06-01 10:53
乱弹琴
Rank: 1
等 级:新手上路
威 望:1
帖 子:1665
专家分:0
注 册:2006-3-7
得分:0 
有没有人帮个忙啊

男人的謊言可以騙女人的壹夜! 女人的謊言可以騙男人的壹生!
2006-06-01 11:11
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1214
专家分:1366
注 册:2005-3-14
得分:0 

试试下面这个效果,
不知哪位老兄写的,应该是你说的效果


<%
function leftX(byval uStr,byval uLen)
dim i,j,uTestStr,theStr

leftX = ""
j = 0

for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = theStr & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
leftX = theStr
end function
%>

<%
asdf="asdffdseryjhtretyui"
fdsa="我是中国人我爱中国"
asd=leftx(asdf,4)
fds=leftx(fdsa,4)
response.write asd & "<br>"
response.write fds

%>


http://toorup.3v.do
loading...
2006-06-01 20:37
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
楼主是判断英文字母可以把26个英文字母进行匹配
<%
Function IsChr(VStr)
Dim TAry(26)
TAry(0)="A|a"
TAry(1)="B|b"
………………
TAry(1)="Z|z"
Dim i
Dim Msg
Msg="不是英文字母"
For i=0 To Ubound(TAry)
Dim TSAry
TSAry=Split(TAry(i))
IF InStr(VStr,TSAry(0))<>0 Or InStr(VStr,TSAry(1))<>0 Then
Msg="是英文字母"
End IF
Next
IsChr=Msg
End Function
%>
这种是判断单个字符是否是英文字母的,最简单的办法。
这个是判断单个字符,字符串这个方法外加循环应该可以的。
2006-06-01 20:44
乱弹琴
Rank: 1
等 级:新手上路
威 望:1
帖 子:1665
专家分:0
注 册:2006-3-7
得分:0 
今天的IIS出问题了,没法调试了,三楼的应该是我说的意思,谢过二位斑竹了

男人的謊言可以騙女人的壹夜! 女人的謊言可以騙男人的壹生!
2006-06-02 16:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-68953-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.127113 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved