<del id="g2u0k"></del>

<fieldset id="g2u0k"></fieldset>

主頁(yè) > 知識(shí)庫(kù) > asp 字符串截取函數(shù)

asp 字符串截取函數(shù)

asp 字符串截取函數(shù)
'*********************************************************
'函數(shù)：cutStr[str(strlen)]
'參數(shù)：str，待處理的字符串,strlen，截取的長(zhǎng)度
'作者：木木
'日期：2007/7/12
'描述：截取指定長(zhǎng)度的字符串
'示例：%=cutStr("歡迎光臨阿里西西",5)%>

'*********************************************************

function cutStr(str,strlen)
If str = "" Then
cutStr = "cutStr函數(shù)異常：字符串為空"
exit function
End If
'------------來(lái)源長(zhǎng)度檢查
If  strlen = "" Then
cutStr = "cutStr函數(shù)異常：長(zhǎng)度未指定"
exit function
End If

If  CInt(strlen) = 0 Then
cutStr = "cutStr函數(shù)異常：長(zhǎng)度為0"
exit function
End If
'----------檢測(cè)來(lái)源字符長(zhǎng)度
dim l,t,c,i
l=len(str)
t=0
'----------循環(huán)截取字符
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
'------判斷是否漢字
if c>255 then
t=t+2
else
t=t+1
end If
'------判斷是否到達(dá)指定長(zhǎng)度
if t>=strlen then
cutStr=left(str,i)".."
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
''*********************************************************
'函數(shù)：strlen[str]
'參數(shù)：str，待處理的字符串
'作者：木木
'日期：2007/7/12
'描述：判斷字符串長(zhǎng)度，漢字長(zhǎng)度為2
'示例：%=strlen("歡迎光臨阿里西西")%>
'*********************************************************
Function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
End Function
截取左邊的n個(gè)字符'*********************************************************
'函數(shù)：LeftTrue(str,n)
'參數(shù)：str，待處理的字符串，n，截取的長(zhǎng)度
'作者：木木
'日期：2007/7/12
'描述：顯示左邊的n個(gè)字符(自動(dòng)識(shí)別漢字)函數(shù)
'示例：%=LeftTrue("歡迎光臨阿里西西",6)%>
'*********************************************************

Function LeftTrue(str,n)
If len(str)=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
  c=asc(mid(str,i,1))
  If c0 then c=c+65536
  If c>255 then
  t=t+2
  Else
  t=t+1
  End If
  If t>n Then exit for
  TStr=TStr(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function

您可能感興趣的文章:

asp截取字符串的兩種應(yīng)用
asp下實(shí)現(xiàn)截取字符串特定部分內(nèi)容函數(shù)
GetBody asp實(shí)現(xiàn)截取字符串的代碼
用asp實(shí)現(xiàn)的截取指定格式字符串的代碼
asp從字符串里截取N個(gè)帶HTML的字符的函數(shù)
asp截取指定英漢混合字符串_支持中文
ASP.NET 字符串截取
asp CutStrX字符串截取函數(shù)(過(guò)濾全部HTML標(biāo)記)
asp實(shí)現(xiàn)截取字符串函數(shù)

標(biāo)簽：江蘇棗莊衢州衡水蚌埠大理萍鄉(xiāng) 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp 字符串截取函數(shù)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

asp 字符串截取函數(shù)

QQ咨詢

電話咨詢