Enregistrer données texte variables dans fichier...

SAXOFUN Messages postés 10 Date d'inscription mercredi 12 février 2003 Statut Membre Dernière intervention 29 janvier 2012 - 31 août 2003 à 22:47
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 2 sept. 2003 à 11:49
Données stockées dans un Richtextbox
Je souhaiterais enregistrer ces données dans
un fichier de type de données personnalisées dont le longueur d'enregistrement est fixée
à 100 (car ces lignes ne font jamais plus) ce qui est plus facile pour traiter dans une combo ou listbox pour la recherche ou comparaison

EX de lignes provenant d'un fichier texte :

Je suis malade
J'ai encore révé d'elle
Elle m'oublie
Ainsi de suite...

Fin d'EX:

Jamais la même longueur de ligne
Pas de virgule.
Nombre de lignes variable.
Merci de m'éclairer
franc.lew1@libertysurf.fr

3 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
1 sept. 2003 à 13:28
Bonjour

utilise un fichier à accès direct
Dim Enreg As String*100
Open "C:\Chemin\Fichier.ext" For Random As #1 Len = 100
tu mets ta ligne dans la variable Enreg puis
Put 1,, Enreg
0
SAXOFUN Messages postés 10 Date d'inscription mercredi 12 février 2003 Statut Membre Dernière intervention 29 janvier 2012
1 sept. 2003 à 17:52
Ouais Ok,
mais le problène est que je ne sais pas compter le nombre de lignes dans le fichier pour les envoyer une par une en longeur 100.
Un fois que je connais le nombre de lignes à traiter, je créé une une boucje For, Next avec le nombre de ligne et je les enregistre une par une...
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
2 sept. 2003 à 11:49
Alors fais une boucle Do ... Loop
Puisque tu sais supprimer la première ligne d'une RichTextBox ...
Do While RT.Text <> ""
...
enregistrement 1ère ligne
effacement 1ère ligne
Loop
0
Rejoignez-nous