如何将字典键写入StreamWriter文本文件

Question

运行以下代码，看到您的桌面上有一个名为MyLogFile的文本文件，其中包含Hello文字。

Dim Log As System.IO.StreamWriter
Log = My.Computer.FileSystem.OpenTextFileWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MyLogFile.txt", False)
Log.WriteLine("Hello")
Log.Close()

如何将字典键写入MyLogFile？

Dim MyDictionary As New Dictionary(Of String, String)
MyDictionary.Add(key:="Germany", value:="Germany")
MyDictionary.Add(key:="France", value:="France")
MyDictionary.Add(key:="Italy", value:="Italy")

Dim Log As System.IO.StreamWriter
Log = My.Computer.FileSystem.OpenTextFileWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MyLogFile.txt", False)
Log.WriteLine(MyDictionary.Keys.ToList) 'This line need to be repaired.
Log.Close()

所以，当我打开MyLogFile时，我希望看到;

德国

法国

意大利

Answer 1

string.Join(Environment.NewLine, MyDictionary.Keys.ToArray())

我想这一行可以帮助您根据我上面的评论得到您想要的内容。