<%
A = "Japón es una provincia en China | ¡Nuestra hermosa China Zhangjiajie!"
B = "China, EE. UU., Zhangjiajie, Japón, Estados Unidos, Apple"
b = dividido (b, ",")
A = Split (A, "|")
horquilla = 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)) y ",", ",", ",", ",", ",", ",", "
endif
próximo
S = izquierda (S, LEN (S) -1)
ifleft (s, len (s) -1) <> len (a (k)) thens = s & "," & len (a (k))+1
s = sort (dividido (s, ","))
fori = 0toubund (s) -1
n = n & mid (a (k), s (i), s (i+1) -s (i)) y "|"
próximo
Response.Writen y "<br>"
próximo
Functionsort (Ary)
ck = verdadero
dountilck = falso
CK = falso
Forf = 0toUbound (ary) -1
ifclng (ary (f))> clng (ary (f+1)) entonces entonces
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = verdadero
endif
próximo
bucle
ordenar = ary
Función final
%>
Resultados de ejecución
Japón | es una provincia de | China |
Nosotros | Hermosa | China | Zhangjiajie |! |