La rotation régulière ASP et vbs ajoute l'URL, le nom du site Web, l'introduction du site Web et d'autres contenus après le paragraphe de l'article <langage de script =vbs>
'Nom de la fonction : RegExpTest
'Paramètres : strng--"La chaîne à traiter ; patrn--"Diverses marques de fin séparées par |, telles que : <br/>|</p>|<br>; patrn2--"À remplacer par String , également séparés par |
ouvrir
'Auteur : Liu Yongfa (yongfa365)'Blog
'Fonction : ajoute aléatoirement le contenu dans patrn2 après le caractère se terminant par patrn dans la chaîne de caractères
Fonction RegExpTest (string, patrn, patrn2)
Dim regEx, Match, Matches 'Créer des variables.
Set regEx =New RegExp 'Créez une expression régulière.
regEx.IgnoreCase =True' définit si les caractères sont sensibles à la casse.
regEx.Global =True' définit la disponibilité globale.
modèle = Split(modèle,|)
ForEach p dans le motif
regEx.Pattern = p 'Définir le modèle.
chaîne = regEx.Replace(chaîne,||& Chr(10)& p)
Suivant
chaîne = Diviser (chaîne, ||)
ForEach E dans la chaîne
s = s + E + arrArt(motif2)
Suivant
RegExpTest = s
FinFonction
Fonction arrArt(patrn2)
arrArti = Split(motif2,|)
Randomiser
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
FinFonction
strng =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
Source = chaîne
motif =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
mots = RegExpTest (chaîne, motif, motif2)
MsgBox (mots)
</script>
<script>
document.Write <fieldset><legend>Chaîne originale</legend>+ Source +</fieldset><br>
document.Write <fieldset><legend>Chaîne convertie</legend>+ mots +</fieldset><br>
</script>