Fichier client VB6
Ally_Mc_Beal
Messages postés
5
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 septembre 2009
-
16 janv. 2006 à 11:08
Swamn Messages postés 4 Date d'inscription lundi 12 avril 2004 Statut Membre Dernière intervention 22 janvier 2007 - 1 févr. 2006 à 04:04
Swamn Messages postés 4 Date d'inscription lundi 12 avril 2004 Statut Membre Dernière intervention 22 janvier 2007 - 1 févr. 2006 à 04:04
6 réponses
Ally_Mc_Beal
Messages postés
5
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 septembre 2009
16 janv. 2006 à 11:14
16 janv. 2006 à 11:14
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
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
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
16 janv. 2006 à 11:22
16 janv. 2006 à 11:22
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
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
Ally_Mc_Beal
Messages postés
5
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 septembre 2009
16 janv. 2006 à 11:35
16 janv. 2006 à 11:35
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.
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.
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
16 janv. 2006 à 14:52
16 janv. 2006 à 14:52
3500 clients dans 160 octets de fichiers !!! Balaize !!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ally_Mc_Beal
Messages postés
5
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 septembre 2009
17 janv. 2006 à 00:34
17 janv. 2006 à 00:34
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.
En tout cas merci pour ton aide.
Swamn
Messages postés
4
Date d'inscription
lundi 12 avril 2004
Statut
Membre
Dernière intervention
22 janvier 2007
1 févr. 2006 à 04:04
1 févr. 2006 à 04:04
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
ciao
