Discussion :

[dr_feelgood]

Bonjour

Je souhaite récupérer des données qui me sont envoyés en fichiers TXT pour les insérer dans des champs mémo de ma base

je lis ces fichiers ligne après ligne par Line Input et je concatène les lignes dans une variable. A la fin de la lecture je copie le contenu de la variable dans le champ mémo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
contenu = ""
Open "C:\apicrypt\re720920.txt" For Input As #1
 
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, MyString    ' Lit les données dans une variable
    contenu = contenu & MyString & " " & Chr$(13)
Loop
Close #1    ' Ferme le fichier.
 
Me.contenu_fichier = contenu

Le problème que je n'arrive pas à résoudre est que le retour chariot n'est pas pris en compte et que mon texte s'affiche en désordre (au lieu de ligne par ligne)
dans le champ texte, j'ai bien sûr mis la propriété effet touche entrée à :
Nouvelle lgn. dans chp.

J'espère avoir été clair dans la présentation de ce problème.

Si quelqu'un avait une idée pour m'aider à résoudre cette difficulté ?

Merci d'avance

[marot_r]

Remplacer Chr$(13) par VbNewLine (<=> Chr(13) & Chr(10) soit "Retour à la marge" et "Saut de ligne")

A+

[dr_feelgood]

impeccable !!!!!

J'avais essayé Chr(10) & Chr(13), puis vainement de rechercher cette constante VB, mais je ne l'avais pas trouvé dans l'aide.

cela fonctionne parfaitement et mon problème est résolu
Merci Marot

(je n'arrive pas à trouver comment indiquer le problème est résolu, sorry)