caractéres spéciauxRésolu

Question

Je voudrais dans une cha&#238;ne de caract&#233;res remplacer les &#224;, &#233;, &#232;,',&#249;, par des caract&#233;res sans accents..

pour un caract&#233;re je sais  readline.replace("&#224;","a") mais pour tous les caract&#233;res?
qui &#224; une soluce??

Zlub · Accepted Answer

Salut galopeur,

Bon all&#233;, juste parce que j'avais envie de jouer un peu, voici une autre solution un poil plus l&#233;gere en m&#233;moire ....




Const accent As String   = "&#224;&#226;&#228;&#233;&#234;&#232;&#235;&#239;&#238;&#244;&#246;&#249;&#252;&#251;"

  Const noAccent As String = "aaaeeeeiioouuu"

  

  Private Sub Command1_Click()

    Dim demo$

    demo = "L'&#233;t&#233;, je vais sur l'&#238;le o&#249; y'a la f&#234;te jusqu'&#224; l'aube et" & _

         " je cri : Y&#224;&#226;&#228;&#233;&#234;&#232;&#235;&#239;&#238;&#244;&#246;&#249;&#252;&#251; ... "

    Debug.Print demo & vbCrLf & " => " & sansAccents(demo)

  End Sub

  

  Private Function sansAccents(ByVal s As String) As String

    Dim max%, i%

    max = Len(accent)

  

    For i = 1 To max

      s = Replace(s , Mid(accent, i, 1), Mid(noAccent, i, 1))

    Next i

  

    sansAccents = s

  End Function



++

Zlub

PCPT · Answer

salut,
je craind que tu ne sois oblig&#233; de faire autant de ligne que de caract&#232;res
(ou dans un tableau, mais le principe est le m&#234;me)

[VB6]

Option Explicit 

Const NbCaracs As Integer =  4 
Dim TabCaracs(NbCaracs - 1, 1) As String 
'
'
Private Sub Form_Load() 
    'init le tableau
    TabCaracs(0, 0) = "&#224;" 
    TabCaracs(0, 1) = "a" 

    TabCaracs(1, 0) = "&#233;" 
    TabCaracs(1, 1) = "e" 

    TabCaracs(2, 0) = "&#232;" 
    TabCaracs(2, 1) = "e" 

    TabCaracs(3, 0) = "&#249;" 
    TabCaracs(3, 1) = "u" 
    'etc.....
End Sub 
'
'
Private Sub Command1_Click() 
    Dim MaStringAccentuee As String 

    MaStringAccentuee = "une phrase avec accents o&#249; sans, &#233; voil&#224;" 
    MsgBox "AVANT : " & MaStringAccentuee, 32 

    MaStringAccentuee = SansAccent(MaStringAccentuee) 
    MsgBox "APRES : " & MaStringAccentuee, 32 
End Sub 
'
'
Private Function SansAccent(MaChaine As String) As String 
    Dim i As Integer 
    For i = 0 To NbCaracs - 1 
        MaChaine =  Replace (MaChaine, TabCaracs(i, 0), TabCaracs(i, 1)) 
    Next i 

    SansAccent  = MaChaine 
End Function 

PCPT

Gobillot · Answer

Dim Tabl1 As String

Dim Tabl2 As String



Private Sub Form_Load()

'   Tables de conversion

    Tabl1 = "&#224;&#233;&#232;&#249;"

    Tabl2 = "aeeu"

End Sub



Private Function Convertir(ByVal s As String) As String

    Dim i As Integer

    Dim j As Integer

    Dim x As Integer

    

'  parcours de la cha&#238;ne caract&#232;re par caract&#232;re

    For i = 1 To Len(s)

        x = InStr(Tabl1, Mid$(s, i, 1))

'  si caract&#232;re est dans tabl1 il est remplac&#233; par son correspondant dans Tabl2

        If x > 0 Then Mid$(s, i, 1) = Mid$(Tabl2, x, 1)

        Next

    Convertir = s



End Function



Private Sub Command1_Click()

'  exemple

    MsgBox Convertir("&#224;&#224;&#233;&#233;&#232;&#232;&#249;&#249;")

End Sub




Daniel

galopeur · Answer

Jai fait &#231;&#224; , car avant tout le streamreader ne pouvait lire le code ascii de mon fichier

Dim sr 
As StreamReader = 
New StreamReader(source, System.Text.ASCIIEncoding.UTF7)



Do 
While sr.Peek >= 0


s = sr.ReadLine()


s = s.Replace("&#224;", "a")


s = s.Replace("&#233;", "e")


s = s.Replace("&#249;", "u")


s = s.Replace("&#235;", "e")


s = s.Replace("%", " ")


s = s.Replace("&#232;", "e")


s = s.Replace("@", "x")


s = s.Replace("&#226;", "a")


s = s.Replace("&#228;", "a")


s = s.Replace("&#234;", "e")


s = s.Replace("&#235;", "e")


s = s.Replace("&#238;", "i")


s = s.Replace("&#239;", "i")


s = s.Replace("&#244;", "o")


s = s.Replace("&#246;", "o")


s = s.Replace("&#252;", "u")


s = s.Replace("&#251;", "u")

mais zlub ta methode est tr&#233;s interessante...

je remercie PCPT et Daniel, mais je ne veux pas de tables.

merci &#224; tous de votre aide..

Caractéres spéciaux

4 réponses

Discussions similaires