Převod UTF-8 na ANSI při čtení

Převod UTF-8 na ANSI při čtení zodpovězená otázka

10. 12. 2013 13:45

1 26

Dobrý den. Potřeboval bych poradit, jak přečíst řádky v souboru, který je ve formátu UTF-8. Problémem je diakritika. Tento soubor nemám oprávnění měnit. Můžu jej pouze číst. Potřeboval bych ho při čtení převést do ANSI. Řádky načítám do proměnné ve VS2010. Díky za radu.

nahlásit spam

odpovědět

V čem je problém ve čtení v UTF-8? Toto kódování také diakritiku podporuje a není potíž diakritiku přenášet. Spíše bych tipoval, že někde (databáze či jiný zdroj) provádíte konverzi mezi kódováním

nahlásit spam

odpovědět

10. 12. 2013 17:50

Jiří Šimara

1 26

Problém je v tom, že přečtu řádek, ale místo znaků s diakritikou jsou nesmyslné znaky. Proměnnou používám string. Zkoušel jsem soubor uložit ve formátu ANSI a diakritika se už zobrazovala normálně. Jenže já ten soubor můžu jen číst, na zápis/úpravy nemám práva.

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

10. 12. 2013 18:54

Ondřej Linhart

-553 3274

Buď jste ho nenačítal UTF-8 kódováním, nebo není v kódování UTF-8. Jiná možnost není.

nahlásit spam

odpovědět

10. 12. 2013 20:48

Jiří Šimara

1 26

Načítám to standartně:

Sub nacti()
        Dim txt As String,p1 as integer, t1 as string

        FileOpen(1, "c:\sklad.txt", OpenMode.Input)

        While Not EOF(1)
            txt = LineInput(1)
            p1 = InStr(txt, " ")
            material(i) = Microsoft.VisualBasic.Left(txt, p1 - 1)
            t1 = Mid(txt, p1)
            t1 = mez(t1)
            drm(i) = Microsoft.VisualBasic.Left(t1, InStr(t1, " ") - 1)
           i = i + 1
        End While
        FileClose(1)

nahlásit spam

odpovědět

10. 12. 2013 23:22

Ondřej Linhart

-553 3274

Tak tohle rozhodně není standardní, ale 100 let starý způsob z VB6.

Použijte nový přístup z VB.NET:

'Počítá s tím, že soubor bude v kódování UTF-8.
Using textFile = File.OpenText("c:\sklad.txt")
  While Not textFile.EndOfStream
    Dim line = textFile.ReadLine()

  End While
End Using

nahlásit spam

2 / 2

odpovědět

10. 12. 2013 23:51

Jiří Šimara

1 26

Výborně, už vše funguje jak má. Děkuji moc.

nahlásit spam

1 / 1

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz