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

SAGE Discussion :

Instruction WRSEQ + IOMODE


Sujet :

SAGE

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yonne (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2012
    Messages : 21
    Points : 21
    Points
    21
    Par défaut Instruction WRSEQ + IOMODE
    Bonjour à tous,

    Je rencontre un problème dans l'écriture d'un fichier .txt

    Voici mon code

    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
     
    Subprog PLANUSINAGEAME(ART,IMG,OUVRANT,USISER,HAUTEUR,LARGEUR,FIXATION,USIBEQ,BATON,C1,C2,C3,C4)
    Char FICHIER_ARTICLE(100)(50)
    Char ARGUMENT (150)
    Char FICHIERS(100)(50)
     
    #CREATION DU FICHIER TXT
    FICHIER_ARTICLE="E:\Documents partagés\Configurateur\TXT\PSI\" + ART + "_0.txt"
    Openo "#@" + FICHIER_ARTICLE Using [FIC1]
     
    Iomode adxifs "," Using [FIC1]
    Iomode adxirs chr$(13) Using [FIC1]
     
    #ECRITURE
    Wrseq "S_SOVIMAGE = ",IMG, chr$(13) Using [FIC1]
    Wrseq "S_IMPFORMAT = A4" , chr$(13) Using [FIC1]
    Wrseq "S_IMPORIENTATION = PORTRAIT", chr$(13) Using [FIC1]
    Wrseq "S_SOVNCOMM = TEST", chr$(13) Using [FIC1]
     
    #FERMETURE
    Openo Using [FIC1]
     
    #APPELLE DU PROGRAMME DE GENERATION DU PLAN .PDF
    ARGUMENT=chr$(34) + "E:\Documents partagés\Configurateur\PROGRAMME\PGI-IMPRESSION-IMAGE.exe" + chr$(34) + chr$(32) + chr$(34) + FICHIER_ARTICLE + chr$(34)  
    System FICHIERS = "#@" + ARGUMENT
    FICHIER_ARTICLE="E:\Documents partagés\Configurateur\PDF\PSI\" + ART + "_0.PDF"
     
    #PLAN JOINT A L'ARTICLE
    If filinfo(FICHIER_ARTICLE, 7) > 0
        Call PIECEJOINTE(ART,FICHIER_ARTICLE,"000")
    Endif
    End
    Mon problème est sur l'ecriture du fichier TXT :

    Voici un exemple de fichier
    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
     
    S_SOVIMAGE =  UsinageAmeDroit3.jpg 
    S_IMPFORMAT = A4 
    S_IMPORIENTATION = PORTRAIT 
    S_SOVNCOMM = TEST 
    S_SOVSENSO = DROIT 
    S_SOVUSISE =  SER004 
    S_SOVHAUTE =  2083 
    S_SOVLARGE =  933 
    S_SOVSTYLO =  2018 
    S_SOVSTYLA =  868 
    S_SOVPPELO =  2064 
    S_SOVPPELA =  914 
    S_SOVPPILO =  2008 
    S_SOVPPILA =  858 
    S_SOVUSIA6 =  233 
    S_SOVUSIA7 =  889 
    S_SOVUSIA2 =  53.5 
    S_SOVUSIA1 =  21.5 
    S_SOVUSIA3 =  21.5 
    S_SOVUSIA4 =  140 
    S_SOVUSIA5 =  1529 
    S_SOVUSIA8 =  140 
    S_SOVUSIA9 =  301
    Comme vous pouvez le remarquer, il me génère un espace après le '=' ce qui ne permet pas au pdf de se générer.

    Un exemple pour bien comprendre :

    1ere fois : S_SOVIMAGE = UsinageAmeDroit3.jpg (2 ESPACES après le '=' ==> PLANTE LA GENERATION PDF)
    Modification de mon code : Wrseq "S_SOVIMAGE = ",IMG, chr$(13) Using [FIC1] devient Wrseq "S_SOVIMAGE =",IMG, chr$(13) Using [FIC1] (JE SUPPRIME L'ESPACE APRES LE =)
    2eme fois S_SOVIMAGE = UsinageAmeDroit3.jpg
    Tout fonctionne correctement.

    Je relance une commande le lendemain sans rien modifier à mes traitement, et il me génère

    1ere fois : S_SOVIMAGE =UsinageAmeDroit3.jpg (plus d'espace ==> PLANTE LA GENERATION PDF)
    Modification de mon code : Wrseq "S_SOVIMAGE =",IMG, chr$(13) Using [FIC1] devient Wrseq "S_SOVIMAGE = ",IMG, chr$(13) Using [FIC1] (JE SUPPRIME L'ESPACE APRES LE =)
    2eme fois S_SOVIMAGE = UsinageAmeDroit3.jpg
    Tout fonctionne correctement.


    Je tourne en rond depuis un moment et je n'arrive pas a comprendre pourquoi il me génère aléatoirement un espace du jour au lendemain (J'ai aussi essayer vireblc, rien n'y fait)

    Si quelqu'un sait me dire d'où vient cette espace aléatoire ce serait top !


    Cordialement.

  2. #2
    Membre éprouvé
    Homme Profil pro
    Dév & consultant Sage X3
    Inscrit en
    Décembre 2014
    Messages
    786
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dév & consultant Sage X3

    Informations forums :
    Inscription : Décembre 2014
    Messages : 786
    Points : 944
    Points
    944
    Par défaut
    Bonjour,

    Te dire d'où ça vient, je n'en sais rien.

    En revanche je te conseillerais de travailler avec des variables construites en amont de wrseq :

    Iomode adxifs chr$(13)+chr$(10)
    VAR1="S_SOVIMAGE ="-vireblc(IMG,0)
    Wrseq VAR1 Using [FIC1]

    Normalement à chaque wrseq, il doit y avoir un retour à la ligne. Tu évites les chr$(13) systématiques.

Discussions similaires

  1. Instructions ROL et ROR
    Par bigbang dans le forum Assembleur
    Réponses: 13
    Dernier message: 01/03/2003, 03h06
  2. Passer de la zone d'édition vers une instruction sql
    Par tripper.dim dans le forum C++Builder
    Réponses: 2
    Dernier message: 27/11/2002, 15h44
  3. Instruction pour créer un fichier text ???
    Par Soulsurfer dans le forum Langage
    Réponses: 2
    Dernier message: 06/08/2002, 12h17
  4. [Crystal Report][VB6] instruction PrintReport
    Par yyyeeeaaahhh dans le forum SDK
    Réponses: 4
    Dernier message: 29/07/2002, 15h58
  5. [TASM] Problème concernant l'instruction LGDT
    Par Ninkosen dans le forum Assembleur
    Réponses: 3
    Dernier message: 15/07/2002, 20h09

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