[VB] rare tekens uit een string rippen.

[Verwijderd]

Is er een VB een functie om rare tekens uit een string te verwijderen. Op MSDN kan ik hem niet vinden. Het moet gebeuren omdat deze string als var wordt gebruikt in een sql string. hij geeft bijvoorbeeld bij het woord "L[ssone" een fout, maar "o'reilly" moet bijvoorbeeld wel kunnen.

[robjanssen]

Ik gebruik altijd een NoQuote functie.

Function NoQuote(str)
NoQuote = Replace(str, "'", "''")
End Function

[whoami]

#define rare tekens?

Kun je het niet met een regexp doen? Of je string aflopen en bij ieder karakter checken of het teken ok is of niet?

[muba]

Moet je ff zelf bouwen... neem een string waarin je alle tekens zet die je goedkeurt (checkstr$), dan ga je de invoer (inputstr$) teken voor teken langs:

code:

outputstr$ = "";
for i = 1 to len(inputstr$)
    current$ = mid$(inputstr$, i, 1)
    if  instr(checkstr$, current$) > 0 then outputstr$ = outputstr$ + current$
endfor

Ofzo... typ- en syntaxfouten voorbehouden... check vooral ff wat de echte parameters voor instr zijn... maar dit is wel het id

[muba]

Op woensdag 05 juni 2002 21:10 schreef whoami het volgende:
#define rare tekens?

VB?

...regexp...

VB?

Of je string aflopen en bij ieder karakter checken of het teken ok is of niet?

Now we're talking...

Nou weet ik niet of ik jou ooit VB heb zien afkraken, maar iig wil ik dat vanaf nu ook nooit meer zien, want dan weet je niet eens waar je het over hebt (no flame intended)

[whoami]

Op woensdag 05 juni 2002 21:13 schreef MUBA het volgende:

Now we're talking...

Nou weet ik niet of ik jou ooit VB heb zien afkraken, maar iig wil ik dat vanaf nu ook nooit meer zien, want dan weet je niet eens waar je het over hebt (no flame intended)

Waar kraak ik VB af? (toch niet in deze post).
Ik ga het nu ook maar niet doen (want anders brengt ons dat way off-topic), maar ik hou er niet van nee. _{om het zwak uit te drukken}

[muba]

Op woensdag 05 juni 2002 21:19 schreef whoami het volgende:
Waar kraak ik VB af? (toch niet in deze post).
Ik ga het nu ook maar niet doen (want anders brengt ons dat way off-topic), maar ik hou er niet van nee. _{om het zwak uit te drukken}

Neej niet in deze post maar gwoon in het algemeen... maar idd we raken zo offtopic maar hoe kan je zeggen dat je er niet van houdt als je het dus blijkbaar nouwlijks kent

[Verwijderd]

Het zou inderdaad met de instr kunnen:

Instr(startpos, SearchString, SearchChar, 1)

Maar nu kan ik 1 char opgeven. Alle rare tekens mogen niet. Dus wat wel mag is:
[a-z]
'
-
,

Thats it meer niet. Nogal onhandig om alle overige chars in de searchar te stoppen, een voor een ook nog eens.

[muba]

Mjah dat hou je toch in VB... ok dan krijg je dus dit als checkstr$:

"qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM-',"

En als startpos gebruik je dus 0.

[Verwijderd]

Okay, ga het proberen

[robjanssen]

Wordt de string in een textbox ingevoerd.

Anders kun je ook de keydown van de Textbox gebruiken.
En dan controleren of je KeyAscii aan een van de toegestane karakters voldoet.
Zo nee, dan geeft je KeyAscii = 0 terug.

[muba]

Niet. Want met knippen+plakken werkt die beveiliging al niet meer.