iOS Question Remove accents

[Andre Souza]

Please, how remove accents of string in B4i?

Code B4A
https://www.b4x.com/android/forum/threads/remove-accents-from-string.40429/#content

 

[tufanv]

Please, how remove accents of string in B4i?

Code B4A
https://www.b4x.com/android/forum/threads/remove-accents-from-string.40429/#content

Probably there is a similar way in ios.
You can use replace to solve the issue i think, but i dont think it will be efficient as this code :

Lbl.text =Lbl.text.replace("accentletter","nonaccentletter")

Repeat this for every accent letter.

 

[JanPRO]

Hi,

try this:

Sub RemoveAccents (S As String) As String
    Dim NaObj2 As NativeObject = S
    NaObj2 = NaObj2.RunMethod("dataUsingEncoding:allowLossyConversion:",Array(1,True))
   
    Dim NaObj As NativeObject
    Return NaObj.Initialize("NSString").RunMethod("alloc",Null).RunMethod("initWithData:encoding:",Array(NaObj2,1)).AsString
End Sub

Based on http://stackoverflow.com/questions/10932405/nsstring-easy-way-to-remove-utf-8-accents-from-a-string

Jan

 

[Andre Souza]

Probably there is a similar way in ios.
You can use replace to solve the issue i think, but i dont think it will be efficient as this code :

Lbl.text =Lbl.text.replace("accentletter","nonaccentletter")

Repeat this for every accent letter.

Thank You

 

[Andre Souza]

Hi,

try this:

Sub RemoveAccents (S As String) As String
    Dim NaObj2 As NativeObject = S
    NaObj2 = NaObj2.RunMethod("dataUsingEncoding:allowLossyConversion:",Array(1,True))
  
    Dim NaObj As NativeObject
    Return NaObj.Initialize("NSString").RunMethod("alloc",Null).RunMethod("initWithData:encoding:",Array(NaObj2,1)).AsString
End Sub

Based on http://stackoverflow.com/questions/10932405/nsstring-easy-way-to-remove-utf-8-accents-from-a-string

Jan

Thanks! Your code works perfectly. Had done one manually which also works but your code is visually cleaner

Sub IndexStr(Palavra As String, Posicao As Int) As String
    Return Palavra.SubString2(Posicao, Posicao +1)
End Sub

Sub RemoverAcentos(Palavra As String) As String
    Dim Acentos = "àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ"
    Dim SemAcentos = "aaeouaoaeioucuAAEOUAOAEIOUCU"
    Dim Posicao As Int
   
    Dim Letra As String
    Dim LetraSemAcento As String
   
    For i = 0 To Palavra.Length-1'
        Letra = IndexStr(Palavra, i)
        Posicao = Acentos.IndexOf(Letra)
       
        If Posicao > -1 Then
            LetraSemAcento = IndexStr(SemAcentos,Posicao)
            Palavra = Palavra.Replace(Letra, LetraSemAcento)
        End If
    Next'
   
    Return Palavra
   
End Sub