Remplacer dans une chaine de caractères à partir de la fin
1 réponse
daddyel
Bonjour,
Je souhaite dans une requête de mise à jour effectuer un "replace" en
partant de la fin du champ (champ de longueur variable).
Ainsi en remontant en sens inverse le contenu du champ je pourrais grâce à
la syntaxe suivante de replace : Replace(monchamp,Chr(13) & Chr(10)," ",1,1)
transformer :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"daddyel" | Je souhaite dans une requête de mise à jour effectuer un "replace" en | partant de la fin du champ (champ de longueur variable). | | Ainsi en remontant en sens inverse le contenu du champ je pourrais grâce à | la syntaxe suivante de replace : Replace(monchamp,Chr(13) & Chr(10)," ",1,1) | transformer : | | Exemple1 | -------- | Texte1 | Texte2 | Texte3 | | en | | Texte1 | Texte 2 Texte3
Un peu longuet à placer directement dans une requête (sur une ligne...)
Plus facile avec une petite fonction que tu utilisera dans la requête
NewTexte: fReplaceLastCrLf([ton champ])
Function fReplaceLastCrLf(str) As String If IsNull(str) Then Exit Function Dim pos As Integer pos = InStrRev(str, Chr(13) & Chr(10)) fReplaceLastCrLf = Left(str, pos - 1) & " " & Mid(str, pos + 2) End Function
"daddyel"
| Je souhaite dans une requête de mise à jour effectuer un "replace" en
| partant de la fin du champ (champ de longueur variable).
|
| Ainsi en remontant en sens inverse le contenu du champ je pourrais grâce à
| la syntaxe suivante de replace : Replace(monchamp,Chr(13) & Chr(10)," ",1,1)
| transformer :
|
| Exemple1
| --------
| Texte1
| Texte2
| Texte3
|
| en
|
| Texte1
| Texte 2 Texte3
Un peu longuet à placer directement dans une requête (sur une ligne...)
Plus facile avec une petite fonction que tu utilisera dans la requête
NewTexte: fReplaceLastCrLf([ton champ])
Function fReplaceLastCrLf(str) As String
If IsNull(str) Then Exit Function
Dim pos As Integer
pos = InStrRev(str, Chr(13) & Chr(10))
fReplaceLastCrLf = Left(str, pos - 1) & " " & Mid(str, pos + 2)
End Function
"daddyel" | Je souhaite dans une requête de mise à jour effectuer un "replace" en | partant de la fin du champ (champ de longueur variable). | | Ainsi en remontant en sens inverse le contenu du champ je pourrais grâce à | la syntaxe suivante de replace : Replace(monchamp,Chr(13) & Chr(10)," ",1,1) | transformer : | | Exemple1 | -------- | Texte1 | Texte2 | Texte3 | | en | | Texte1 | Texte 2 Texte3
Un peu longuet à placer directement dans une requête (sur une ligne...)
Plus facile avec une petite fonction que tu utilisera dans la requête
NewTexte: fReplaceLastCrLf([ton champ])
Function fReplaceLastCrLf(str) As String If IsNull(str) Then Exit Function Dim pos As Integer pos = InStrRev(str, Chr(13) & Chr(10)) fReplaceLastCrLf = Left(str, pos - 1) & " " & Mid(str, pos + 2) End Function
