asp截取英文的问题
来源:百度知道 编辑:UC知道 时间:2024/06/05 06:23:23
你好 以下已测试过
希望对你有帮助
<%
function getleft(str,n)
s=str
while mid(s,n,1)<>" " and n<len(s)
n=n+1
wend
getleft=left(s,n)
end function
response.Write getleft("i love you aa aaa aaaa aaaaa a a ",8)
%>
下面是我写的函数,原理是检查你指定长度标题中的空格,把空格替换,指定一个数假如left("i love you",8)如果有一个空格那么把8+1,直到满足条件为止。
<%
function get_lentitle(str,thelen)
dim a
a=thelen
for i=1 to thelen
if right(left(str,i),1)=chr(32) then
a=a+1
end if
next
get_lentitle=left(str,a)
end function
response.write get_lentitle("i love you",8)
%>
可以这么来,我给你个规则,把英文句子按照空格做界线分割成数组,也就是把句子中所有英文单词装入数组,然后一个数组一个数组输出,当长度快超过8的时候就停止。我即兴给你写个函数,希望你能理解。
function getEnglish(word,n) 'word表示英文句子, n表示最多的字母数目
dim str, arrayStr, arrayN, tempStr, resultStr
str = split(trim(word)," ") '分割成数组