Discussion :

[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 :

Exemple1
--------
Texte1
Texte2
Texte3

en

Texte1
Texte 2 Texte3

Exemple2
--------
Texte4
Texte5
Texte6
Texte7

en

Texte4
Texte5
Texte 5 Texte 7


Merci de votre aide

[sousoulebarbu]

Tu n'a qu'a t'y prendre en deux temps: tu commence par inverser ton texte (azerty donne ytreza), puis tu fait ton replace normal

[Mandalar]

tu pourrais aussi commencer le replace a x caractères de la fin pour aller jusqu(au bout:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(monchamp, VbCrLf, " ", Len(monchamp) - (x - 1), x)

[méphistopheles]

voilà qui devrais marcher.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim num as integer
num= instr(1,montext,vbcrlf,0)
 
do while instr(num+1,montext,vbcrlf,0)<>0
num=instr(num+1,montext,vbcrlf,0)
loop
montext=replace(montext,vbcrlf,"",num-1,1,0)
msgboxmontext

salut

[ouskel'n'or]

Comme chez moi je n'ai pas replace et que ça ne marche pas avec vbcrlf, voici toujours ce qui marche (chez moi...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub BonneAnnée()
LeText = "Meilleurs voeux" + Chr(13) + Chr(10) + "Bonne année" + Chr(13) + Chr(10) & "Bonne santé"
For i = Len(LeText) To 1 Step -1
     If Mid(LeText, i, 1) = Chr(13) Then
           LeText = Left(LeText, i - 1) + " " + Right(LeText, Len(LeText) - i - 1)
           Exit For
     End If
Next
MsgBox LeText
End Sub

A+