Dieser Artikel ist eine Funktion zum Löschen doppelter Arrays unter ASP und wurde getestet.
Da ich etwas für den Gebrauch schreiben wollte, habe ich auf Baidu gesucht und festgestellt, dass ein Freund es zufällig geschrieben hatte und ich es nicht sorgfältig getestet hatte. Es funktionierte nur mit Zeichen, aber nicht mit Zahlen. Es hatte auch eine geringe Vielseitigkeit und musste modifiziert werden. Kann tatsächlich verwendet werden. Ich hatte keine andere Wahl, als es selbst zu schreiben. Nach dem Testen gab es überhaupt kein Problem. Die Idee war sehr praktisch und der Code war sehr kurz:
Kopieren Sie den Codecode wie folgt:
<%
Funktion cxarraynull(cxstr1,cxstr2)
wenn isarray(cxstr1) dann
cxarraynull = „Parameter 1 kann leider kein Array sein“
Exit-Funktion
Ende wenn
wenn cxstr1 = "" oder isempty(cxstr1) dann
cxarraynull = "nodate"
Exit-Funktion
Ende wenn
ss = split(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
für m = 0 bis ubound(ss)
cc = cxstr2&ss(m)&cxstr2
wenn instr(sss,cc)=0 dann
sss = sss&ss(m)&cxstr2
Ende wenn
nächste
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
end Funktion
%>
Verwendung von Methoden und Funktionen:
1. Zwei Parameter in der Funktion cxarraynull(cxstr1,cxstr2):
cxstr1: Die zu erkennende Array-Variable kann leer sein oder andere unbekannte Fehlerdaten enthalten. Wenn sie leer ist oder Fehlerdaten enthält, wird „nodate“ zurückgegeben.
cxstr2: Das Teilungssymbol des Arrays, das leer oder chr(13) usw. sein kann, und die Ausgabe wird automatisch ersetzt.
2. Testcode:
<%
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
Antwort.write s
%>
Ausgabe: 1,2,3,4,5
Die erweiterte Version von Script House löst das Kommaproblem in der letzten Ziffer des Arrays.
Kopieren Sie den Codecode wie folgt:
<%
Funktion cxarraynull(cxstr1,cxstr2)
wenn isarray(cxstr1) dann
cxarraynull = „Parameter 1 kann leider kein Array sein“
Exit-Funktion
Ende wenn
wenn cxstr1 = "" oder isempty(cxstr1) dann
cxarraynull = "nodate"
Exit-Funktion
Ende wenn
do while instr(cxstr1,",,")>0
cxstr1=replace(cxstr1,",,",",")
Schleife
if right(cxstr1,1)="," then
cxstr1=left(cxstr1,len(cxstr1)-1)
Ende wenn
ss = split(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
für m = 0 bis ubound(ss)
cc = cxstr2&ss(m)&cxstr2
wenn instr(sss,cc)=0 dann
sss = sss&ss(m)&cxstr2
Ende wenn
nächste
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
Endfunktion
%>
Testcode:
Kopieren Sie den Codecode wie folgt:
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,, ,,,,,,,,,,,,"
s=cxarraynull(s,",")
Antwort.write s