Artikel ini adalah fungsi untuk menghapus duplikat array di bawah asp dan telah diuji.
Karena saya ingin menulis sesuatu untuk digunakan, saya mencari di Baidu dan menemukan bahwa seorang teman telah menulisnya secara acak, dan jumlahnya cukup banyak. Saya belum mengujinya dengan cermat. Ini hanya berfungsi dengan karakter, tetapi tidak dengan angka. Ia juga memiliki keserbagunaan yang buruk dan perlu dimodifikasi. Sebenarnya dapat digunakan. Saya tidak punya pilihan selain menulisnya sendiri. Setelah pengujian, tidak ada masalah sama sekali. Idenya sangat mudah dan kodenya sangat singkat, sebagai berikut:
Copy kode kodenya sebagai berikut:
<%
fungsi cxarraynull(cxstr1,cxstr2)
jika isarray(cxstr1) maka
cxarraynull = "Maaf, parameter 1 tidak boleh berupa array"
Fungsi Keluar
berakhir jika
jika cxstr1 = "" atau kosong(cxstr1) maka
cxarraynull = "tidak ada tanggal"
Fungsi Keluar
berakhir jika
ss = terbelah(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
untuk m = 0 hingga ubound(ss)
cc = cxstr2&ss(m)&cxstr2
jika instr(sss,cc)=0 maka
sss = sss&ss(m)&cxstr2
berakhir jika
Berikutnya
cxarraynull = kanan(sss,len(sss) - len(cxstr2))
cxarraynull = kiri(cxarraynull,len(cxarraynull) - len(cxstr2))
Fungsi akhir
%>
Menggunakan metode dan fungsi:
1. Dua parameter dalam fungsi cxarraynull(cxstr1,cxstr2):
cxstr1: Variabel array yang akan dideteksi bisa kosong atau data kesalahan lain yang tidak diketahui. Jika kosong atau data kesalahan, "nodate" dikembalikan.
cxstr2: Simbol pemisahan array, yang bisa kosong atau chr(13), dll., dan outputnya akan diganti secara otomatis.
2. Kode uji:
<%
s = "1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
respon.tulis s
%>
Keluaran: 1,2,3,4,5
Versi Script House yang disempurnakan memecahkan masalah koma di digit terakhir array.
Copy kode kodenya sebagai berikut:
<%
fungsi cxarraynull(cxstr1,cxstr2)
jika isarray(cxstr1) maka
cxarraynull = "Maaf, parameter 1 tidak boleh berupa array"
Fungsi Keluar
berakhir jika
jika cxstr1 = "" atau kosong(cxstr1) maka
cxarraynull = "tidak ada tanggal"
Fungsi Keluar
berakhir jika
lakukan saat instr(cxstr1,",,")>0
cxstr1=ganti(cxstr1,",,",","")
lingkaran
jika benar(cxstr1,1)="," maka
cxstr1=kiri(cxstr1,len(cxstr1)-1)
berakhir jika
ss = terbelah(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
untuk m = 0 hingga ubound(ss)
cc = cxstr2&ss(m)&cxstr2
jika instr(sss,cc)=0 maka
sss = sss&ss(m)&cxstr2
berakhir jika
Berikutnya
cxarraynull = kanan(sss,len(sss) - len(cxstr2))
cxarraynull = kiri(cxarraynull,len(cxarraynull) - len(cxstr2))
fungsi akhir
%>
Kode tes:
Copy kode kodenya sebagai berikut:
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,66,,66,,,,,,,,,,,,, ,,,,,,,,,,,,"
s=cxarraynull(s,",")
respon.tulis s