begin process at 2012 02 11 11:00:03
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > SUPPRIMER UN MOT DANS UN TEXTE

SUPPRIMER UN MOT DANS UN TEXTE


 Information sur la source

Note :
Aucune note
Catégorie :Texte Niveau :Débutant Date de création :01/06/2002 Date de mise à jour :01/06/2002 15:11:09 Vu / téléchargé :2 128 / 152
Auteur : DeAtHCrAsH

Ecrire un message privé
Site perso
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voici un bout de code qui permet de supprimer un mot dans un texte ...
J'ai fait ce code en reponse a une question sur le forum ....

Source

  • Private Sub Command1_Click()
  • res = vbNullString
  • txt = LCase(Text1.Text)
  • mot = LCase(Text2.Text)
  • Dim MyTab() As String
  • MyTab = Split(txt, " ")
  • For i = 0 To UBound(MyTab)
  • If MyTab(i) = mot Then
  • For a = 0 To i - 1
  • res = res & MyTab(a) & " "
  • Next a
  • For x = i + 1 To UBound(MyTab)
  • res = res & MyTab(x) & " "
  • Next x
  • End If
  • Next i
  • Text3.Text = res
  • If res = vbNullString Then MsgBox "Cette phrase ne contient pas ce mot !", vbCritical, "Mot introuvable"
  • End Sub 
Private Sub Command1_Click()
res = vbNullString
txt = LCase(Text1.Text)
mot = LCase(Text2.Text)
Dim MyTab() As String
MyTab = Split(txt, " ")

For i = 0 To UBound(MyTab)
If MyTab(i) = mot Then
 For a = 0 To i - 1
 res = res & MyTab(a) & " "
 Next a
 
 For x = i + 1 To UBound(MyTab)
 res = res & MyTab(x) & " "
 Next x
 
End If
Next i

Text3.Text = res
If res = vbNullString Then MsgBox "Cette phrase ne contient pas ce mot !", vbCritical, "Mot introuvable"

End Sub

 Conclusion

Toutes remarques sera la bienvenue:]

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture OUVRIR UNE APPLICATION ET LA FEMER
Source avec Zip Source avec une capture PROGRESSBAR ( CHANGER LA COULEUR)
Source avec Zip Source avec une capture REPLACE
Source avec Zip Source avec une capture FICHIER ( DECOUPEUR )
Source avec Zip Source avec une capture DEFFILLEMENT DE TEXTE COMME DANS LES CREDITS DE JEUX
Toutes les sources de DeAtHCrAsH

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de zefri le 01/06/2002 18:29:18

Test :
Text1.text = "Tout, tout, absolument tout.", Text1.text ="tout".
Résultat : "Cette phrase ne contient pas ce mot".

En effet, MyTab(i) sera égal à "tout," qui n'est pas la même chose que "tout".
Une autre remarque c'est que le texte au final se retrouve tout en minuscules.
C'est donc écrire beaucoup de code pour pas grand chose, si tu connais la fonction Replace, elle fait le boulot toute seule.

Text3.Text = Replace( LCase(Text1.Text), LCase(Text2.Text), "")

Ca donne un code un peu plus simple !

Commentaire de muad-dib le 01/06/2002 20:56:08

et encore un truc complètement inutile et mal codé ..

Commentaire de SHIVA le 01/06/2002 23:01:51

en vb5 la commande replace n'existe pas

Commentaire de DeAtHCrAsH le 01/06/2002 23:34:57

merci SHIVA....
En plus de cela ce code a été fait pour une personne qui ma demandé une maniere pour supprimer un mot dans une phrase en utilisant l'espace comme separateur ...

Sinon a part ca je repete qu'il serai gentil de respecter les codeurs ainsi que leur code ...

Bonne prog @LL
A++

DeAtH_-_CrAsH

P.S Tout le monde n'a pas vb5 et les codes de ce genre sont la pour but instructif ...
Je ne fais pas des programmes pour me la peter comme certains ....
Je code pour mon plaisirs et j'emmerde toute les grandes gueules qui ne sont la que pour critiquer les sources des gens par jalousie !

Commentaire de Zeroc00l le 02/06/2002 00:49:23

Si dans VB5 t'as la fonction :
i = Instr(1, txt, mot)
Alors y'a plus simple que ton code assez compliqué à mes yeux ...

Commentaire de revivall le 03/06/2002 21:21:20

je voudrais pas te critiquer mais si tu fais des progs pour VB5 fais le en entier car Split() n'existe pas sur VB5 si je me trompes pas !
ça fait un prog + compliqué mais je te suggères de faire le découpage et le remplacement ds la même boucle
@ +

Commentaire de DeAtHCrAsH le 04/06/2002 14:56:55

Ralalalala ... j'ai jamais dis que je codais pour du VB5 ... J'ai dis que si j'avais fait ce bout de code c'etait suite a la demande d'un gars ayant vb6 qui ma demandé comment recuperer les mots d'une phrase en sachant que l'espace etait utilisé comme separateur ... Et ensuite il m'a demandé comment suprimer ce mot une fois qu'on l'avait trouvé ....
Puis comme le dit SHIVA, Replace n'existe pas en VB5 et ce bout de code peux substituer  a la fonction replace....

Commentaire de Zeroc00l le 23/06/2002 19:13:28

pk ne pas mettre :

Dim Existait As Boolan
Dim TXT As string
Dim Mot As String
Dim Temp

TXT = Lcase(text1.text)
Mot = Lcase(text2.text) & " "

While InStr(1, TXT, Mot)
    Existait = True
    Temp = InStr(1, TXT, Mot)
    TXT = Left(TXT, Temp) & Right(TXT, Len(TXT)-Len(Mot)-Temp)
Wend

if not(Existait) then Msgbox "Cette phrase ne contient pas ce mot !", vbCritical, "Mot introuvable"

C'est plus rapide et plus simple à mes yeux ... Mais enfin j'ai pas testé ce code ...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Waterfall in Kauai Hawaii With Rainbow
Photo Saintes Maries de la Mer vue du ciel (13) 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,281 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)