Cherche à créer un ficher avec 6400 noms (numéro.numéro.jpg)

Cherche à créer un ficher avec 6400 noms (numéro.numéro.jpg) - VB/VBA/VBS - Programmation

Marsh Posté le 09-12-2012 à 18:22:49    

Bonjour je cherche à créer un ficher matrice.txt
Qui comporterait  6400 noms de fichier (format : num.num.JPG)
Nom au format X(point)Y(point)JPG
Avec X allant de par exemple 95139 à 95226  
Et Y de 136609 à 136696 soit 64000 noms.
Je dois faire cela avec d’autre valeur aussi !
Je pensais utiliser Qbasic tout simplement, mais j’ai des soucies, il me met des espaces entre les (point) dans mes nom de fichiers, et il n’en faut pas.
 
Mon bout de programme (cela fait 20 ans que j’ai pas programmé !) :(  
 
X1=95139
X2=95226
Z1=136609
Z2=136400
X=X1  
Z=Z1
OPEN "matrices.txt" FOR OUTPUT A$ #1
DO
PRINT #1, X ; CHR$(46); Z;".JPG"
X=X+1
IF X=X2 THEN Z=Z+1 : X=X1
IF Z=Z2 THEN CLOSE #1 : END
LOOP
 
Voila ci quelqu’un peut de donner l’astuce pour supprimer les espaces entre les points. :hello:  
Nb : il faut que cela soit écrit comme cela 95139.136609.JPG
Je suis preneur de toute autre solution pour créer ce fichier  ;)  
Merci d’avance
Pascal

Reply

Marsh Posté le 09-12-2012 à 18:22:49   

Reply

Marsh Posté le 09-12-2012 à 19:07:13    

PRINT #1, X & "." & Z & ".JPG"
 
"simplement" ?
 
ou plutot
PRINT #1, X + "." + Z + ".JPG"
 
De ce que je lis ici sur le Qbasic.
http://westcompsci.pima.edu/cis100/basic-15.html


Message édité par Arl Guhr le 09-12-2012 à 19:11:38
Reply

Marsh Posté le 09-12-2012 à 20:10:38    

Bonsoir, cela ne fonctionne pas, ce n’est pas pris en compte, erreur de syntaxe, mais cela vient du logiciel Qbasic 4.5 qui est vieillot !
Quel logiciel basic utilisé (pas de Visual basic, je n’y comprends rien)
Merci
Pascal

Reply

Marsh Posté le 10-12-2012 à 09:10:26    

Salut, pas de bras pas de chocolat .... sinon voir http://warin.developpez.com/access/fichiers/


Message édité par kiki29 le 10-12-2012 à 10:37:16

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 10-12-2012 à 11:23:44    

 
               Bonjour !   Je n'ai plus mon vieux QBasic sous le coude mais normalement comme exposé par Art Guhr,
               l'un de ses codes devraient fonctionner ...
 
               Sinon au pire ce serait réglé en utilisant la fonction TRIM :
 

Code :
  1.   PRINT #1, TRIM$(X) & "." & TRIM$(Z) & ".jpg"

Reply

Marsh Posté le 10-12-2012 à 23:13:32    

En fait, je pense que la fonction "print" ajoute les espaces tout seul quand tu lui passes les bouts de chaines séparés par des ;
Donc qu'il faudrai faire sois même la concatenation avant d'utiliser le "print" pour n'avoir qu'un seul morceau dont il faut faire le print.
 
P-e qu'il faut passer par une variable intermédiaire genre
 
blabla =  X & "." & Z & ".JPG"  
PRINT #1, blabla  
 
à toi d'ecrire ça en qbasic ;)
les & ou + sont des concatenations. Je ne connais pas comment tu dois les ecrires.
 
Si tu as excel sous la main, tu peux faire du VBA.
Si tu as visual basic, tu peux faire du VB.
 
Pour info : J'ai rien pour faire du qbasic ici

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed