Créer un ficher avec 6400 noms (num1.num2.JPG)par incrémentation
Résolu
pascal83550
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
qbasic45 Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
qbasic45 Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
Bonjour je cherche à créer un ficher "matrice.txt"
Qui comporterait 6400 noms de fichier au format : num.num.JPG.
Données au format X(point)Y(point)JPG ; (par exemple : 95139.136609.JPG)
Avec X allant de par exemple 95139 à 95226: (80 d'écart au maximum).
Et Y de 136609 à 136696 soit 64000 noms: (80 d'écart au maximum).
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 je n'ai pas programmé, si suis pas très sur de la syntaxe (si une bonne âme veux bien corriger, je n'en serais pas vexé))
X1=95139
X2=95226
Z1=136609
Z2=136696
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
Je suis preneur de toute autre solution (utilitaire, programme) pour créer ce fichier
Merci d'avance
Pascal
Qui comporterait 6400 noms de fichier au format : num.num.JPG.
Données au format X(point)Y(point)JPG ; (par exemple : 95139.136609.JPG)
Avec X allant de par exemple 95139 à 95226: (80 d'écart au maximum).
Et Y de 136609 à 136696 soit 64000 noms: (80 d'écart au maximum).
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 je n'ai pas programmé, si suis pas très sur de la syntaxe (si une bonne âme veux bien corriger, je n'en serais pas vexé))
X1=95139
X2=95226
Z1=136609
Z2=136696
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
Je suis preneur de toute autre solution (utilitaire, programme) pour créer ce fichier
Merci d'avance
Pascal
A voir également:
- Créer un ficher avec 6400 noms (num1.num2.JPG)par incrémentation
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - Guide
3 réponses
Bonjour,
Bonne reprise
'A mettre dans un module de VBA Excel
Sub test()
Close
X1 = 95139
X2 = 95226
Z1 = 136609
Z2 = 136696
'Mettre le chemin du fichier
Open "D:\_Docs_Prog_Excel\matrices.txt" For Output As #1
' nombre de fichiers: 88*88=7744
For Z = Z1 To Z2
For x = X1 To X2
y = x & "." & Z & ".JPG"
Print #1, y
Next x
Next Z
Close
End Sub
ou
'Quick Basic ou QBasic
Close
X1 = 95139
X2 = 95226
Z1 = 136609
Z2 = 136696
Rem Mettre le chemin du fichier
Open "D:\_cles\matrices.txt" For Output As #1
Rem nombre de fichiers: 88*88=7744
For Z = Z1 To Z2
For x = X1 To X2
y$ = LTrim$(Str$(x)) + "." + LTrim$(Str$(Z)) + ".JPG"
Print #1, y$
Next x
Next Z
Close
Bonne reprise
bonjour
j'ai tester sur qbasic et c'est ok
il y a puls espaces entre les points
CLS : COLOR 15
x1 = 95139
x2 = 95226
z1 = 136609
z2 = 136696
x = x1
z = z1
OPEN "c:/matices.txt" FOR OUTPUT AS #1
10 REM
PRINT #1, LTRIM$(STR$(x)); "."; LTRIM$(STR$(z)); ".JPG"
x = x + 1
IF x = x2 THEN z = z + 1: x = x1
IF z = z2 THEN CLOSE #1: END
GOTO 10
j'ai tester sur qbasic et c'est ok
il y a puls espaces entre les points
CLS : COLOR 15
x1 = 95139
x2 = 95226
z1 = 136609
z2 = 136696
x = x1
z = z1
OPEN "c:/matices.txt" FOR OUTPUT AS #1
10 REM
PRINT #1, LTRIM$(STR$(x)); "."; LTRIM$(STR$(z)); ".JPG"
x = x + 1
IF x = x2 THEN z = z + 1: x = x1
IF z = z2 THEN CLOSE #1: END
GOTO 10