服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp 的中文分词

asp 的中文分词

2019-09-29 11:13asp代码网 ASP教程

% a= 四川是中国的一个省|我们美丽中国的张家界! b= 中国,我们,张家界,四川,美国,苹果 b=split(b, , ) a=split(a, | ) for k=0toubound(a) s= n= for i=0toubound(b) if instr(a(k),b(i))0then s=sinstr(a(k),b(i)) , instr(a(k),b(i))+len(b(i)) , end if next s=left(s,len(s)-1) if l

  1. <%  
  2. a="四川是中国的一个省|我们美丽中国的张家界!"  
  3. b="中国,我们,张家界,四川,美国,苹果"  
  4. b=split(b,",")  
  5. a=split(a,"|")  
  6. for k=0 to ubound(a)  
  7. s=""  
  8. n=""  
  9.  for i=0 to ubound(b)  
  10.   if instr(a(k),b(i))>0 then  
  11.   s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","  
  12.   end if  
  13.  next  
  14.  s=left(s,len(s)-1)  
  15.  if left(s,len(s)-1)<>len(a(k)) then s=s&","&len(a(k))+1  
  16.  s=sort(split(s,","))  
  17.  for i=0 to ubound(s)-1  
  18.  n=n&mid(a(k),s(i),s(i+1)-s(i))& "|"  
  19.  next  
  20.  
  21.  response.write n & "<br>"  
  22. next  
  23.  
  24.  
  25. function sort(ary)  
  26. ck=true  
  27. do Until ck = false   
  28.  ck=false  
  29.  For f = 0 to UBound(ary) -1  
  30.   if clng(ary(f))>clng(ary(f+1)) then  
  31.    v1=clng(ary(f))  
  32.    v2=clng(ary(f+1))  
  33.    ary(f)=v2  
  34.    ary(f+1)=v1  
  35.    ck=true  
  36.   end if  
  37.  next  
  38. loop  
  39. sort=ary  
  40. end function  
  41. %>  

运行结果

四川|是|中国|的一个省|

我们|美丽|中国|的|张家界|!|

延伸 · 阅读

精彩推荐