1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 :
Sub de class= () Faible strBody comme corde Faible intFile comme nombre entier intFile = FreeFile Ouvrir « C \ strbody.txt » pour l'entrée comme #intFile strBody = Input$ (LOF (intFile), #intFile) 'LOF renvoie la longueur du dossier #intFile étroit Faible RegX comme objet, nattes comme objet, compteur en tant que longtemps Placer RegX = CreateObject (« VBScript.RegExp ») Avec RegX . Global = rectifier .MultiLine = rectifient .IgnoreCase = rectifient . Modèle = « ÊTRE DÉFINI » Placer les nattes =. Exécuter (strBody) Finir avec Pour le compteur = 0 à Mats.Count - 1 Nattes de Debug.Print (contre-) Après Placer les nattes = rien Placer RegX = rien Finir le sous-marin