Fonction Replace !!!(VB)
flash
-
3 sept. 2001 à 14:28
cs_Affoufa Messages postés 36 Date d'inscription mercredi 22 mars 2006 Statut Membre Dernière intervention 20 décembre 2006 - 31 mars 2006 à 12:43
cs_Affoufa Messages postés 36 Date d'inscription mercredi 22 mars 2006 Statut Membre Dernière intervention 20 décembre 2006 - 31 mars 2006 à 12:43
A voir également:
- Php replace apostrophe in string
- Php table - Conseils pratiques -PHP
- Php protected ✓ - Forum PHP
- C# int to string - Forum C# / .NET
- C++ enum to string ✓ - Forum C++ & C++ .NET
- Php version 4.4.6 build date server api php variables - Forum PHP
5 réponses
Voilà,
Public Sub Replace(ByRef astr_String As String, astr_Char1 As String, astr_Char2 As String)
Dim i As Integer
Dim l_strOutput
Dim length As Integer
Dim Character As String
length = Len(astr_String)
For i = 1 To length
Character = Mid$(astr_String, i, 1)
If Character = astr_Char1 Then
l_strOutput = l_strOutput & astr_Char2
Else
l_strOutput = l_strOutput & Character
End If
Next i
astr_String = Trim$(l_strOutput)
End Sub
Bon courage,
Patrick
Public Sub Replace(ByRef astr_String As String, astr_Char1 As String, astr_Char2 As String)
Dim i As Integer
Dim l_strOutput
Dim length As Integer
Dim Character As String
length = Len(astr_String)
For i = 1 To length
Character = Mid$(astr_String, i, 1)
If Character = astr_Char1 Then
l_strOutput = l_strOutput & astr_Char2
Else
l_strOutput = l_strOutput & Character
End If
Next i
astr_String = Trim$(l_strOutput)
End Sub
Bon courage,
Patrick
logiquement tu devrais plutôt l'utiliser comme ceci:
Dim Chaine1 As String
Chaine1 = Replace(Rs1.Fields(1), "'", "''")
Dim Chaine1 As String
Chaine1 = Replace(Rs1.Fields(1), "'", "''")
oui mais la y a toujours un problème ... on peut pas mettre " dans une string en vb ...
Chaine1 = Replace(Rs1.Fields(1), "'", chr(34))
Chaine1 = Replace(Rs1.Fields(1), "'", chr(34))
Tu veux remplacer un apostrophe par deux apostrophes ou par un guillemet?
Pcq moi j'utilise Replace pour les doubler mes apostrophes sinon mes requêtes à un fichier Access97 par DAO foirent, et ça, ça marche au poil (le remplacement, pas le plantage :) ).
Pcq moi j'utilise Replace pour les doubler mes apostrophes sinon mes requêtes à un fichier Access97 par DAO foirent, et ça, ça marche au poil (le remplacement, pas le plantage :) ).
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Affoufa
Messages postés
36
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
20 décembre 2006
31 mars 2006 à 12:43
31 mars 2006 à 12:43
Bonjour,
est ce que je peux utliser la fonction replace pour remplacer l'un des deux caractères en même temps comme par exemple replace(text, "car1" or "car2","car")
merci d'avance !
est ce que je peux utliser la fonction replace pour remplacer l'un des deux caractères en même temps comme par exemple replace(text, "car1" or "car2","car")
merci d'avance !
