Cet article est un article que j'ai trouvé sur l'explication détaillée de l'utilisation des expressions régulières sous ASP. Je recommande à tout le monde de le lire. Copiez le code comme suit :
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Pattern = ab+c 'Définissez le littéral de l'expression régulière, vous pouvez remplacer l'expression régulière ici
Atténuer maChaîne
myString = abcefg 'Définit la chaîne à mettre en correspondance et qui peut être remplacée
Response.write(re.Execute(myString)(0)) 'Effectuer un test de correspondance et écrire le résultat
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Pattern = /w+ 'Définir le texte de l'expression régulière
Atténuer maChaîne
myString = VBScript version 5.6 offre de nombreuses nouvelles fonctionnalités.
'Effectuez un test de correspondance et écrivez si la correspondance est réussie
Si re.Test(myString) Alors
Response.write (correspondance réussie !)
Autre
Response.write (correspondance échouée !)
Fin si
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Pattern = /s 'Définissez le texte de l'expression régulière, voici les espaces correspondants
Atténuer maChaîne
myString = VBScript version 5.6 offre de nombreuses nouvelles fonctionnalités.
myString = re.replace(myString, -) 'Remplacez les espaces par - et renvoyez la chaîne remplacée
'Écrivez le résultat
Réponse.write(myString)
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Global = Vrai
re.Pattern = /s 'Définissez le texte de l'expression régulière, voici les espaces correspondants
Atténuer maChaîne
myString = VBScript version 5.6 offre de nombreuses nouvelles fonctionnalités.
myString = re.replace(myString, -) 'Remplacez les espaces par - et renvoyez la chaîne remplacée
'Écrivez le résultat
Réponse.write(myString)
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Global = Vrai
re.Pattern = (/w+)-(/w+) 'Définir le texte du modèle d'expression régulière
Atténuer maChaîne
myString = bascule
maChaîne = re.replace(maChaîne, $1-$2)
'$1 représente le premier /w+, $2 représente le deuxième /w+, le premier /w+ correspond au flip et le deuxième /w+ correspond au flop,
"Donc 1$-2$ équivaut à une bascule
'Écrivez le résultat
Réponse.write(myString)
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Global = Vrai
re.Pattern = (/S+)(/s+)(/S+) 'Définir le texte du modèle d'expression régulière
Atténuer maChaîne
myString = bascule
maChaîne = re.replace(maChaîne, $3$2$1)
'$1 représente le premier /S+, $3 représente le deuxième /S+, $2 représente /s+,
'Donc 3$2$1 équivaut à un flop flip
'Écrivez le résultat
Réponse.write(myString)
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
re.Global = Vrai
re.Pattern = /w+ 'Définir le texte du modèle d'expression régulière
Atténuer maChaîne
myString = VBScript version 5.6 offre de nombreuses nouvelles fonctionnalités.
Set Matches = re.Execute(myString) 'Exécuter la recherche, cette collection est utilisée pour enregistrer les résultats correspondants
'Effectuez un test de correspondance et écrivez les résultats
'Parcourir la collection Matches
Pour chaque match dans les matchs
'Écrivez le résultat
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Suivant
%>
Copiez le code comme suit :
<%
Dim ré
Définir re = new RegExp 'Créer une instance RegExp
're.Global = Vrai commentaire sur cette ligne
re.Pattern = /w+ 'Définir le texte du modèle d'expression régulière
Atténuer maChaîne
myString = VBScript version 5.6 offre de nombreuses nouvelles fonctionnalités.
Set Matches = re.Execute(myString) 'Exécuter la recherche, cette collection est utilisée pour enregistrer les résultats correspondants
'Effectuez un test de correspondance et écrivez les résultats
'Parcourir la collection Matches
Pour chaque match dans les matchs
'Écrivez le résultat
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Suivant
%>
Copiez le code comme suit :
<%@langue=vbscript codepage=65001%>
<%
'Créez une connexion et créez un ADODB.Command pour l'opération
Dim oCmd, oConn
Définir oConn = Server.CreateObject (ADODB.Connection)
Définir oCmd = Server.CreateObject (ADODB.Command)
oConn.ConnectionString = Provider=SQLOLEDB;server = myhost;Initial Catalog = myDatabase;UID=sa;PWD=verysecret;
oConn.Open
'Créez une instruction SQL CREATE TABLE ici
Définir oCmd.ActiveConnection = oConn
oCmd.CommandText = CREATE TABLE NouveauxEmployees (firstName nvarchar (50),lastName nvarchar (50),EmpType nvarchar (50))
'Exécuter l'opération de création d'une table de données
oCmd.Exécuter
Response.Write (Opération réussie !)
%>
<%
'Fermer explicitement la connexion
oConn.Fermer
Définir oConn = Rien
%>