excel VBA single quotes aanpassen naar ander karakter?

[witchdoc]

ik heb een lijst met franse text die ik moet importeren in een systeem dat die tekens niet accepteert.

Ik heb hiervoor https://www.chrisbryson.m...nted-characters-in-excel/ gevonden dat me middels een VBA script toelaat om alle characters aan te passen.

code:

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

Echter, ik heb ook single quotes in mijn tekst die naar b.v. _ zou moeten aangepast worden.
b.v.:
L'avenue -> L_avenue

Simpelweg een single quote toevoegen aan die AccChars en underscore aan de RegChars werkt niet.
Iemand wel een idee hoe (liefst) deze VBA aan te passen voor mijn single quote?

[F_J_K]

Werkt gewoon alleen “‘“ niet?

Dus een enkele tussen twee dubbele. Pop op het verschil tussen ‘en de backtick.

[ Voor 3% gewijzigd door F_J_K op 27-10-2022 18:50 ]

[witchdoc]

F_J_K schreef op donderdag 27 oktober 2022 @ 18:50:
Werkt gewoon alleen “‘“ niet?

Dus een enkele tussen twee dubbele. Pop op het verschil tussen ‘en de backtick.

Op deze manier in elk geval niet.

code:

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ" '""
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy_"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

Geeft geen error zoals bij mijn poging maar ook geen filtering van de '

[Twazerty]

de single quote escapen?

Wellicht zo: \'

[witchdoc]

Twazerty schreef op donderdag 27 oktober 2022 @ 18:59:
de single quote escapen?

Wellicht zo: \'

Dit is de oplossing inderdaad.
Zowel de single quote als de underscore escapen.

code:

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ\'"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy\_"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

Dank u wel!

[F_J_K]

witchdoc schreef op donderdag 27 oktober 2022 @ 18:57:
[...]


Op deze manier in elk geval niet.

Vandaar dat ik alleen “‘“ zei, niet in combinatie met de rest. Mijn gedachte was dat excel niet door heeft dat je het karakter bedoelt. Maar goed, bovenstaande is beter

[Lustucru]

Geestig. Dit heeft helemaal niets met escapen van doen..

als

code:

Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ\'"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy\_"

werkt

code:

Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿwijzijnoverbodig'"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyywijzijnoverbodig_"

ook.

[ Voor 10% gewijzigd door Lustucru op 27-10-2022 21:55 ]

[Lustucru]

witchdoc schreef op donderdag 27 oktober 2022 @ 18:57:
[...]


Op deze manier in elk geval niet.

code:

Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ" '""

Geeft geen error zoals bij mijn poging maar ook geen filtering van de '

Dat zal niet idd... wat hier staat is:

code:

Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"

gevolgd door het commentaar (de single quote is het commentaar teken) "". Had je goed gekeken dan had je gezien dat de laatste drie tekens groen waren of grijs... De single quote hoort gewoon tussen de string-begrenzers " "

[Lustucru]

F_J_K schreef op donderdag 27 oktober 2022 @ 19:32:
[...] Maar goed, bovenstaande is beter

Niet dus Het voegt alleen de nutteloze vervanging van "\"door "\"toe.

[ Voor 15% gewijzigd door Lustucru op 27-10-2022 21:56 ]

[witchdoc]

@Lustucru

Pffft.. excel.. echt zo'n down the rabbithole topic.

Precies wat jij oppert had ik dus zelf eerst geprobeerd.

Nu begin ik wel te twijfelen wanneer die macro die ik er dus ingestoken hebt precies runt.
Stel, ik pas de macro aan met die extra chars.. wordt dan de excel zelf automatisch en onmiddelijk aangepast? Of moet ik b.v. de excel eerst saven of op een of andere manier update?

Nu met enkel die extra chars en met saven macro, opnieuw de functie in de cell pasten en excel te saven en opnieuw starten, werkt het inderdaad zonder escape character ook prima.

Iemand die weet wat de trigger precies is?

[ Voor 3% gewijzigd door witchdoc op 28-10-2022 09:33 ]

[Lustucru]

Als je hem hebt gebruikt als UDF (maw,je gebruikt hem als functie in een worksheet) dan wordt de nieuwe functie aangeroepen bij elke berekeningsrun, dwz als je handmatig herbereken forceert met f9 of als een van de broncellen wijzigt. Maar bestaande berekeningen worden standaard niet herberekend als de broncellen ongewijzigd blijven, tenzij je de functie aanmerkt als 'volatile'.

Example

This example marks the user-defined function My_Func as volatile. The function will be recalculated when any cell in any workbook in the application window changes value. Recalculation of the function is not restricted to changes or calculation cycles on the worksheet for which this function applies. Therefore, use it moderately to avoid calculation lag.
VB

Function My_Func()
Application.Volatile
'
' Remainder of the function
'
End Function