Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 15:49:02

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : PROBLEME D'ECRITURE DE CODE par shenkool

RE : OBJET SORT, MéTHODE APPLY, ERREUR 1004 par kardiss

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : LIRE DANS UN FICHIER CSV DE 170MO AVEC ACCESS par mmmxtina

+ de logiciels à télécharger

1 465 317 membres
365 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 260 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SUPPRIMER UN MOT DANS UN TEXTE

Information sur la source

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é: 1 644 / 127

Auteur : DeAtHCrAsH

Site perso

Ecrire un message privé

Note :
Aucune note

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Find_And_Delete_Word.exe24 576 octets
Form1.frm 2 736 octets
Projet1.vbp 694 octets

Télécharger le zip

Sources du même auteur

OUVRIR UNE APPLICATION ET LA FEMER

PROGRESSBAR ( CHANGER LA COULEUR)

REPLACE

FICHIER ( DECOUPEUR )

DEFFILLEMENT DE TEXTE COMME DANS LES CREDITS DE JEUX

Toutes les sources de DeAtHCrAsH

Sources de la même categorie

TEXTSTYLE, EDITOR HTML par jupevi

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb

EDITEUR DE TEXTE par ali5

SMS GENERATOR par jack

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

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 ...