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

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    avril 2019
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : avril 2019
    Messages : 52
    Points : 37
    Points
    37

    Par défaut Erreur dans mon script incompréhensible

    Bonjour je déclare une procédure avec des arguments que j'appelle ensuite et cela ne marche pas. Cela me dit que j'ai une erreur au caractère 35 sur le Sub qu'il manque une ")":

    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
     
    Dim n1
    Dim n
    Dim strSearchFor
    Dim z 
    Dim m
    Dim o
    Dim x
    Dim a
    Dim WshShell
    Dim demander
    Dim nomdefichier
    Dim NewFichier
    Dim OrigineFichier
    Dim Txt_tbl
    Dim Newfichier2
    Const ForReading = 1, ForWriting = 2
    Sub ConstruitTableau2D(ByVal arg1 As String, ByVal arg2 As String)
     
    strSearchFor = "ODP3"
        'ChemNomFichier = InputBox("Quel est le chemin du fichier à exporter au format npm ? (Ne rentrez pas l'extension du fichier)", "Chemin du fichier à importer")
        'NewFichier = ChemNomFichier & ".txt"
        'OrigineFichier = ChemNomFichier & ".TRA"
     
        Set WshShell = WScript.CreateObject("WScript.Shell")
        Set fso = CreateObject("Scripting.FileSystemObject")
        'fso.MoveFile OrigineFichier, ChemNomFichier & ".txt"
        'Rename (OrigineFichier, ChemNomFichier & ".txt")
        arg1 = Replace(arg1, ".TRA", ".txt")
        ChemNomFichier = arg1
        Set fichier = fso.opentextfile(ChemNomFichier, 1)
        ContenuFichier = fichier.ReadAll
        fichier.Close
        Set fichier = Nothing
        Set fso = Nothing
    End Sub
    PS: Je n'ai pas mis l’intégrité du code

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 873
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 873
    Points : 10 940
    Points
    10 940

    Par défaut

    Salut

    En VBScript on ne type pas les variables
    Sub ConstruitTableau2D(ByVal arg1 As String, ByVal arg2 As String) Non
    Sub ConstruitTableau2D(ByVal arg1, ByVal arg2)Oui
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    avril 2019
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : avril 2019
    Messages : 52
    Points : 37
    Points
    37

    Par défaut

    Je te remercie cela résolu mon problème. Merci bien !

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 18/02/2007, 10h58
  2. Erreur dans mon script
    Par dcollart dans le forum Linux
    Réponses: 3
    Dernier message: 21/09/2006, 15h02
  3. Dessin avec Imager.. erreur dans mon script
    Par Chekov dans le forum Modules
    Réponses: 2
    Dernier message: 18/06/2006, 14h14
  4. erreur dans mon script
    Par Swata dans le forum Syntaxe
    Réponses: 4
    Dernier message: 21/09/2005, 00h02
  5. [langage]erreur dans mon script
    Par Fabouney dans le forum Langage
    Réponses: 11
    Dernier message: 30/06/2005, 14h58

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