Cherche méthode simple de recherche de chaine de caractèresRésolu

Question

Bonjour à tous,


Je souhaiterais récupérer dans un fichier comme ci-dessous les nom, prénom, adresse, code postal et ville.


Existe-t-il une solution simple?


Merci d'avance pour vos réponses. Cordialement



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




8900020396619(@@@)00(@@@)COLD(@@@)(@@@)155(@@@)LAURENT MARTIN(@@@)5 RUE MARECHAL(@@@)(@@@)CODE GRILLE 440(@@@)75012(@@@)PARIS(@@@)FR(@@@)

NHenry · Accepted Answer

Bonjour,

Essaye avec Split

http://nhen0039.chez-alice.fr/index.php

Renfield · Answer

voir Split
avec (@@@) comme séparateur

te découpera la chaine en autant d'elements...

Dim sBuffer as string
dim xsParts() as string
sBuffer = "8900020396619(@@@)00(@@@)COLD(@@@)(@@@)155(@@@)LAURENT MARTIN(@@@)5 RUE MARECHAL(@@@)(@@@)CODE GRILLE 440(@@@)75012(@@@)PARIS(@@@)FR(@@@)"

xsParts = Split(sBuffer, "(@@@)")

sNom = xsParts(5)
sAdresse = xsParts(6)
sCP = xsParts(9)
sVille = xsParts(10)

PCPT · Answer

salut,

tite modif du code de Renfield

    Dim iPos As Integer
    iPos = InStr(1, xsParts(5), " ")
    
    Debug.Print "nom : '" & Left$(xsParts(5), iPos - 1) & "'"
    Debug.Print "prénom : '" & Mid$(xsParts(5), iPos + 1) & "'"

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_tolt · Answer

Voilà une petit fonction que j'utilise dans tout mes projets.

Public Function FindParm(ByVal ChaineSource As String, NumeroParm As Integer, Separe As String) As String
On Error GoTo razFindParm
FindParm = Split(ChaineSource, Separe)(NumeroParm)
Exit Function
razFindParm:
FindParm = ""
End Function

Renfield · Answer

"super", cinq parametres a extraire, cinq fois le même split appliqué... (pas top coté perfs)

au suivant !

cs_tolt · Answer

Je prends largement votre méthode Renfield.
Vous êtes très fortiche Renfield. Félicitation.

Renfield · Answer

ben.... euh merci ^^

c'est pas 'ma' méthode, c'est juste une remarque comme ça...
bien souvent, le code le plus court, n'a pas gage d'etre le plus rapide.

a optimiser si c'est un point critique, sinon, ca peut convenir

Cherche méthode simple de recherche de chaine de caractères

7 réponses

Votre réponse