Bonjour à tous,
Je rencontre un problème dans l'écriture d'un fichier .txt
Voici mon code
Mon problème est sur l'ecriture du fichier TXT :
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
Voici un exemple de fichier
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.
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
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.
Partager