主頁 > 知識庫 > asp 的中文分詞

asp 的中文分詞
熱門標簽：電子圍欄 Linux服務(wù)器 團購網(wǎng)站 服務(wù)器配置 銀行業(yè)務(wù) 阿里云 科大訊飛語音識別系統(tǒng) Mysql連接數(shù)設(shè)置
%
a="日本是中國的一個省|我們美麗中國的張家界！"
b="中國,我們,張家界,日本,美國,蘋果"
b=split(b,",")
a=split(a,"|")
for k=0 to ubound(a)
s=""
n=""
 for i=0 to ubound(b)
  if instr(a(k),b(i))>0 then
  s=s  instr(a(k),b(i))  "," instr(a(k),b(i))+len(b(i))  ","
  end if
 next
 s=left(s,len(s)-1)
 if left(s,len(s)-1)>len(a(k)) then s=s","len(a(k))+1
 s=sort(split(s,","))
 for i=0 to ubound(s)-1
 n=nmid(a(k),s(i),s(i+1)-s(i)) "|"
 next

 response.write n  "br>"
next


function sort(ary)
ck=true
do Until ck = false 
 ck=false
 For f = 0 to UBound(ary) -1
  if clng(ary(f))>clng(ary(f+1)) then
   v1=clng(ary(f))
   v2=clng(ary(f+1))
   ary(f)=v2
   ary(f+1)=v1
   ck=true
  end if
 next
loop
sort=ary
end function
%>


運行結(jié)果

日本|是|中國|的一個省|
我們|美麗|中國|的|張家界|！|

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

巨人網(wǎng)絡(luò)通訊聲明：本文標題《asp 的中文分詞》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266