Cet article est une fonction permettant de supprimer les tableaux en double sous asp et a été testé.
Parce que je voulais écrire quelque chose à utiliser, j'ai cherché sur Baidu et j'ai découvert qu'un ami l'avait écrit au hasard, et il y en avait beaucoup. Je ne l'avais pas testé attentivement. Cela ne fonctionnait qu'avec des caractères, mais pas avec des chiffres. Il avait également une faible polyvalence et devait être modifié. Peut réellement être utilisé. Je n'ai pas eu d'autre choix que de l'écrire moi-même. Après les tests, il n'y a eu aucun problème. L'idée était très pratique et le code était très court, comme suit :
Copiez le code comme suit :
<%
fonction cxarraynull(cxstr1,cxstr2)
si isarray(cxstr1) alors
cxarraynull = "Désolé, le paramètre 1 ne peut pas être un tableau"
Fonction de sortie
finir si
si cxstr1 = "" ou isempty(cxstr1) alors
cxarraynull = "nodate"
Fonction de sortie
finir si
ss = divisé (cxstr1, cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
pour m = 0 à ubound(ss)
cc = cxstr2&ss(m)&cxstr2
si instr(sss,cc)=0 alors
sss = sss&ss(m)&cxstr2
finir si
suivant
cxarraynull = droite(sss,len(sss) - len(cxstr2))
cxarraynull = gauche(cxarraynull,len(cxarraynull) - len(cxstr2))
fonction de fin
%>
Utilisation de méthodes et de fonctions :
1. Deux paramètres dans la fonction cxarraynull(cxstr1,cxstr2) :
cxstr1 : la variable de tableau à détecter peut être vide ou d'autres données d'erreur inconnues. Lorsqu'elle est vide ou des données d'erreur, "nodate" est renvoyé.
cxstr2 : Le symbole de fractionnement du tableau, qui peut être vide ou chr(13), etc., et la sortie sera automatiquement remplacée.
2. Code d'essai :
<%
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
réponse.write s
%>
Sortie : 1,2,3,4,5
La version améliorée de Script House résout le problème de la virgule dans le dernier chiffre du tableau.
Copiez le code comme suit :
<%
fonction cxarraynull(cxstr1,cxstr2)
si isarray(cxstr1) alors
cxarraynull = "Désolé, le paramètre 1 ne peut pas être un tableau"
Fonction de sortie
finir si
si cxstr1 = "" ou isempty(cxstr1) alors
cxarraynull = "nodate"
Fonction de sortie
finir si
faire pendant que instr(cxstr1,",,")>0
cxstr1=remplacer(cxstr1,",,",",")
boucle
si c'est vrai(cxstr1,1)=", alors
cxstr1=gauche(cxstr1,len(cxstr1)-1)
finir si
ss = divisé (cxstr1, cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
pour m = 0 à ubound(ss)
cc = cxstr2&ss(m)&cxstr2
si instr(sss,cc)=0 alors
sss = sss&ss(m)&cxstr2
finir si
suivant
cxarraynull = droite(sss,len(sss) - len(cxstr2))
cxarraynull = gauche(cxarraynull,len(cxarraynull) - len(cxstr2))
fonction de fin
%>
Code d'essai :
Copiez le code comme suit :
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,, ,,,,,,,,,,,,,"
s=cxarraynull(s,",")
réponse.write s