<%
a = "O Japão é uma província na China | Nossa bela China Zhangjiajie!"
b = "China, EUA, Zhangjiajie, Japão, Estados Unidos, Apple"
b = divisão (b, ",")
a = divisão (a, "|")
fork = 0toubund (a)
s = ""
n = ""
fori = 0toubund (b)
ifinstr (a (k), b (i))> 0then
s = s & instrum (a (k), b (i)) & "," & Instr (a (k), b (i))+len (b (i)) & ","
endif
próximo
s = esquerda (s, len (s) -1)
ifleft (s, len (s) -1) <> len (a (k)) thens = s & "," & len (a (k))+1
s = classificar (dividir (s, ",")))
fori = 0toubund (s) -1
n = n & mid (a (k), s (i), s (i+1) -s (i)) e "|"
próximo
Response.Writen & "<br>"
próximo
Funções (ARY)
ck = true
Dountilck = false
ck = false
Forf = 0TOUBOUND (ARY) -1
ifclng (ary (f))> clng (ary (f+1)) então
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = true
endif
próximo
laço
classy = ary
Função final
%>
Resultados de execução
Japão | é uma província de | China |
Nós | Linda | China | Zhangjiajie |! |