将数据导出为CSV格式

Question

我正在使用四个for循环来使用以下代码生成一组数字的VB程序.....

 For sphere = 1 To 10
        For cylinder = 2 To 20
            For axis = 3 To 30
                For add = 4 To 40
                   Console.WriteLine("{0} , {1},{2},{3} ", _
                       sphere, cylinder, axis, add)
                Next add
            Next axis
        Next cylinder
    Next sphere

我需要将这个程序的输出导出为CSV格式......任何人都可以通过给出相同的代码来帮助我.......

Answer 1

CSV格式只是一个包含行的文本文件,每行包含由逗号分隔的数据值记录.

最简单的方法是从命令行调用应用程序,并使用>运算符将标准输出重定向到命令行.这样,您根本不需要更改任何代码.

如果由于某种原因,您无法重定向标准输出,Microsoft有一个关于如何使用Visual Basic 2005读取和写入文件的示例.

我对Visual Basic并不熟悉,但您的代码可能看起来像这样:

Dim objStreamWriter As StreamWriter

objStreamWriter = New StreamWriter("output.txt", True, Encoding.Unicode)

For sphere = 1 To 10
    For cylinder = 2 To 20
        For axis = 3 To 30
            For add = 4 To 40
                objStreamWriter.WriteLine("{0},{1},{2},{3}", sphere, cylinder, axis, add)
                Next add
        Next axis
    Next cylinder
Next sphere

objStreamWriter.Close()

请注意,上面的代码尚未编译,更少测试.我刚刚快速做了一个例子来向您展示您的代码应该是什么样子来解决这个问题.