Discussion :

[newbie-sorry]

Bonjour tout le monde

je post ici une question que j ai deja posé mais surement dans une rubrique inadequate

j'ai réussi à trouver sur le web une macro pour remplacer des mots suivants une liste de mots contenu dans un fichier .txt
le fichier .txt se compose de la forme suivante .

tata,tutu
toto,titi

sous Word la macro me permet de remplacer automatiquement les mots avec le fichier texte que je choisi.
Au boulot, mon prédécesseur a fait installer VIsual Sutdio 2008. pendant mon temps libre j'ai farfouiller et j'ai remarquer toutes les possibilités offertes par
ce logiciel.
j'ai créer un wpf pour me créer deux text box
la première m affiche mon fichier texte avec ma liste de mots
je voudrais adapter le code ci après que j ai sous word pour créer une appli qui me permette de faire exactement la même chose via directement un executable.

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 RemplaFich()
 
Dim oFSO As New FileSystemObject
Dim oFS
 
Set oFS = oFSO.OpenTextFile("c:\temp\mots.txt")
Do Until oFS.AtEndOfStream
stext = oFS.ReadLine
mot = Split(stext, ",")
 
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = mot(0)
        .Replacement.Text = mot(1)
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
Loop
'
End Sub

je vous remercie par avance pour votre aide

[Invité]

Bonjour

Tu veux une adaptation, mais tu ne dis pas sous quel langage, VB.net, C++, etc... Car avec Visual Studio tu as plusieurs possibilités.

En fonction de ton retour, ton post sera déplacé sur le forum adéquat, car les membres du forum VBA Word ne connaissent pas obligatoirement les autres langages.

Philippe

[newbie-sorry]

bonjour et merci de cette réponse

désolé d avoir oublié l essentiel.
c est en VB.net que je souhaite l adapter

au plaisir de vous lire

[newbie-sorry]

bonjour,

la discussion a été déplacé.
je me rends compte qu il faut que je sois super précis dans mes questions oups.
et que surtout je ne m'éparpille pas ...
au plaisir de vous lire

[clementmarcotte]

Bonjour,

Ma première question est de savoir si tu veux remplacer des mots d'un fichier texte dans un autre fichier texte et enregistrer dans un fichier texte ?

Si c'est cela, tu peux le faire très facilement, et sans Word, avec String.replace.

Par exemple, remplacer Remplacer Antoine par Octave dans TextBox1

Code :

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

1
2
3
4
sub remplace()
     dim letexte as string = textbox1.text
     letexte.replace("Antoine","Octave")
end sub

Ou, veux-tu importer un fichier texte dans Word, changer des mots et en enregistrer dans le format Word ?

Ou, veux-tu modifier un document Word existant en te servant d'une liste de mots que tu prends dans un fichier texte ?

Dans ces deux-cas, le plus simple me semble d'utiliser Word, bien que ce ne soit pas obligatoire.

Mais, si tu as besoin d'un texte mis en forme, et que tu n'as pas besoin de simagrées exclusives à Word, tu peux aussi envisager d'utiliser un RichTextBox directement sur ta Form et l'enregistrer en RTF. Dans ce cas, tu n'as pas besoin de Word, et Word peut charger ton document, en principe sans massacrer ta mise en forme.

P.S. Le code que tu fournis n'enregistre pas le fichier modifié. Pour la manipulation de fichiers texte en VB.net, il y a plus d'une façon de le faire. Ce sera plus simple à régler (de décider), si tu nous dis à quoi doit servir le fichier modifié.

[newbie-sorry]

bonjour merci tout d abord de votre réponse.


Comme je l ai annoncé dans mon post. la macro fait cela à merveille avec Word.
Mais En fait, je veux "squizzer" Word. c'est même impératif pour moi.

En fait pour plus d explications de mon problème.
je récupère des fichiers avec un format particulier (format propriétaire).
le seul moyen de les ouvrir est via un fichier texte.
auparavant j étais donc obliger de l’ouvrir avec bloc note, de copier mon texte dans word et donc de lancer ma macro. vous comprendrez que c'est fastidieux ...

les différentes valeurs à remplacer diffèrent souvent.
il faut que je choisisse ma "table" de remplacement qui se trouve dans un fichier texte qui est du format suivant ...
titi, tutu
tata,toto

c’est la manière la plus pratique pour ce que je veux faire.

Le but du jeu pour l instant est pour moi de choisir mon fichier ou je dois remplacer les occurrences dans une première textbox. (opensystem dialog)
puis de sélectionner le fichier texte qui contient les fameux titi,tutu pour lui dire de remplacer dans la première les valeurs.
ainsi je pourrais directement enregistrer ma textbox 1 sous un autre nom avec les valeurs remplacées.

La finalité quand je maitriserais mieux la programmation /
de lancer cette appli et qu elle cherche automatiquement les occurrences et qu elle les remplace tout aussi automatiquement sans que je choisisse tel ou tel fichier txt qui contient ma "table de remplacement".
En somme, que l appli cherche, dans un répertoire où se trouvent les fichiers texte comprenant les "tables", le bon fichier comprenant les bonnes occurrences et qu il remplace automatiquement mon texte dans mon fichier essai.txt
exemple 1.txt comprenant toto,titi
2.txt comprenant tutu,tata
3.txt comprenant dodo,dada

mon fichier texte a remplacer
essaie.txt
bonjour tutu
il trouve donc le fichier 2.txt tout seul et remplace tout seul mon fichier essai par
bonjour tata

arffff ca fait beaucoup de titi toto tata tululut lol


voila en espérant avoir été plus clair