Discussion :

[QuentinR]

Salut à tous.

Je cherche à écrire une petite macro toute simple qui me permettrait de rajouter du texte (venant d'un classeur Excel ou pas) à un fichier .txt.

Pour l'instant je suis sur quelque chose du genre, juste pour découvrir les commandes et comment ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TextModif()
 
Filename = "D:\Test.txt"
 
Open Filename For Output As #1
Print #1, "Test"
Print #1, Tab(8); Range("B3")
Close #1
 
End Sub

Ce code ouvre effectivement le fichier Test.txt et vide complètement son contenu pour le remplacer par "Test", un saut de ligne, 7 tabulations et la valeur qu'il y a dans la cellule B3. Sur ce point là c'est bien, mais j'aimerais maintenant savoir comment faire pour que ce qu'il y avait avant dans le fichier ne soit pas supprimé par mon nouveau texte.

En gros je voudrais pouvoir rajouter ce texte à la fin de mon fichier .txt, ou au début, ou à partir de la 5° ligne. Ou même faire un truc du genre "Si à un moment dans le fichier texte il y a la chaîne de caractères 'plop', insérer ici le contenu de la cellule A2". Mais je ne connais pas les commandes pour naviguer dans un fichier .txt et donc je suis un peu bloqué.

Merci d'avance de votre aide !
Quentin

[EngueEngue]

va chercher le end of file EOF et tu continues à partir de là

[SfJ5Rpw8]

bonjour,


tout simplement "Ajout ":

Code :

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

Open Filename For Append As #1

[QuentinR]

Merci pour cette commande Append, c'est fort !

Mais ça ne répond pas totalement à ma question, si j'ai envie de faire mes modifications à un endroit précis au milieu du fichier texte, est-ce que je peux dire à ma macro d'aller spécifiquement à telle ligne/tel endroit pour rajouter ou remplacer des trucs ?
(et comment je lui dis de sauter une/plusieurs lignes ?)

[SfJ5Rpw8]

Tu ne peu pas il faut ré-écrire tout le fichier ...

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub TextModif()
 Dim TXT As String
 Dim TextLine As String
Filename = "D:\Test.txt"
 
 
Open Filename For Input As #1 'Ouverture du fichier en lecture.
Do While Not EOF(1)
    Line Input #1, TextLine 'Lecture de la ligne
    If TextLine = "Ma Valeur" Then TXT = TXT & AjouterText() 'Si le test est concluant j'ajoute mes valeurs dans mon cas A, B, C, D…J
    TXT = TXT & TextLine & vbCrLf 'Je concatène mon texte
Loop
Close #1
 Open Filename For Output As #1 'Ouverture du fichier en écriture.
Write #1, TXT 'Je stock dans mon fichier la variable TXT
Close #1
End Sub
Function AjouterText() As String
Dim I As Long
For I = 0 To 10
AjouterText = AjouterText & Chr(65 + I) & vbCrLf '65 =A 66=B ...
Next
 
End Function

[QuentinR]

Merci pour ce code, il fonctionne en effet très bien pour rajouter du texte Je vais essayer de l'adapter pour qu'il ne checke pas que des lignes entières mais juste des chaînes de caractères au sein des lignes (je cherche plutôt des correspondances avec des mots/chiffres qu'avec des lignes entières ; si un tel mot est quelque part alors blablabla). Mais c'est déjà un bon progrès comme ça.

Par contre j'ai l'impression qu'à chaque fois que je fais tourner la macro il rajoute des " au début et à la fin du fichier .txt, et je ne comprends pas pourquoi...

[Invité]

Code :

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

1
2
3
If InStr("voila ma phrase préféré", "phrase") <> 0 Then MsgBox "phrase"
If Left("voila ma phrase préféré", 5) = "voila" Then MsgBox "voila"
If Right("voila ma phrase préféré", 7) = "préféré" Then MsgBox "préféré"

[Theze]

Bonjour,

Voir aussi avec l'opérateur "Like" :

Code :

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

1
2
3
4
5
6
 
Dim Texte As String
 
Texte = "Ici une phrase où l'on souhaite savoir si un mot en particulier ou une partie de mot s'y trouve !"
 
If Texte Like "*sav*" Then MsgBox "Trouvé !"

Hervé.

[QuentinR]

J'aime bien la fonction InStr, qui correspond plutôt bien à ce que je recherche
Pour la concaténation du texte, est-ce qu'il n'y aurait pas moyen de faire en sorte d'insérer (plus précisément de remplacer) du texte à l'endroit où le programme détecte le mot recherché ?

Du genre si j'ai "Nombre de quiches 32 blablabla" dans mon fichier, et que je veux que ma macro remplace le '32' par '18' une fois qu'elle a détecté la chaîne de caractères "quiches", comment je peux faire ?

(et une idée sur pourquoi j'obtiens des guillemets au début et à la fin de mon nouveau fichier .txt une fois que la macro a tourné une fois ?)

Merci beaucoup pour votre aide en tout cas

[Invité]

Code :

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

Debug.Print Replace("Nombre de quiches 32 blablabla", "32", "18")

[SfJ5Rpw8]

Bonjour,


un cas d'utilisation un peu particulier de la fonction Mid :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Remplace32par18()
Dim stLigne As String
 
Dim iPosQuiches As Integer
 
stLigne = "Nombre de quiches 32 blablabla"
 
iPosQuiches = InStr(1, stLigne, "Quiches", vbTextCompare)
 
If iPosQuiches > 0 Then
        Mid(stLigne, iPosQuiches + Len("Quiches ")) = "18"
        MsgBox stLigne
    Else
        MsgBox "Pas de quiches"
End If
 
 
 
End Sub

[Theze]

Dans ce cas, un accès binaire peut le faire. On stocke en mémoire, on fais la modif et on remplace :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Remplacer()
 
    Dim Tampon As String
 
    Open "F:\Texte.txt" For Binary As #1
 
        Tampon = Space(LOF(1))
        Get #1, , Tampon
 
    Close #1
 
    Tampon = Replace(Tampon, "Mot1", "Mot2")
 
    Open "F:\Texte.txt" For Binary As #1
 
        Put #1, , Tampon
 
    Close #1
 
End Sub

Hervé.

[QuentinR]

Bonjour,

Merci à tous pour vos réponses qui m'ont bien aidé.

J'aurais une autre question toute simple : quelle est la commande qui sélectionne les caractères (sur une ligne du fichier .txt) allant du x-ième caractère au y-ième de la ligne (pour pouvoir les rentrer dans la fonction "Replace" ensuite) ?

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Strat As Long
Dim NbChar As Long
Texte = "Ici une phrase où l'on souhaite savoir si un mot en particulier ou une partie de mot s'y trouve !"
Strat = 5
NbChar = 10
Texte2 = Mid(Texte, Strat, NbChar)
Debug.Print Texte2
End Sub

[QuentinR]

Bonjour !

Merci rdurupt pour ton aide, ça fonctionne bien

Mais toujours une nouvelle question vient se rajouter : quelle commande utiliser si je veux supprimer carrément une ligne du fichier texte (par exemple, la 1ère et la dernière ligne) ? J'imagine qu'il faut ouvrir le fichier en Append et qu'il y a une sorte de commande "Delete", mais comment faire ça "proprement" ? Je voudrais si possible une solution autre que "je copie toutes les lignes que je ne veux pas supprimer et je les colle ailleurs", si jamais une telle solution existe.

Merci !

[Invité]

Code :

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

1
2
3
4
5
6
7
8
'Pour la première tu peux faire une lecture pour rien
If EOF(1) = False Then Line Input #1, TextLine 
Do While Not EOF(1)
    Line Input #1, TextLine 'Lecture de la ligne
    If TextLine <> "Je ne mettrais pas ça" Then
       TXT = TXT & TextLine & vbCrLf 'Je concatène mon texte
    End If
Loop

Si non tu as une autre solution faire un tableau à partir de la variable TXT
Un tableau commence a 0 et fini a UBound
0= première ligne UBound= dernière ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
Do While Not EOF(1)
    Line Input #1, TextLine 'Lecture de la ligne
           txt = txt & TextLine & vbCrLf 'Je concatène mon texte
    Loop
 Montable = Split(txt, vbCrLf)
 Open Filename For Output As #1 'Ouverture du fichier en écriture.
 For i = 1 To UBound(Montable) - 1 'Ne prend pas en compte la ligne 0 et la ligne UBound
    Print #1, Trim("" & Montable(i)) 'Je stock dans mon fichier la variable Montable(I)
Next
Close #1

[QuentinR]

Bonjour,

j'ai un autre petit souci actuellement avec cette macro de modification de fichier Excel (pas encore eu le temps de me pencher vraiment sur ton dernier message rdurupt mais ça m'a l'air bon).

En fait le fichier texte en question est censé être utilisé en donnée d'entrée d'un logiciel de simulation (Dymola, basé sur le langage Modelica) ; la macro de modification du fichier texte doit permettre de modifier à partir d'une interface Excel certaines variables d'entrées directement dans ce fichier texte pour plus de simplicité.

Bref le souci est qu'après la modification de ce fichier texte, celui-ci n'est plus lisible par Dymola. D'ailleurs après avoir testé, en modifiant simplement le fichier texte à la main (via le Bloc-Notes Windows), il devient également illisible. Après avoir un peu cherché sur internet j'ai trouvé que le Bloc-Notes Windows avait des soucis de compatibilité et d'encodage au niveau des sauts de ligne par exemple, donc que cela pouvait peut-être expliquer ces soucis...

La question est du coup : est-ce possible de passer outre ces soucis ? Je pensais à tenter de modifier le fichier texte avec un meilleur outil que le Bloc-Notes de base (Notepad++ ?), et est-ce possible alors de dire à la macro Excel qu'elle doit modifier ce fichier texte via Notepad++ et non le Bloc-Notes ?

Merci d'avance !
Quentin

[Marc-L]

Bonjour,

un programme VBA modifie un fichier par ses propres moyens, suffit de lui faire respecter la structure de Dymola …

[Invité]

Bonjour,
ton souci, me semble-t-il, est plus un question de format ISO ou UTF8.
il faut savoir si Dymola est en Utf8.

si c'est cela, nous avons un double problème, pas méchant au demeurant, mais existant.

1) les données de ton fichier sont en Utf8 et nous les traitons en ISO (il faut les convertir en ISO avant de les traiter).

2) après traitement nous les enregistrons au format ISO (il faut les convertir en Utf8 avant l'enregistrement)

prenons ton fichier brut, peux tu L'importer dans un environnement de test de Dymola.

si non regardons déjà ça. si oui informe toi sur le format d'entré des fichier dans Dymola.