Remplacer une chaîne (inconnue) placée entre deux chaînes (connues)
Contenu du snippet
Private Sub ReplaceString(ByRef Expression As String, ByVal sLeft As String, ByVal sRight As String, ByVal sReplace As String, Optional ByVal iStart As Integer = 0)
Dim iPosL As Integer = Expression.IndexOf(sLeft, iStart)
If iPosL > -1 Then
Dim iPosR As Integer = Expression.IndexOf(sRight, iPosL + sLeft.Length)
If iPosR > -1 Then
Expression = String.Format("{0}{1}{2}", Expression.Substring(0, iPosL + sLeft.Length), sReplace, Expression.Substring(iPosR, Expression.Length - iPosR))
End If
End If
End Sub
'Dim sStr As String = "<div align='center'>machin</div>"
'ReplaceString(sStr, "'>", "<", "budule")
'MessageBox.Show(sStr)
Compatibilité : VB 2005, VB 2008, VB.NET 1.x
Disponible dans d'autres langages :
A voir également
- Remplacer une chaîne (inconnue) placée entre deux chaînes (connues)
- Sous chaine en python - Forum Python
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Le format de la chaîne d'entrée est incorrect ✓ - Forum C# / .NET
- Extraction sous chaine dans une variable ✓ - Forum Delphi / Pascal
- Chaine de caractère ✓ - Forum Python
Du même auteur (PCPT)
-
Insérer des données dans un fichier
-
Retourner le Nième jour de la période (ex : 3ème lundi d'aout 2010)
-
Retourner le Nième jour de la période (ex : 3ème lundi d'aout 2010)
-
[vb2008] observer l'activité input (clavier souris) de l'utilisateur
-
[c#2008] observer l'activité input (clavier souris) de l'utilisateur
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.