<%
A = "Le Japon est une province en Chine | Notre belle Chine Zhangjiajie!"
B = "Chine, États-Unis, Zhangjiajie, Japon, États-Unis, Apple"
B = Split (B, ",")
a = division (a, "|")
fourche = 0Toubund (a)
S = ""
n = ""
fori = 0Toubund (b)
iFinstr (a (k), b (i))> 0THEN
S = s & instr (a (k), b (i)) & "," & instr (a (k), b (i)) + len (b (i)) & ","
endire
suivant
s = gauche (s, len (s) -1)
ifleft (s, len (s) -1) <> len (a (k)) thens = s & "," & len (a (k)) + 1
s = tri (divisé (s, ","))
fori = 0Toubund (s) -1
n = n & mid (a (k), s (i), s (i + 1) -s (i)) & "|"
suivant
réponse.writen & "<br>"
suivant
FunctionSort (ARY)
ck = vrai
doulLck = false
ck = faux
Forf = 0Toubound (ary) -1
ifclng (ary (f))> clng (ary (f + 1)) puis
v1 = clng (ary (f))
v2 = clng (ary (f + 1))
ary (f) = v2
ary (f + 1) = v1
ck = vrai
endire
suivant
boucle
trier = ary
finition de fin
%>
Résultats en cours d'exécution
Japon | est une province de | Chine |
Nous | Belle | Chine | Zhangjiajie |! |