Suppresion d'un mot précis

Question

Bjr a tt le monde.

Je voudrai faire un petit programme qui supprime une ligne compléte avec le mot que je voudré suprimer.

Le mot sera dans un TextBox1.

Merci de bien repondre au plus vite.

cs_ShayW · Answer

Salut
je n'ai pas compris 

 qui supprime une ligne compléte avec le mot que je voudré suprimer. 

c'est quoi la ligne? d'un fichier txt !!
expliques ce que tu veux faire exactement

dognico · Answer

En marquand dans un textbox un mot & qu'il clik sur le btn, ba que le mot marquer ds le textbox soit supprimer du fichier txt.

ex:

textbox = le_mot_de_l'utilisateur(toto)


avant........

fichier txt

toto
lolo
lili
juju
...

clik sur le btn = supprésion du mot.


apres.......

fichier txt

lolo
lili
juju
...


Voila.

l0r3nz1 · Answer

Salut,

a utliser,
instr pour savoir si il y a un mot et sa taille
lenght pour connaitre la taille du mot
logiquement tu devrais te renseigner sur la fonction mid qui doit être utile dans ce cas

conseil; fais une fonction tres générale qui supprime un mot d'une chaine.
exple;
chaine = avant + mot + apres
new = avant + apres

applique ta fonction au f texte tu reecrit

Voila

cs_ShayW · Answer

Salut


 Private Sub ReadWriteFile3(wordtodelete As String)
Dim strg As String
Dim allstr As String
Dim nfile As Integer
nfile = FreeFile
 allstr = ""
 Open "E:\ReadFile\BLABLA.TXT" For Input As #nfile
 Do While Not EOF(nfile)
    Line Input #nfile, strg
    If strg <> wordtodelete Then
      allstr = allstr + strg + vbCrLf
   End If
 Loop
Close #nfile
 nfile = FreeFile
  Open "E:\ReadFile\BLABLA.TXT" For Output As #nfile
   Print #nfile, allstr
  Close #nfile
End Sub


ReadWriteFile3 ("toto")
ou
ReadWriteFile3 textbox1.text

l0r3nz1 · Answer

If strg <> wordtodelete Then

utiliser plutot "instr" pour cette question precise;
"qui supprime une ligne compléte avec le mot que je voudré suprimer. "

cs_ShayW · Answer

Ah oui t'as raison  
il peut avoir plusieurs mots 

 If InStr(strg, wordtodelete) = 0 Then
      allstr = allstr + strg + vbCrLf
   End If

Suppresion d'un mot précis

6 réponses

Votre réponse

Discussions similaires