この記事はasp配下の重複配列を削除する機能であり、テスト済みです。
何かを書いて使いたいと思ったので、Baidu で検索したところ、友人が適当に書いたもので、慎重にテストしていないものがたくさんありました。文字のみで動作し、数字では動作しませんでした。汎用性も低く、実際に使用するには改造が必要でした。仕方なく自分で書いてみたところ、このアイデアは非常に便利で、コードは次のように短くなりました。
次のようにコードをコピーします。
<%
関数 cxarraynull(cxstr1,cxstr2)
isarray(cxstr1) の場合
cxarraynull = "申し訳ありませんが、パラメータ 1 は配列にすることはできません"
終了関数
終了する場合
cxstr1 = "" または isempty(cxstr1) の場合
cxarraynull = "ノード"
終了関数
終了する場合
ss = スプリット(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = CXS
m = 0 から ubound(ss) の場合
cc = cxstr2&ss(m)&cxstr2
instr(sss,cc)=0 の場合
sss = sss&ss(m)&cxstr2
終了する場合
次
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
関数の終了
%>
メソッドと関数の使用:
1. cxarraynull(cxstr1,cxstr2) 関数の 2 つのパラメーター:
cxstr1: 検出対象の配列変数が空またはその他の不明なエラーデータの可能性があります。空またはエラーデータの場合は、「nodate」が返されます。
cxstr2: 配列の分割シンボル。空または chr(13) などにすることができ、出力は自動的に置き換えられます。
2. テストコード:
<%
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
応答.write s
%>
出力: 1、2、3、4、5
Script House の拡張バージョンでは、配列の最後の桁のカンマの問題が解決されます。
次のようにコードをコピーします。
<%
関数 cxarraynull(cxstr1,cxstr2)
isarray(cxstr1) の場合
cxarraynull = "申し訳ありませんが、パラメータ 1 は配列にすることはできません"
終了関数
終了する場合
cxstr1 = "" または isempty(cxstr1) の場合
cxarraynull = "ノード"
終了関数
終了する場合
instr(cxstr1,",,")>0 の間実行します
cxstr1=replace(cxstr1,",,",",")
ループ
if right(cxstr1,1)="、その後
cxstr1=left(cxstr1,len(cxstr1)-1)
終了する場合
ss = スプリット(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = CXS
m = 0 から ubound(ss) の場合
cc = cxstr2&ss(m)&cxstr2
instr(sss,cc)=0 の場合
sss = sss&ss(m)&cxstr2
終了する場合
次
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
終了関数
%>
テストコード:
次のようにコードをコピーします。
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,, 、、、、、、、、、、」
s=cxarraynull(s,",")
応答.write s