Keskustelu: Ohjelmointikysymykset: FreeBASIC: Ääkkösongelma (FB)

jesse123 [20.04.2008 11:36:28]

eli nyt ongelmana on ääkköset, eli ö:t ja ä:t eivät toimi. Miten tämän voisi korjata, sillä tekstiä olisi aika ärstyttävä lukea, jos ö:t olisivat o ja ä:t olisivat a.

Kiitokset etukäteen kaikille vastanneille

sqwiik [20.04.2008 11:40:11]

Yksi vaihtoehto on käyttää ääkkösten tilalla koodissa ASCII-koodeja.

neau33 [20.04.2008 19:37:18]

Heippa jesse123!

Function CorrectString(Byref expr As String, Byref mode As String) As String
  Select Case mode
     Case "DosToWin"
        replace(expr, "ÿ", " ") ' " " = Alt + 255
        replace(expr, "†", "å")
        replace(expr, "ä", "ä")
        replace(expr, "ö", "ö")
        replace(expr, "", "Å")
        replace(expr, "Ž", "Ä")
        replace(expr, "™", "Ö")
        Return expr
     Case "WinToDos"
       replace(expr, " ", "ÿ") ' " " = Alt + 255
       replace(expr, "å", "†")
       replace(expr, "ä", "ä")
       replace(expr, "ö", "ö")
       replace(expr, "Å", "")
       replace(expr, "Ä", "Ž")
       replace(expr, "Ö", "™")
       Return expr
   End Select
End Function

jesse123 [20.04.2008 20:45:14]

Mitäs tuo koodi oikein meinaa? en oikein tajunnut

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen