Créer un ficher avec 6400 noms (num1.num2.JPG)par incrémentation
Résolu/Fermé
pascal83550
Messages postés
2
Date d'inscription
lundi 10 décembre 2012
Statut
Membre
Dernière intervention
10 décembre 2012
-
10 déc. 2012 à 00:43
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 14 déc. 2012 à 15:50
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 14 déc. 2012 à 15:50
A voir également:
- Créer un ficher avec 6400 noms (num1.num2.JPG)par incrémentation
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte instagram sur google - Guide
- Créer un lien pour partager des photos - Guide
3 réponses
f894009
Messages postés
17237
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 février 2025
1 712
10 déc. 2012 à 08:11
10 déc. 2012 à 08:11
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
pascal83550
Messages postés
2
Date d'inscription
lundi 10 décembre 2012
Statut
Membre
Dernière intervention
10 décembre 2012
10 déc. 2012 à 16:38
10 déc. 2012 à 16:38
bonjour f894009 , t'es un chez, cela fonctionne nickel.
Encore merci
Pascal
Encore merci
Pascal
qbasic45
Messages postés
55
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
15 juin 2019
3
14 déc. 2012 à 15:50
14 déc. 2012 à 15:50
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