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 07:56:51

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

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

+ de logiciels à télécharger

1 465 017 membres
66 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 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 !

REPLACE

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 08/08/2002 Date de mise à jour : 04/09/2002 22:41:09 Vu / téléchargé: 3 703 / 196

Auteur : DeAtHCrAsH

Site perso

Ecrire un message privé

Note :

9,00 / 10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Voici un petit bout de code très simple reconstituant la fonction REPLACE de VB6.
Cette fonction permet de rechercher une chaine de charactere contenue dans une expression et de la remplacer par une autre...
Le screen parle de lui meme.

J'espere que ce code pourra se rendre utile autant que possible.

Source

Public Function ReplaceBis(Expression As String, Find As String, Replace As String) As String
Dim pos As Integer
For i = 0 To Len(Expression)
pos = InStr(1, Expression, Find)
If pos <> 0 Then
Expression = Mid(Expression, 1, pos - 1) & Replace & Mid(Expression, pos + Len(Find))
End If
Next i
ReplaceBis = Expression
End Function

Public Function ReplaceBis(Expression As String, Find As String, Replace As String) As String
Dim pos As Integer
    For i = 0 To Len(Expression)
        pos = InStr(1, Expression, Find)
        If pos <> 0 Then
            Expression = Mid(Expression, 1, pos - 1) & Replace & Mid(Expression, pos + Len(Find))
        End If
    Next i
    
ReplaceBis = Expression
End Function

Conclusion

Merci par avance pour vos commentaires...
A++ et bonne prog a tous...

DeAtH_-_CrAsH

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 !

Replace
- Form1.frm 3 713 octets
- NOTE03.ICO 1 078 octets
- Projet1.vbp 604 octets
- ReplaceBis.exe20 480 octets

Télécharger le zip

Sources du même auteur

OUVRIR UNE APPLICATION ET LA FEMER

PROGRESSBAR ( CHANGER LA COULEUR)

FICHIER ( DECOUPEUR )

DEFFILLEMENT DE TEXTE COMME DANS LES CREDITS DE JEUX

INSERER UNE IMAGE DANS UNE RICHTEXTBOX

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 Cyberdevil le 08/08/2002 21:30:24

C'est bien meme si ça existe déjà !
Mais vive VB6 !
lol
a+
cyberdevil

Commentaire de Mercury le 09/08/2002 10:52:41

Cyberdevil => Effectivement, ça existe déjà, mais seulement depuis la version de VB6, d'où l'intérêt du code proposé par DeAtHCrAsH pour ceux ayant une version antérieure à VB6 ;-)

Commentaire de tahbre le 09/08/2002 13:11:09

yep, très très utile pour moi et pour les utilisateurs de vb5 et versions précédentes,
tks DeAtHCrAsH

Commentaire de DeAtHCrAsH le 09/08/2002 13:23:52

Mercury => Exact... J'ai aussi fait la meme chose pour la fonction SPLIT... La source est aussi sur VbFrance pour ceux que ca interresse....

Commentaire de PROGRAMMIX le 07/11/2002 09:57:12

La fonction REPLACE existe bien et me paraît très pratique
MAIS elle a un inconvénient : elle prend toutes les chaines qui correspondent sans se poser de question...
J'ai une phrase du genre "L'auteur du livre s'est rendu au toilette"
Si je fait Replace(MaPhrase, "au", "") et Replace(MaPrase, "du", "") pour déblayer un peu, ça donne:
L'teur livre s'est ren toilette... Pour mois c'est un peut trop déblayer
Donc une fonction personnalité me paraît être intéressante puisqu'on peut y mettre des paramètres de vérification (à moins que dans replace aussi ???)...
Parce qu'il y a le zip et la capture, je met 9 et m'en vais voir la fonction split