最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp 的 分詞實(shí)現(xiàn)代碼

 更新時(shí)間:2007年05月24日 00:00:00   作者:  
<%
a="日本是中國(guó)的一個(gè)省|我們美麗中國(guó)的張家界!"
b="中國(guó),我們,張家界,日本,美國(guó),蘋果"
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=n&mid(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
%>


運(yùn)行結(jié)果

日本|是|中國(guó)|的一個(gè)省|
我們|美麗|中國(guó)|的|張家界|!|

相關(guān)文章

最新評(píng)論

上栗县| 漳平市| 酒泉市| 布拖县| 云梦县| 讷河市| 阜南县| 文水县| 泸州市| 岳阳市| 财经| 武定县| 奈曼旗| 理塘县| 密云县| 饶河县| 海口市| 临高县| 浦北县| 金湖县| 海门市| 汤阴县| 临泉县| 茶陵县| 武夷山市| 城固县| 平江县| 凌海市| 双江| 砚山县| 紫金县| 常宁市| 怀宁县| 鄯善县| 天台县| 两当县| 都江堰市| 南岸区| 苏尼特左旗| 观塘区| 枞阳县|