Este artigo é um artigo que encontrei sobre a explicação detalhada do uso de expressões regulares em ASP. Recomendo a todos que o leiam. Copie o código do código da seguinte forma:
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Pattern = ab+c 'Definir literal de expressão regular, você pode substituir a expressão regular aqui
Escurecer minhaString
myString = abcefg 'Define a string a ser correspondida e pode ser substituída
Response.write(re.Execute(myString)(0)) 'Execute o teste de correspondência e escreva o resultado
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Pattern = /w+ 'Definir texto de expressão regular
Escurecer minhaString
myString = VBScript versão 5.6 oferece muitos recursos novos.
'Realize um teste de correspondência e escreva se a correspondência foi bem-sucedida
Se re.Test(myString) Então
Response.write (correspondência bem-sucedida!)
Outro
Response.write (correspondência malsucedida!)
Terminar se
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Pattern = /s 'Defina o texto da expressão regular, aqui está o espaço em branco correspondente
Escurecer minhaString
myString = VBScript versão 5.6 oferece muitos recursos novos.
myString = re.replace(myString, -) 'Substitua os espaços em branco por - e retorne a string substituída
'Escreva o resultado
Response.write(minhaString)
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Global = Verdadeiro
re.Pattern = /s 'Defina o texto da expressão regular, aqui está o espaço em branco correspondente
Escurecer minhaString
myString = VBScript versão 5.6 oferece muitos recursos novos.
myString = re.replace(myString, -) 'Substitua os espaços em branco por - e retorne a string substituída
'Escreva o resultado
Response.write(minhaString)
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Global = Verdadeiro
re.Pattern = (/w+)-(/w+) 'Definir texto padrão de expressão regular
Escurecer minhaString
minhaString = flip-flop
minhaString = re.replace(minhaString, $1-$2)
'$1 representa o primeiro /w+, $2 representa o segundo /w+, o primeiro /w+ corresponde ao flip e o segundo /w+ corresponde ao flop,
'Então $1-$2 é equivalente a um flip-flop
'Escreva o resultado
Response.write(minhaString)
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Global = Verdadeiro
re.Pattern = (/S+)(/s+)(/S+) 'Definir texto do padrão de expressão regular
Escurecer minhaString
minhaString = flip-flop
minhaString = re.replace(minhaString, $3$2$1)
'$1 representa o primeiro /S+, $3 representa o segundo /S+, $2 representa /s+,
'Então $3$2$1 é equivalente ao flop flip
'Escreva o resultado
Response.write(minhaString)
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
re.Global = Verdadeiro
re.Pattern = /w+ 'Definir texto do padrão de expressão regular
Escurecer minhaString
myString = VBScript versão 5.6 oferece muitos recursos novos.
Set Matches = re.Execute(myString) 'Executa pesquisa, esta coleção é usada para salvar resultados correspondentes
'Realize um teste de correspondência e escreva os resultados
'Iterar sobre a coleção Matches
Para cada partida nas partidas
'Escreva o resultado
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Próximo
%>
Copie o código do código da seguinte forma:
<%
Escurecer
Set re = new RegExp 'Criar instância RegExp
're.Global = True comente esta linha
re.Pattern = /w+ 'Definir texto do padrão de expressão regular
Escurecer minhaString
myString = VBScript versão 5.6 oferece muitos recursos novos.
Set Matches = re.Execute(myString) 'Executa pesquisa, esta coleção é usada para salvar resultados correspondentes
'Realize um teste de correspondência e escreva os resultados
'Iterar sobre a coleção Matches
Para cada partida nas partidas
'Escreva o resultado
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Próximo
%>
Copie o código do código da seguinte forma:
<%@idioma=página de código vbscript=65001%>
<%
'Crie uma conexão e crie um ADODB.Command para operação
Dim oCmd,oConn
Definir oConn = Server.CreateObject(ADODB.Connection)
Definir oCmd = Server.CreateObject(ADODB.Command)
oConn.ConnectionString = Provider=SQLOLEDB;server = myhost;Catálogo inicial = myDatabase;UID=sa;PWD=verysecret;
oConn.Open
'Crie uma instrução SQL CREATE TABLE aqui
Definir oCmd.ActiveConnection = oConn
oCmd.CommandText = CREATE TABLE NewEmployees(firstName nvarchar (50),lastName nvarchar (50),EmpType nvarchar (50))
'Executa a operação de criação de uma tabela de dados
oCmd.Execute
Response.Write(Operação bem sucedida!)
%>
<%
'Fecha explicitamente a conexão
oConn.Fechar
Definir oConn = Nada
%>