Este artículo es un artículo que encontré sobre la explicación detallada del uso de expresiones regulares en ASP. Recomiendo a todos que lo lean. Copie el código de código de la siguiente manera:
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Pattern = ab+c 'Define literal de expresión regular, puedes reemplazar la expresión regular aquí
Atenuar myString
myString = abcefg 'Define la cadena que debe coincidir y puede reemplazarse
Response.write(re.Execute(myString)(0)) 'Realiza la prueba de coincidencia y escribe el resultado
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Pattern = /w+ 'Definir texto de expresión regular
Atenuar myString
myString = VBScript versión 5.6 proporciona muchas características nuevas.
'Realice una prueba de coincidencia y escriba si la coincidencia fue exitosa
Si re.Test(myString) Entonces
Response.write (¡coincidencia exitosa!)
Demás
Response.write (¡la coincidencia no se realizó correctamente!)
Terminar si
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Pattern = /s 'Define texto de expresión regular, aquí hay espacios en blanco coincidentes
Atenuar myString
myString = VBScript versión 5.6 proporciona muchas características nuevas.
myString = re.replace(myString, -) 'Reemplaza los espacios en blanco con - y devuelve la cadena reemplazada
'Escribe el resultado
Respuesta.escribir(miCadena)
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Global = Verdadero
re.Pattern = /s 'Define texto de expresión regular, aquí hay espacios en blanco coincidentes
Atenuar myString
myString = VBScript versión 5.6 proporciona muchas características nuevas.
myString = re.replace(myString, -) 'Reemplaza los espacios en blanco con - y devuelve la cadena reemplazada
'Escribe el resultado
Respuesta.escribir(miCadena)
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Global = Verdadero
re.Pattern = (/w+)-(/w+) 'Definir texto de patrón de expresión regular
Atenuar myString
miCadena = flip-flop
miCadena = re.replace(miCadena, $1-$2)
'$1 representa el primer /w+, $2 representa el segundo /w+, el primer /w+ coincide con el flip y el segundo /w+ coincide con el flop,
'Entonces $1-$2 es equivalente a flip-flop
'Escribe el resultado
Respuesta.escribir(miCadena)
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Global = Verdadero
re.Pattern = (/S+)(/s+)(/S+) 'Definir texto de patrón de expresión regular
Atenuar myString
myString = chanclas
miCadena = re.reemplazar(miCadena, $3$2$1)
'$1 representa el primer /S+, $3 representa el segundo /S+, $2 representa /s+,
'Entonces $3$2$1 es equivalente a flip flop
'Escribe el resultado
Respuesta.escribir(miCadena)
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
re.Global = Verdadero
re.Pattern = /w+ 'Definir texto de patrón de expresión regular
Atenuar myString
myString = VBScript versión 5.6 proporciona muchas características nuevas.
Set Matches = re.Execute(myString) 'Ejecutar búsqueda, esta colección se utiliza para guardar resultados coincidentes
'Realiza una prueba de coincidencia y escribe los resultados
'Iterar sobre la colección Matches
Para cada partido en partidos
'Escribe el resultado
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Próximo
%>
Copie el código de código de la siguiente manera:
<%
luz tenue
Set re = new RegExp 'Crear instancia de RegExp
're.Global = True comenta esta línea
re.Pattern = /w+ 'Definir texto de patrón de expresión regular
Atenuar myString
myString = VBScript versión 5.6 proporciona muchas características nuevas.
Set Matches = re.Execute(myString) 'Ejecutar búsqueda, esta colección se utiliza para guardar resultados coincidentes
'Realiza una prueba de coincidencia y escribe los resultados
'Iterar sobre la colección Matches
Para cada partido en partidos
'Escribe el resultado
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Próximo
%>
Copie el código de código de la siguiente manera:
<%@language=página de códigos vbscript=65001%>
<%
'Cree una conexión y cree un ADODB.Command para la operación
Atenuar oCmd,oConn
Establecer oConn = Server.CreateObject(ADODB.Connection)
Establecer oCmd = Server.CreateObject(ADODB.Command)
oConn.ConnectionString = Proveedor=SQLOLEDB;servidor = mihost;Catálogo inicial = miBase de datos;UID=sa;PWD=muysecreto;
oConn.Abierto
'Cree una declaración SQL CREATE TABLE aquí
Establecer oCmd.ActiveConnection = oConn
oCmd.CommandText = CREAR TABLA Nuevos empleados (nombre nvarchar (50), apellido nvarchar (50), tipo emp nvarchar (50))
'Ejecutar la operación de creación de una tabla de datos
oCmd.Ejecutar
Response.Write (¡Operación exitosa!)
%>
<%
'Cerrar explícitamente la conexión
oConn.Cerrar
Establecer oConn = Nada
%>