ASP, rotação regular vbs adiciona o URL, o nome do site, a introdução do site e outros conteúdos após o parágrafo do artigo <linguagem de script = vbs>
'Nome da função: RegExpTest
'Parâmetros: strng--"A string a ser processada; patrn--"Várias marcas de finalização separadas por |, como: <br/>|</p>|<br>; , também separados por |
abrir
'Autor: Liu Yongfa (yongfa365)'Blog
'Função: Adicionar aleatoriamente o conteúdo em patrn2 após o caractere que termina com patrn na string
Função RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches 'Cria variáveis.
Set regEx =New RegExp ' Cria uma expressão regular.
regEx.IgnoreCase =True' define se os caracteres diferenciam maiúsculas de minúsculas.
regEx.Global =True' define a disponibilidade global.
padrão = Dividir(padrão,|)
ForEach p em padrão
regEx.Pattern = p 'Definir padrão.
string = regEx.Replace(strng,||& Chr(10)& p)
Próximo
string = Dividir(string,||)
ForEach E em string
s = s + E + arrArt(patrn2)
Próximo
RegExpTest = s
Função Final
Função arrArt(patrn2)
arrArti = Dividir(patrn2,|)
Randomizar
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
Função Final
string =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
Fonte = string
padrão =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
palavras = RegExpTest(strng, patrn, patrn2)
MsgBox(palavras)
</script>
<roteiro>
document.Write <fieldset><legend>String original</legend>+ Fonte +</fieldset><br>
document.Write <fieldset><legend>String convertida</legend>+ palavras +</fieldset><br>
</script>