IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Erreur syntaxe introuvable !


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2008
    Messages : 25
    Points : 19
    Points
    19
    Par défaut Erreur syntaxe introuvable !
    Bonjour,

    ça fait 3H que je cherche l'erreur de syntaxe et... Introuvable !
    L'erreur est signalée sur l'avant dernier "Next"... J'ai vérifié que les "End If" étaient bien tous présents... j'en ai oublié un ?

    Merci de votre aide,

    Pierrot

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
     
    For Each File In Files
    	 If (objFSO.GetExtensionName(File) <> "pdf") Then
    		 i = 0
    		 sansEmail = true
    		 Set WordApp = CreateObject("Word.Application")    
    		 WordApp.Visible = False
    		 wDoc = path & "\" & File.Name
    		 Set WordDoc = WordApp.Documents.Open(wDoc) 
    		 WordDoc.SaveAs sDoc,wdFormatText
    		 WordApp.Quit
     
    		  Set objRegEx = CreateObject("VBScript.RegExp")
    		  objRegEx.Pattern = "[a-z0-9._%-]+@[a-z0-9.-]+\.[a-z]{2,4}"
    		  Set objFile = objFSO.OpenTextFile(sDoc, ForReading)
    		  Do Until objFile.AtEndOfStream
    			strSearchString = objFile.ReadLine
    			Set tryit = objRegEx.Execute(LCase(strSearchString))
    			If (tryit.Count > 0) Then		
    				For Each token in tryit
    					If (StrComp("confidentiel@monster.com", Trim(token)) <> 0) Then
    						sansEmail = false
    						i = i + 1
    						Set testit = objRegEx.Execute(LCase(token))					
    						If (testit.Count > 0) Then
    							If (StrComp(lastToken, Trim(token)) <> 0) Then
    									'Wscript.Echo
    									If ((i > 1) AND (Len(Trim(token)) < 50)) Then
    										g.write(File.Name & vbTab & Trim(token) & vbCr)
    									Else If ((i <= 1) AND (Len(Trim(token)) < 50)) Then
    										f.write(File.Name & vbTab & Trim(token) & vbCr)
    									Else If (Len(Trim(token)) >= 50) Then
    										p.write(File.Name & vbTab & Trim(token) & vbCr)
    									End If
    							End If
     
    							If (StrComp("", Trim(token)) <> 0) Then
    								lastToken = Trim(token)
    							End If
     
    						End If
    					End If
                                    'Le Next ci-dessous est unexpected ?!?
    				Next
     
    			End If
     
    		 Loop
     
    		 If (sansEmail = true) Then
    			h.write(File.Name & vbTab & "NA" & vbCr)
    		 End If
     
    		  objFile.Close
    	End If
     
    Next

  2. #2
    Membre à l'essai
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2008
    Messages : 25
    Points : 19
    Points
    19
    Par défaut Monologue
    J'ai trouvé ! Suffit de poster...

    Ce n'est pas "Else If", mais "ElseIf", en un mot, idiot quoi

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Fonction erreur syntaxe introuvable
    Par Clouth dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 15/07/2013, 12h40
  2. [PHP 5.2] erreur de syntaxe introuvable
    Par jmtrivia dans le forum Langage
    Réponses: 4
    Dernier message: 04/04/2009, 00h23
  3. Erreur de syntaxe introuvable
    Par joe12260 dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 15/07/2008, 10h27
  4. Erreur de syntaxe introuvable sur requête
    Par manzane dans le forum Langage SQL
    Réponses: 3
    Dernier message: 08/06/2007, 11h24
  5. erreur de syntaxe introuvable
    Par salseropom dans le forum C
    Réponses: 8
    Dernier message: 01/03/2007, 17h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo