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

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

A voir également:

Créer un ficher avec 6400 noms (num1.num2.JPG)par incrémentation
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide
Créer un organigramme - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 déc. 2012 à 08:11

Bonjour,

'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

Réponse 2 / 3

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

bonjour f894009 , t'es un chez, cela fonctionne nickel.
Encore merci
Pascal

Réponse 3 / 3

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

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

Discussions similaires

créer une adresse gmail pour une autre personne

Annuaire portable gratuit à partir d'un nom

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters