[VBA] Remplacer un saut de ligne par un caractère dans un fichier

Bonjour ^^

J'ai déjà un peu regardé, et j'ai vu qu'il y avait la méthode Replace.....

Code:

---

1 2 3

Dim contenu As String = texte.Text contenu = contenu.Replace("lol", "ok") affiche.Text = contenu

---

Ou encore dans les tutoriels:
http://faqvbnet.developpez.com/?page...x_remplacement

Mais je veux crée une méthode où quand je transfert les données d'un fichier.txt, dans une base de données Access en remplaçant les retours à la ligne par un caractère....

Comment puis-je faire ?

Petit exemple de ce qui se trouve dans mon fichier.txt:
http://img293.imageshack.us/img293/1...hiertxtfe6.gif

Les rectangles (blanc parce que c'est surligné), sont en fait soit un retour à la ligne soit un caractère avec accent. Mais moi je veux juste remplacer les rectangles correspondants au retour à la ligne par un autre caractère.

Merci d'avance ! :)

Les caractères de retour à la ligne sous windows (par défaut) sont chr$(13) & chr$(10). Il suffit donc de remplacer ces caractères là.

Si le fichier à une provenance unix, c'est soit chr$(13) seul ou chr$(10) seul, me rappelles plus lequel ^^

Merci ^^

Petite question supplémentaire.....

Si mon texte dans lequel je veux changer le caractère saut de ligne par un autre, est dans un fichier texte, est ce que je dois déclarer mes variables ainsi ?

Code:

---

Dim montexte as string = nomdufichier ou chemindufichier

---

String est une variable. Ce n'est pas un flux de lecture de fichier.

Pour lire un fichier, interresse toi aux objets TextStream du FileSystemObjet

http://access.developpez.com/sources...s#FichierTexte

Hello,

Ce serait plutôt

Code:

---

Const strFilePath as String = "C:\toto.txt"

---

mais pas

Code:

---

Dim contenu As String = texte.Text

---

sinon c'est ça

Code:

---

1 2	Dim contenu As String contenu = texte.Text

---

Coucou ^^

Citation:

---

Envoyé par Tofalu

String est une variable. Ce n'est pas un flux de lecture de fichier.

Pour lire un fichier, interresse toi aux objets TextStream du FileSystemObjet

http://access.developpez.com/sources...s#FichierTexte

---

Et bien j'ai repris ce qui avait dans le lien en essayant de l'adapter, mais il me créé quelques petits soucis...

Code:

---

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

Sub Bouvrir() On Error GoTo err Dim Fichier As String 'Recuperer le nom du fichier Fichier = OuvrirUnFichier(Me.Hwnd, "Ouvrir un fichier texte", _ 1, "Fichier Texte", "txt") If Fichier <> "" Then 'Affiche le nom du fichier TFichier = Fichier 'Lit le fichier lirefichier (Fichier) End If Exit Sub err: MsgBox "Impossible d'ouvrir le fichier", vbCritical, _ "Erreur" End Sub

---

Où met-on le fichier ou le chemin du fichier ?

Et que peut-on mettre pour remplacer Me. ?

Et que signifie Hwnd ?

Merci d'avance :)

Hello,

t'embête pas t'as qu'à mettre :

Code:

---

1 2	Fichier = OuvrirUnFichier(0, "Ouvrir un fichier texte", _ 1, "Fichier Texte", "txt")

---

Franchement ! Il n'est pas sympathique ce Me.

Il me refait une erreur avec Me. mais cette fois-ci dans la fonction OuvrirUnFichier:

Code:

---

1 2 3 4 5 6 7

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long ShellExecute Me.hwnd, "open", "\\beaqae\HDC_ESPACE_COMMUN\Statistiques\Applications\Developpements\Suivi_TR_NIV2\Query1.txt", "", CurrentProject.Path, 1 End Function

---

Pour le Me. il affiche : "Instruction incorrecte à l'extérieur d'une procédure"
:(

Désolée, mais franchement là je m'en sort pas trop... :?

Il me semble avoir écrit dans le post juste avant que tu pouvais tester de remplacer Me.Hwnd par 0 ... non ?

Oui, je l'ai fait (disons que je me suis trompée en le fesant, j'avais remplacé Me.hwmd par 0 et non pas seulement Me. :oops: )

Et désolée de vous avoir fait répéter, disons que je commence à m'énervée sur ce projet de programme, mais aussi un peu fatiguée, donc un peu distraite par la même occasion. :oops: :oops: :oops:

Mais bon là en rectifiant le tire, il me demande "Attendu : fin d'instruction" en me surlignant hwnd.

O_o

Si ça ne marche pas en remplace Me.Hwnd par 0, essaie de remplacer par Me.Hwnd par Application.hWndAccessApp

C'est bien le me.hwnd qui est à remplacé par 0, comme l'a indiqué cafeine. Seulement, il est utilisé à plusieurs endroits

Coucou ^^

Dans les deux cas, que je remplace :

- Me.hwnd par 0, il me surligne 0 et affiche : "Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

- Me.hwnd par Application.hWndAccessApp, il me surligne Application et affiche : "Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

:? Aurais-je un sérieux problème à faire cette partie de programme (ou j'ai encore oublié une information ? :oops: ), ou je rêve ? :(

Recommence tout depuis le début, tu as du faire une erreur ;)

oki ^^

hum.....

Code:

---

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

Private Sub Bouvrir_Click() On Error GoTo err Dim Fichier As String 'Recuper le nom du fichier Fichier = OuvrirUnFichier(Me.hwnd, "Ouvrir un fichier texte", _ 1, "Fichier Texte", "txt") If Fichier <> "" Then 'Affiche le nom du fichier TFichier = Fichier 'Lit le fichier lirefichier (Fichier) End If Exit Sub err: MsgBox "Impossible d'ouvrir le fichier", vbCritical, _ "Erreur" End Sub

---

Dans la partie du code en rouge, où dois-je indiquer le chemin vers mon fichier ? Au niveau de "Fichier texte", non ?

Merci d'avance :)

Personne ? :oops:

Et si tu prenais le temps de tout lire ?

Dans le code source il est écrit :

Citation:

---

La fonction OuvrirUnFichier est disponible dans la FAQ Access ainsi que dans le fichier source zippé.

---

Si tu la regarde de plus près cette fonction, tu t'appercevra qu'elle retourne le nom du fichier. Il faut donc que tu la remplaces par le nom du fichier (puisqu'apparemment tu n'as pas besoin de la fonction OuvrirUnFichier)

Excusez moi mais j'ai bien lu.....

Citation:

---

Envoyé par Tofalu

Et si tu prenais le temps de tout lire ?

Dans le code source il est écrit :


Citation:
La fonction OuvrirUnFichier est disponible dans la FAQ Access ainsi que dans le fichier source zippé.

---

Et c'est en cliquant sur le lien que j'ai dut chercher et trouver ce code là, car le lien n'indique que la FAQ Access, et donc voilà je suis tombée la dessus en cherchant "comment ouvrir un fichier", car il n'y avait pas OuvrirUnFIchier...

Elle était dans le zip aussi :roll:

Oui je viens de passer quelques minutes à chercher sur la recherche avec OuvrirUnFichier et j'ai fini par le trouvé....

Et bien j'aurais pas pensé à le chercher là....

http://access.developpez.com/faq/?pa...#AffBoitDialog

Edit : :oops: oye, je suis tellement prise à vouloir du code, que je ne regarde même pas à coté, sous mon nez quoi (le zip).... Ca m'arrive souvent de chercher longtemps quelque chose et que finalement celui ci se trouve sous mon nez.....

:boulet: