Tabel Zuiveren van Accenten en andere tekens

[wimpietje]

Vreemde tekens uit tabel halen

volgend probleem stelt zich:

een inktjet om postsortering (in bedrijf) te doen kan geen accenten en andere vreemde tekens herkennen, deze moeten dus vervangen worden.

é moet dus e worden
à moet a worden

een leeg veld moet een spatie worden

enzovoort....

wat is de makkelijkste manier om dit te automatiseren? een query? een macro? en hoe doe ik dit....het gaat per tabel over verschillende karakters, de lijst van karakters moet kunnen uitgebreid worden...en aangepast aan de nood...

Alvast bedankt,
Wim

 

[sesam]

Vertaaltabel

Een elegante oplossing zou kunnen zijn om hiervoor een vertaaltabel te maken waarin je per 'fout' karakter een vervangend karakter invult. Dit maakt aanpassen en uitbreiden van de karakterset eenvoudig. Als je dit op ascii-code doet, dan kun je elke tekst makkelijk doorlopen en karakters vervangen waar nodig. De é vervangen door een e, zou dan in ascii codes worden:
233 -> 101

Daarna zou je bijvoorbeeld een functie kunnen schrijven die iets doet als:
Function Vertaal(wat As String) As String
Dim tmp As String, res As String, x As Long, db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("fouten")
rs.Index = "PrimaryKey"
For x = 1 To Len(wat)
tmp = Mid(wat, x, 1)
rs.Seek "=", Asc(tmp)
If rs.NoMatch Then
res = res & tmp
Else
res = res & Chr(rs!goed)
End If
Next
Vertaal = res
End Function

Veronderstelt een lokale (niet gekoppeld, dan werkt de methode seek niet meer en moet je het langzamere findfirst gebruiken) tabel fouten met twee velden, de eerste is de sleutel en bevat de foute ascii-code, het tweede veld heet goed en bevat de ascii code van het juiste karakter.

 

[wimpietje]

Dank!

hier kom ik idd verder mee