Newsgroup: it.comp.appl.access
Titolo: lettere accentate

Ciao al NG
ho creato la seguente funzione in modo da trasformare le eventuali lettere
accentate (à è ì ò ù) contenute in una stringa nelle rispettive a' e' i' o'
u', ma non funziona.
In pratica volevo testare ogni singolo carattere ed eventualmente
trasformarlo, ma sembra non riconoscere i caratteri accentati.
Dove sbaglio ?
Function SostChrAccentati(strIn As String) As String
    Dim i As Integer, strOut As String, chr As String
    For i = 1 To Len(strIn)
        chr = Mid(strIn, i, 1)
        Select Case chr
        Case chr = "à"
            strOut = strOut & "A'"
        Case chr = "è"
            strOut = strOut & "E'"
        Case chr = "ì"
            strOut = strOut & "I'"
        Case chr = "ò"
            strOut = strOut & "O'"
        Case chr = "ù"
            strOut = strOut & "U'"
        Case Else
            strOut = strOut & chr
        End Select
    Next i
    SostChrAccentati = strOut
End Function
grazie a tutti
Rik

 ha scritto nel messaggio
news:ed23gu$9ct$1...@carabinieri.cs.interbusiness.it...

Dovresti dire cosa succede, che errore dà, che risultato dà ecc...
E cmq, sarà un vizio del Pascal o del C, ma un strOut = "" all'inizio ce lo
metterei
Antonio

Riccardo Casadei ha scritto:

Function SostChrAccentati(stringa As String) As String
   Dim a
    For a = 1 To Len(stringa)
        If Mid$(stringa, a, 1) = "à" Then Mid$(stringa, a, 1) = "A"
        If Mid$(stringa, a, 1) = "ì" Then Mid$(stringa, a, 1) = "I"
        If Mid$(stringa, a, 1) = "è" Then Mid$(stringa, a, 1) = "E"
        If Mid$(stringa, a, 1) = "ò" Then Mid$(stringa, a, 1) = "O"
        If Mid$(stringa, a, 1) = "ù" Then Mid$(stringa, a, 1) = "U"
    Next a
    SostChrAccentati = stringa
End Function
@Alex

 Antonio
p.s. tu lo chiami così, in napoletano??? guarda te...
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 p.s. tu lo chiami così, in napoletano??? guarda te...
Geloso eh
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:FV_Ig.86280$zy5.1...@twister1.libero.it...

Non segnala nessun errore, la funzione gira ma passa sempre dal Case Else e
mi ritorna la stessa stringa che gli ho passato.
Appunto dicevo che sembra non riconoscere le lettere accentate.
grazie
Rik

 Rik
Anziché intercettare il carattere, intercetta il suo valore ascii:
es.
...
Select Case Asc(chr)
    'Case chr = "à"
    Case 224
...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:ed44ra$mgk$1...@carabinieri.cs.interbusiness.it...

AAAARRRRGGGGHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
M'hai fatto prendere certe rasoiate da Occam, aaaarrrrrgggggggggghhhh
Sanguino...
La soluzione è la più semplice, come sempre...
Ma che la sintassi del SELECT CASE è quella che hai scritto tu?!?!!!?!??
select case chr
  case "à"
    strOut = StrOut & "A'"
ecc. ecc...
Dove sono i cerotti? Il disinfettanteeeeeeeeeee
Antonio

 Antonio
Mamma mia come soffri brutto...


 Mamma mia come soffri brutto...
Beh, quando uno č abituato a certi dolori come te (uah uah uah), la rasoiata
č niente...
Antonio
P.S.
Il contrattismo dilaga

 Il contrattismo dilaga
Nel senso che rimani ancora li??
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:ed6aqn$o21$1...@area.cu.mi.it...

E' tipico dei contrattisti soprattutto quando in missione in trasferta
assumere dei comportamenti beceri con battute salaci e linguaggio
scurrile...
Antonio

 Antonio
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:ed6c2f$qj4$1...@area.cu.mi.it...

Più o meno.
Forse la differenza è il contrasto tra il fatto che il contrattista tipo è
qualcuno che magari in altri momenti è preciso, "ingeniere", va ai meeting
col cliente, è forbito ecc., ma poi si abbrutisce nelle missioni.
"Sei proprio un contrattista" si esprime nei confronti di quello che a
sorpresa se ne esce con uno "sfonnone" (Tm.)
Antonio

 Antonio
Chissà se Wikipedia ha questa definizione...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:ed6e1l$utk$1...@area.cu.mi.it...

Beh, mi pare che lì ognuno può apportare il proprio contributo no? Magari
gli scrivo...
E cmq, è una loro pecca!!!
Antonio

 ha scritto nel messaggio
news:ed3rcg$ahd$1...@area.cu.mi.it...

Perfetto, testando il carattere ascii funziona benissimo.
Grazie
Rik