Erreur de la base de données WordPress : [Table 'wp_term_taxonomy' is marked as crashed and should be repaired]
SELECT t.*, tt.*, tr.object_id FROM wp_terms AS t INNER JOIN wp_term_taxonomy AS tt ON t.term_id = tt.term_id INNER JOIN wp_term_relationships AS tr ON tr.term_taxonomy_id = tt.term_taxonomy_id WHERE tt.taxonomy IN ('category', 'post_tag', 'post_format') AND tr.object_id IN (3041) ORDER BY t.name ASC

Script vb pour le remplacement de caractère ou l’extraction d’un « pattern » relatif à une chaîne de caractères – PowerDesigner 911

Script vb pour le remplacement de caractère ou l’extraction d’un « pattern » relatif à une chaîne de caractères

Le vbscript suivant présente quelques exemples afin de remplacer « fox » pour « cat » ou afin de changer l’ordre des mots « The quick » pour « quick The » et finalement afin d’extraire une chaîne de caractère d’un  texte.

Function ReplaceTest(patrn, replStr)

  Dim mch, regEx, str1               ' Create variables.

  str1 = "The quick brown fox jumped over the lazy dog. <o:Shortcut Id=""o3""> <a:ObjectID>0A274DE3-C31B-480A-9486-5BC56E2EDDE9</a:ObjectID>"

  Set regEx = New RegExp            ' Create regular expression.
  regEx.Pattern = patrn             ' Set pattern.
  regEx.IgnoreCase = True           ' Make case insensitive.

for each mch in regEx.Execute(str1)
  output mch
  ReplaceTest = regEx.Replace(mch, replStr)   ' Make replacement.
next

End Function

MsgBox(ReplaceTest("fox", "cat"))      ' Replace 'fox' with 'cat'.

MsgBox(ReplaceTest("(\S+)(\s+)(\S+)", "$3$2$1"))   ' Swap first pair of words.

MsgBox(ReplaceTest("Id=""([^""]+)"">\s*([^<]+)", "$1"))

MsgBox(ReplaceTest("([^<]+)", "$1"))

 

Laisser un commentaire

Contacter nous
300 characters left