begin process at 2012 02 16 22:45:56
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE

CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE


 Information sur la source

Note :
1,5 / 10 - par 2 personnes
1,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :rechercher, chaine Niveau :Débutant Date de création :07/01/2002 Date de mise à jour :07/01/2002 22:10:11 Vu :13 502

Auteur : Jeje Software®

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

 Description

Function permettant  de chercher une chaine de caractère dans une autre

Source

  • Function SearchText(ByVal Chaine As String, ByVal Separateur As String, Optional ByVal Gauche As Boolean) As String
  • Dim Position As Integer
  • Dim Texte As String
  • If Gauche = True Then
  • Position = 1
  • Texte = Chaine
  • While Right(Texte, Len(Separateur)) <> Separateur
  • Texte = Left(Chaine, Position)
  • Position = Position + 1
  • Wend
  • SearchText = Left(Chaine, Position - 1 - Len(Separateur))
  • Else
  • Position = Len(Chaine)
  • Texte = Chaine
  • While Left(Texte, Len(Separateur)) <> Separateur
  • Texte = Right(Chaine, Position)
  • Position = Position - 1
  • Wend
  • SearchText = Right(Chaine, Position)
  • End If
  • End Function
Function SearchText(ByVal Chaine As String, ByVal Separateur As String, Optional ByVal Gauche As Boolean) As String
 Dim Position As Integer
 Dim Texte As String
If Gauche = True Then
  Position = 1
  Texte = Chaine
  While Right(Texte, Len(Separateur)) <> Separateur
    Texte = Left(Chaine, Position)
    Position = Position + 1
  Wend
  SearchText = Left(Chaine, Position - 1 - Len(Separateur))
Else
  Position = Len(Chaine)
  Texte = Chaine
  While Left(Texte, Len(Separateur)) <> Separateur
    Texte = Right(Chaine, Position)
    Position = Position - 1
  Wend
  SearchText = Right(Chaine, Position)
End If
End Function 

 Conclusion

Si bug mail me


 Sources du même auteur

RECUPERER LES ACCOMPTES INTERNET D'UNE MACHINE (SANS API)
CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE (+EXPLICATIO...
Source avec Zip PERIPHERIQUES INFO
Source avec Zip FONCTIONNEMENT DE WINSOCK

 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

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VBS] IMG2HTML RECHERCHER LES DIFFÉRENTS TYPES D'IMAGES ET L... par hackoo
CHAÎNE ALÉATOIRE / RANDOM STRING par mizoz
Source avec Zip RECHERCHER TOUS LES FICHIERS DONT L'EXTENSION EST *.VBS ET L... par hackoo
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DE DONNÉES AVEC ACCESS par fradimed
Source avec Zip Source avec une capture WINSED (RECHERCHER / REMPLACER) par Valentino

Commentaires et avis

Commentaire de shivan le 07/01/2002 22:38:23

tu peux donner un exemple de ce que ca doit faire stp ?

Commentaire de Jeje Software® le 13/04/2002 01:16:30

Nouvelle source+explication :

CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE (+EXPLICATIONS)

Commentaire de econs le 05/04/2006 13:12:37 administrateur CS

Salut,
En relisant le code, je dirais plutôt que ta fonction renvoit la chaine de caractères à droite ou à gauche d'un séparateur.

Pour rechercher un séparateur dans une chaine, il y a InStr()
Et si tu veux commencer par la fin de ta chaine, il y a InStrRev()
Pour découper une chaine selon un séparateur, il y a Split()


En plus, petit souci avec ta source. Si je l'appelle comme ceci :

MsgBox SearchText("bonjour", "c", False)

Et bien ... patatra, plantage car "c" n'appartient pas à "bonjour".

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

rechercher des chaine de caractère entre double parenthèses. [ par faraji1970 ] Bonjour à tous,Je suis débutant en VBA, mon problème c'est de rechercher des chaines de caractère situées entre double parenthèse dans des fichiers wo rechercher un chaine... [ par LeRoux ] Je veut ouvrir un fichier texte et rechercher quel est la ligne contenant "ex: blablabla.text" au début de celle-ci pour ensuite la mettre dans une va Rechercher une chaine de caractère dans un fichier texte... [ par Luuna ] Je cherche à convertir un fichier texte en table Access par l'intermédiaire de VB6...Voici le code dont je me sert tiré d'un livre :------------------ Visio : comment rechercher une chaine en VBA [ par Ophilippe ] Bonjour :Je viens de m'appercevoir avec surprise que ce que je fais couramment en VBA/excel n'est pas possible simplement en VBA/Visio2000 : recherche rechercher lettres [ par richoux ] Bonjour, je voulais savoir quelle fonction je pouvais utiliser pour rechercher si une lettre et dans&nbsp;une chaine de caractere.je recupere une chai rechercher et afficher [ par webanis ] salut   comment parcourire  une tableau a une dimenesion N  avec un recherche d'une chaine bien defini et lorsque  en ne trouve pas cette chaine Rechercher dans une chaine [ par Le newbie ] Salut.J'ai une chaine "C:\toto tata\test toto.wav 1/0/230/4268/51023/41023 toto radioreveil machin"Je voudrais seulement récupérer la valeur de la cha Fonction rechercher [ par Florian62150 ] Slt tout le monde =) Je travaille sous EXCEL avec le language VBA. Je voudrai savoir s'il y a une fonction en VBA qui s'occupe de chercher une valeu rechercher dans une arraylist [ par dibax10 ] bonsoir , sa fait 1h que je cherche comment je peux chercher dans une arraylist et afficher le resultat rechercher j ai la classe enseignant qui hèri Rechercher un nom dans un tableau [ par onix64 ] Bonjour, Je bloque sur un bout de programme : j'ai 4 fichiers texte (texte1, texte2, texte3, texte4) contenant chacun 30 noms de joueurs de rugby. J'


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

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 : 6,895 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales