Cherche à créer un ficher avec 6400 noms (numéro.numéro.jpg) - VB/VBA/VBS - Programmation
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
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
Marsh Posté le 10-12-2012 à 09:10:26
Salut, pas de bras pas de chocolat .... sinon voir http://warin.developpez.com/access/fichiers/
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 :
|
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
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.
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