remplacer un caractere avec une base de donnee

Question

Bonjour, je voudrais savoir coment remplacer plusieurs caracteres dans un texte en utilisant une base de donne a deux champ. Quand l'ordi trouve un caractere present dans le premier champ, il le remplace par le caractere correspondant dans le deuxieme champ.
Merci de votre aide.
Brodeur.

JP · Answer

Bonjour,
Ceci devrait fonctionner, bien que je ne l'ai pas tester.
'---------------------------------------
Dim Db   As Database
Dim Rs   As Recordset
Dim i    As Integer
Dim sTmp As String

Set Db = OpenDatabase("DbName")
Set Rs = Db.OpenRecordset("TabName")

For i = 0 To Rs.RecordCount - 1
   'Replace(expression, find, replacewith[, start[, count[, compare]]])
   Text = Replace(Text, Rs("Ch1Name").Value, Rs("Ch2Name").Value, 1, 1)
Next i

'---------------------------------------

Remplacer un caractere avec une base de donnee

1 réponse

Discussions similaires