Remplacer une chaine entre a et b
Résolu
kelm_by
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
-
9 févr. 2007 à 01:19
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 13 févr. 2007 à 23:06
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 13 févr. 2007 à 23:06
A voir également:
- Remplacer une chaine entre a et b
- Vba remplacer caractère - Forum Visual Basic
- Le format de la chaîne d'entrée est incorrect ✓ - Forum C# / .NET
- Vba remplacer caractère spéciaux - Forum Visual Basic
- Parcourir une chaine de caractère en python - Forum Python
- Vba longueur chaine ✓ - Forum Visual Basic
6 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
13 févr. 2007 à 23:06
13 févr. 2007 à 23:06
exact. en même temps le plus gros était fait non? restait plus qu'à intercaler une variable, pas si difficile quand même....
Option Explicit
Private Sub Form_Load()
Dim sStr As String
sStr = "
machin
"
Call ReplaceString(sStr, "'>", "</", "budule")
MsgBox sStr
Unload Me
End Sub
Private Sub ReplaceString(ByRef Expression As String, sLeft As String, sRight As String, sRep As String)
Dim lPosL As Long, lPosR As Long
lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,
sRight)
If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)
& sRep & Mid$(Expression, lPosR)
End Sub
<small>Coloration
syntaxique automatique [AFCK] </small>
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Option Explicit
Private Sub Form_Load()
Dim sStr As String
sStr = "
machin
"
Call ReplaceString(sStr, "'>", "</", "budule")
MsgBox sStr
Unload Me
End Sub
Private Sub ReplaceString(ByRef Expression As String, sLeft As String, sRight As String, sRep As String)
Dim lPosL As Long, lPosR As Long
lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,
sRight)
If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)
& sRep & Mid$(Expression, lPosR)
End Sub
<small>Coloration
syntaxique automatique [AFCK] </small>
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
9 févr. 2007 à 02:59
9 févr. 2007 à 02:59
salut,
1) c'est du DotNet çà?
2)tu t'es relus?
3)1ere ligne, tu remplaces les "<table", et tu le cherches en 2e? rien de choquant?
çà va pas être facile.....
bonne chance ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
1) c'est du DotNet çà?
2)tu t'es relus?
3)1ere ligne, tu remplaces les "<table", et tu le cherches en 2e? rien de choquant?
çà va pas être facile.....
bonne chance ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
9 févr. 2007 à 07:19
9 févr. 2007 à 07:19
clair....
bien vu PCPT !
Renfield
Admin CodeS-SourceS- MVP Visual Basic
bien vu PCPT !
Renfield
Admin CodeS-SourceS- MVP Visual Basic
kelm_by
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
9 févr. 2007 à 15:15
9 févr. 2007 à 15:15
et comment faire merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
9 févr. 2007 à 19:35
9 févr. 2007 à 19:35
la gauche d'un morceau, le reste de l'autre et voilà....
Option Explicit
Private Sub Form_Load()
Dim sStr As String
sStr = "
machin
"
Call DeleteString(sStr, "
, ">")
MsgBox sStr
Unload Me
End Sub
Private Sub DeleteString(ByRef Expression As String, sLeft As String, sRight As String)
Dim lPosL As Long, lPosR As Long
lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,
sRight)
If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)
& Mid$(Expression,
lPosR)
End Sub
<small>Coloration
syntaxique automatique [AFCK] </small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Option Explicit
Private Sub Form_Load()
Dim sStr As String
sStr = "
machin
"
Call DeleteString(sStr, "
, ">")
MsgBox sStr
Unload Me
End Sub
Private Sub DeleteString(ByRef Expression As String, sLeft As String, sRight As String)
Dim lPosL As Long, lPosR As Long
lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,
sRight)
If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)
& Mid$(Expression,
lPosR)
End Sub
<small>Coloration
syntaxique automatique [AFCK] </small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
kelm_by
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
13 févr. 2007 à 22:48
13 févr. 2007 à 22:48
merci PCPT mais ce code ne remplace que la premier pour le reste
