Indlæsning af Textfiler

Laes bytes i filen og tael op hvormange forekomster der er af de forskellige byte vaerdier og gaet paa Encoding udfra dette.

Her er en implementation i C# som nemt kan konverteres til VB.NET:

    public static string Guess(string filename)
    {
        int[] freq = new int[256];
        Stream stm = new FileStream(filename, FileMode.Open, FileAccess.Read);
        int c;
        while((c = stm.ReadByte()) >= 0)
        {
            freq[c]++;
        }
        stm.Close();
        if((freq[197] + freq[198] + freq[200] +
            freq[201] + freq[203] + freq[216] +
            freq[229] + freq[230] + freq[232] +
            freq[233] + freq[235] + freq[248]) >
          (freq[133] + freq[134] + freq[136] +
            freq[137] + freq[139] + freq[152] +
            freq[165] + freq[166] + freq[168] +
            freq[169] + freq[171] + freq[184] +
            freq[195]))
        {
            return "ISO-8859-1";
        }
        else
        {
            return "UTF-8";
        }
    }

Okay :) Må dog indrømme jeg fatter ikke meget af den smøre :/

forstår det med den læser filen, men den store "if" fatter jeg ingen ting af.

Den tester på om der er flest af de bytes der svarer til ÆØÅ  i ISO-8859-1 eller flest af de bytes der svarer til ÆØÅ i UTF-8.

ville det være meget dumt at man prøver at åbne dem i UTF-8 og de forskellige og så søge på ÆØÅ med en instrev? og hvis ja så bruge den metode?

eller vil det måske sløve det meget? :)
synes nemlig ikke lige jeg kan kringle den kode.

Det kunne du godt gøre.

Jeg tror at det vil være langsommere og mere usikkert.

Men det kan godt gøres på den måde,

Den tilsvarende VB.NET kode ser ud som:

    Public Shared Function Guess(filename As String) As String
        Dim freq As Integer() = New Integer(255) {}
        Dim stm As Stream = New FileStream(filename, FileMode.Open, FileAccess.Read)
        Dim c As Integer
        While (c = stm.ReadByte()) >= 0
            freq(c) += 1
        End While
        stm.Close()
        If (freq(197) + freq(198) + freq(200) + freq(201) + freq(203) + freq(216) + freq(229) + freq(230) + freq(232) + freq(233) + freq(235) + freq(248)) > (freq(133) + freq(134) + freq(136) + freq(137) + freq(139) + freq(152) + freq(165) + freq(166) + freq(168) + freq(169) + freq(171) + freq(184) + freq(195)) Then
            Return "ISO-8859-1"
        Else
            Return "UTF-8"
        End If
    End Function

Og et svar fra mig

Jeg siger mange tak :-)