[2005] Write a list to a text file

[zhshqzyc]

' total is a list
Dim string_array() As String
        string_array = DirectCast(total.ToArray(GetType(String)), String())
        File.AppendAllText("c:\test.txt", string_array)

Need help.
Thanks.

[jesse_mac07]

Try this

'open stream writer
            Dim objsw As New System.IO.StreamWriter("yourfile.txt")
            Dim string_array() As String
            Dim i As Integer = 0
            'write array elements one per line
            Do Until i = string_array.Length - 1
                objsw.WriteLine(string_array(i))
                'increment
                i += 1
            Loop
            'close stream
            objsw.Close()

Hope it helps!

[zhshqzyc]

I don't know why I get an error if I use Direcast

Overload resolution failed because no accessible 'ToArray' accepts this number of arguments.

string_array = DirectCast(total.ToArray(GetType(String)), String())

[zhshqzyc]

Okay. Ignore "DireCast(...)".

But only last row is wroten to the file.