dotNETportal.cz

Dobrý den,

mám veliký problém při ukládání z ArrayListu. Mám tenhle kód

        Dim sfd As New SaveFileDialog
        sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        sfd.Filter = "*.txt|*.txt"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim ulozit As New IO.StreamWriter(sfd.FileName)
            Dim i = 0
            pole.ToArray()
            Do
                ulozit.WriteLine(i)
                ulozit.WriteLine(pole.Item(i).ToString)
                MsgBox(i & Environment.NewLine & pole.Item(i).ToString)
                i = i + 1
            Loop Until i = pole.Count
            ulozit.Close()
        End If

A při uložení souboru mi vyleze tohle

0

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238 Microsoft Sans Serif;}}

\viewkind4\uc1\pard\f0\fs17\par

}

*

1

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238 Microsoft Sans Serif;}}

\viewkind4\uc1\pard\f0\fs17 Bez n\'e1zvu\par

}

2

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238 Microsoft Sans Serif;}}

\viewkind4\uc1\pard\f0\fs17 Bez n\'e1zvu\par

}

3

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238 Microsoft Sans Serif;}}

\viewkind4\uc1\pard\f0\fs17 Bez n\'e1zvu\par

}

Ten problém je ta mezera označená *. Doufám že je to srozumitelné.

Jediná možnost je, že v tom poli na první prvku máte konec řádku navíc, prostě je v tom stringu pole.Item(0).

Btw proč voláte před tím pole.ToArray()? To nic neudělá, musel byste to do něčeho přiřadit - ToArray nemění objekt, na kterém to voláte, ale vrací nové pole.