fichier client VB6

Bonjour,

 

DSl a priori tout n'a pas passé!!
J'ai un fichier client avec nom, Prénom....(pas de bdd) et je dois rajouter un num de téléphone sans perdre les données des clients. Les enregistrements des clients sont sauvegardés dans un bloc note. Je sais que je dois créer un nouveau fichier et le renomer après. Je suis débutante et un peu perdue si qq'un pouvait me mettre sur la voie cela m'aiderai bcp. Merci

Slt,
En supposant que ton fichier est un fichier CSV

Dim Buffer as string, NumTel As String

Open "sources.txt" for input As #1 ' Ouverture de la source
Open "Dest.txt" for output as #2 ' Ouverture/création de la destination
While not (eof(1))  'On lit la source ligne à ligne
  Line Input  #1,Buffer     ' Lecture d'une ligne
  ' Ici, il faut mettre dans NumTel l'info correspondant à la personne
  ' dont l'enregistrement est dans Buffer
  Buffer = Buffer & ";" & NumTel    ' Ajout de l'info en fin de ligne
  Print #2,Buffer    ' Ecriture dans la destination
Wend
Close   'Fermeture des deux fichiers
Kill "Source.txt"   ' Suppression du fichier d'origine
Name "Dest.txt" As "Source.txt" ' renommage de la destination en source

Voila ... ca devrait fonctionner.
A toi de voir ce que tu dois mettre (et comment) dans la variable NumTel

CR

Merci,
En fait mon fichier s'appelle client.dat et il fait 160 octets je dois le remplacer en client.new avec le num de tel et changer dans le module. Après je peu le renommer en client.dat avec les modifs. Je dois donc creer un prog qui permet de lire le fichier initial et qui le convertit. Dans ce fichier il y a 3500 clients a priori je dois faire un boucle??..!!! DSl mais je suis très novice c pour un exam!!!

Merci pour votre aide.

 

3500 clients dans 160 octets de fichiers !!! Balaize !!!

Oups j'ai du mal m'exprimer!! J'ai essayer le code mais maintenant il ne trouve plus mes clients dans le prog...mais je n'ai pas fais de boucle qui a mon idée devrait etre nécessaire??? Pourtant lorsque je vérifie dans mon fichier.dat ils sont tous là. Je ne comprend plus rien.

En tout cas merci pour ton aide.

 Change de format de fichier ce sera bcp plus simple de passer sur access (.mdb) ou excel(.xls) car toutes les manipulations doivent être prévues et tu n as plus qu'à faire F1 et l'aide
ciao