| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 825 人关注过本帖
标题:[求助]怎样让英文字母按半个字符处理
只看楼主 加入收藏
乱弹琴
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
帖 子:1216
专家分:1376
注 册: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
快速回复:[求助]怎样让英文字母按半个字符处理
数据加载中...
 
   



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

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