Enregistrer données texte variables dans fichier...
SAXOFUN
Messages postés10Date d'inscriptionmercredi 12 février 2003StatutMembreDernière intervention29 janvier 2012
-
31 août 2003 à 22:47
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 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
A voir également:
Enregistrer données texte variables dans fichier...
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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
SAXOFUN
Messages postés10Date d'inscriptionmercredi 12 février 2003StatutMembreDernière intervention29 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...
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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