Importer le contenu d'un fichier texte dans un champ table

Bonsoir,
j'ai un fichier texte qui contient les lignes suivantes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

.\mysql-bin.000001 .\mysql-bin.000002 .\mysql-bin.000003 .\mysql-bin.000004 .\mysql-bin.000005 .\mysql-bin.000006 .\mysql-bin.000007 .\mysql-bin.000008 .\mysql-bin.000009 .\mysql-bin.000010 .\mysql-bin.000011 .\mysql-bin.000012 .\mysql-bin.000013 .\mysql-bin.000014 .\mysql-bin.000015 .\mysql-bin.000016

---

j'aimerais importer uniquement les lignes avec le format "mysql-bin.0000x"(mysql-bin.000007,...,mysql-bin.000016) dans la colonne1 de la table voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

ResLecture est une chaîne="" IdFichier est un entier IdFichier = fOuvre("C:\wamp\bin\mysql\mysql5.5.24\data\mysql-bin.index",foLecture) TANTQUE ResLecture <> EOT ResLecture = fLitLigne(IdFichier) TableAjouteLigne(TABLE_Table1,ExtraitChaîne(ResLecture,2,"\"))   FIN   fFerme(IdFichier)

---

comme resultat j'obtiens (voir image1)
je pense que la ligne 2 doit être un retour chariot.

comment faire pour avoir toute les lignes de la table remplies par le contenu du fichie texte avec le format "mysql-bin.0000x" ?:(

Bonjour

Si c'est généré par MySql il est très probable qu'en fin de ligne il n'y ait pas de RC (CR+LF ou 13+10) mais uniquement un caractère de code 10 (LF)

Essaye ça :

Code:

---

1 2 3 4

sContenu est une chaîne = fChargeTexte("C:\wamp\bin\mysql\mysql5.5.24\data\mysql-bin.index") POUR TOUTE CHAÎNE sLigne DE sContenu SEPAREE PAR Caract(10) TableAjouteLigne(TABLE_Table1, ExtraitChaîne(sLigne,2,"\")) FIN

---

EDIT :
Je viens de voir que fLitLigne accepte un paramètre supplémentaire pour indiquer le séparateur de ligne, si tu mets Caract(10) ton code devrait passer aussi

Sur le fond hPascal a tout dit concernant ton problème...

Par contre sur la forme dans la lecture de fichier "classique" je te conseille plutôt de faire ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ResLecture est une chaîne="" IdFichier est un entier IdFichier = fOuvre("C:\wamp\bin\mysql\mysql5.5.24\data\mysql-bin.index",foLecture) ResLecture = fLitLigne(IdFichier) TANTQUE ResLecture <> EOT TableAjouteLigne(TABLE_Table1,ExtraitChaîne(ResLecture,2,"\")) ResLecture = fLitLigne(IdFichier) FIN   fFerme(IdFichier)

---

La différence est subtile mais ça évitera de mal gérer le cas d'un fichier vide et d'afficher un caractère étrange en fin de lecture...

Bonjour,

alors j'ai une idée très spontanée et à l'opposé de mes habitudes de prog :

- déclarer un tableau dynamique de chaine en global de la fenêtre
- lier la table au tableau
- charger le fichier texte dans une chaine avec fcharge(...
- ChaîneVersTableau(... // utiliser un séparateur bidon qui n'existe pas)
- actualiser la table

c'est opaque à souhait mais ça doit fonctionner...

Bon dev

Bonjour

le code de hpascal marche,lorsque j'essaie le code de michel.souris j'ai toujours mon même problème

Merçi :ccool:

Citation:

---

Envoyé par Menadel

Bonjour

le code de hpascal marche,lorsque j'essaie le code de michel.souris j'ai toujours mon même problème

Merçi :ccool:

---

oui.... je crois qu'on s'est pas compris !

Je corrige pas ton problème car effectivement comme le dis hpascal il n'y a pas de <RC> mais des caract(10) je te propose une solution qui permet de lire un fichier en gérant correctement la fin du fichier et le cas des fichiers vides... mais c'est pas grave !

salut,

je ne t'avais pas compris ,merci pour ton éclaircissement michel.souris