Skip to content

Instantly share code, notes, and snippets.

@scottdave

scottdave/ExcelRemoveAccents.vb

Forked from mpecka/ExcelRemoveAccents.vb
Created February 17, 2023 03:33
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save scottdave/3d7cf14b78cdf3153e022e4cc0e8be40 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save scottdave/3d7cf14b78cdf3153e022e4cc0e8be40 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. @mpecka mpecka revised this gist Jan 8, 2018. 1 changed file with 2 additions and 2 deletions.
    4 changes: 2 additions & 2 deletions ExcelRemoveAccents.vb
    View file
    Original file line number Diff line number Diff line change
    @@ -2,8 +2,8 @@ Function StripAccent(thestring As String)
    Dim A As String * 1
    Dim B As String * 1
    Dim i As Integer
    Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿáÁčČďĎéÉěĚíÍňŇóÓřŘšŠťŤúÚůŮýÝžŽ"
    Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyyaAcCdDeEeEiInNoOrRsStTuUuUyYzZ"
    Const AccChars= "áäčďéěíĺľňóôőöŕšťúůűüýřžÁÄČĎÉĚÍĹĽŇÓÔŐÖŔŠŤÚŮŰÜÝŘŽ"
    Const RegChars= "aacdeeillnoooorstuuuuyrzAACDEEILLNOOOORSTUUUUYRZ"
    For i = 1 To Len(AccChars)
    A = Mid(AccChars, i, 1)
    B = Mid(RegChars, i, 1)
  2. @mpecka mpecka revised this gist Jan 3, 2018. No changes.
  3. @mpecka mpecka renamed this gist Jan 3, 2018. 1 changed file with 0 additions and 0 deletions.
    0 gistfile1.txt → ExcelRemoveAccents.vb
    View file
    File renamed without changes.
  4. @mpecka mpecka created this gist Jan 3, 2018.
    13 changes: 13 additions & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,13 @@
    Function StripAccent(thestring As String)
    Dim A As String * 1
    Dim B As String * 1
    Dim i As Integer
    Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿáÁčČďĎéÉěĚíÍňŇóÓřŘšŠťŤúÚůŮýÝžŽ"
    Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyyaAcCdDeEeEiInNoOrRsStTuUuUyYzZ"
    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