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

[marot_r]

tu peux faire une fonction public dans un module.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
public function SuppDernierRC(prmText as variant) as string
  dim result as string
  dim i as integer
  dim c as string
 
  if not isnull(prmText) then
 
      for i=len(prmText) to 1 step -1
        c=mid(prmText, i, 1)
 
        if c=chr(10) then
          result=left(prmText, i-2) & " " & mid(prmText, i+1)
          exit for
        end if
 
      next i
 
    else
      result=""
  end if
 
  SuppDernierRC=Result
end function

On peut certainement faire plus subtil avec des Instr, while et wend mais ca va faire la job

[marot_r]

Attention, dans le code si dessus j'ai oublier de traiter le cas où la chaine ne contient pas de Chr(10).

A+