ASP, VBS 정기 순환은 기사 단락 <스크립트 언어 =vbs> 뒤에 URL, 웹 사이트 이름, 웹 사이트 소개 및 기타 콘텐츠를 추가합니다.
'함수 이름: RegExpTest
'매개변수: strng--"처리할 문자열; patrn--"|로 구분된 다양한 끝 표시(예: <br/>|</p>|<br>-"문자열로 대체) , 또한 |로 구분됩니다.
열려 있는
'작가: 유용화(yongfa365)' 블로그
'기능: strng 문자열에서 patrn으로 끝나는 문자 뒤에 patrn2의 내용을 무작위로 추가합니다.
함수 RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches '변수 생성.
Set regEx =New RegExp ' 정규식을 만듭니다.
regEx.IgnoreCase =True'는 문자가 대소문자를 구분하는지 여부를 설정합니다.
regEx.Global =True'는 전역 가용성을 설정합니다.
패턴 = 분할(패턴,|)
패턴의 ForEach p
regEx.Pattern = p '패턴을 설정합니다.
strng = regEx.Replace(strng,||& Chr(10)& p)
다음
strng = 분할(strng,||)
문자열의 ForEach E
s = s + E + arrArt(patrn2)
다음
RegExpTest = s
EndFunction
함수 arrArt(patrn2)
arrArti = 분할(patrn2,|)
무작위화
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
EndFunction
strng =111<br/>222</p>333<br/>444</p>555<br>666</P>111
출처 = strng
패턴 =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
단어 = RegExpTest(strng, patrn, patrn2)
MsgBox(단어)
</script>
<스크립트>
document.Write <fieldset><legend>원본 문자열</legend>+ 소스 +</fieldset><br>
document.Write <fieldset><legend>변환된 문자열</legend>+ 단어 +</fieldset><br>
</script>