이 문서는 ASP에서 중복 배열을 삭제하는 기능이며 테스트되었습니다.
쓸만한 글을 쓰고 싶어서 바이두에서 검색해보니 친구가 무작위로 쓴 글이 꽤 많았고, 문자로만 테스트를 해본 적은 없었습니다. 또한 범용성이 좋지 않아 수정이 필요했습니다. 어쩔 수 없이 직접 작성해 보았는데, 테스트해보니 전혀 문제가 없었습니다. 아이디어도 매우 편리했고, 코드도 다음과 같이 매우 짧았습니다.
다음과 같이 코드 코드를 복사합니다.
<%
함수 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 = 오른쪽(sss,len(sss) - len(cxstr2))
cxarraynull = 왼쪽(cxarraynull,len(cxarraynull) - len(cxstr2))
종료 기능
%>
메소드 및 기능 사용:
1. cxarraynull(cxstr1,cxstr2) 함수의 두 매개변수:
cxstr1: 감지할 배열 변수는 비어 있거나 기타 알 수 없는 오류 데이터일 수 있습니다. 비어 있거나 오류 데이터가 있는 경우 "nodate"가 반환됩니다.
cxstr2: 비어 있거나 chr(13) 등일 수 있는 배열의 분할 기호이며 출력이 자동으로 대체됩니다.
2. 테스트 코드:
<%
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
응답.쓰기
%>
출력: 1,2,3,4,5
Script House의 향상된 버전은 배열의 마지막 숫자에 있는 쉼표 문제를 해결합니다.
다음과 같이 코드 코드를 복사합니다.
<%
함수 cxarraynull(cxstr1,cxstr2)
isarray(cxstr1)이면
cxarraynull = "죄송합니다. 매개변수 1은 배열이 될 수 없습니다."
종료 기능
종료하면
cxstr1 = "" 또는 isempty(cxstr1)인 경우
cxarraynull = "노데이트"
종료 기능
종료하면
instr(cxstr1,",,")>0 동안 수행
cxstr1=교체(cxstr1,",,",",")
고리
맞다면(cxstr1,1)=","
cxstr1=왼쪽(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 = 오른쪽(sss,len(sss) - len(cxstr2))
cxarraynull = 왼쪽(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,",")
응답.쓰기