C# と VB.NET の質問掲示板

VB2015に関する質問です。

文字列を出力するのに
StringWriterとStreamWriterを使います。

改行するのに普通はWriteLineを使っているのですが、
Write(vbNewLine)でも改行できるため、どちらの方が高速だろうかと思って
計算時間を比較したところ、予想外にWrite(vbNewLine)の方が２倍程度高速であることが分かりました。

以下のテストしたコードです。


        Dim DataNum As Integer = 10000000


        Dim sw As New Stopwatch
        sw.Restart()


        Using writer2 As New StringWriter


            For i As Integer = 1 To DataNum


                '173 ms
                '   writer2.Write(vbNewLine)

                '350 ms
                '  writer2.WriteLine("")


                '640 ms
                'writer2.WriteLine("aaaaaaaaaaaa")

                '360 ms
                writer2.Write("aaaaaaaaaaaa")
                writer2.Write(vbNewLine)

                '247ms
                ' writer2.Write("aaaaaaaaaaaa" & vbNewLine)

            Next i



        End Using


        MsgBox(sw.ElapsedMilliseconds)


コードの判読性を比較すると

writer2.Write("aaaaaaaaaaaa" & vbNewLine)
よりも
writer2.WriteLine("aaaaaaaaaaaa")
の方が読みやすいと思います。

しかし、
writer2.Write("aaaaaaaaaaaa" & vbNewLine)
の方が高速であることが分かりました。

ではなぜWriteLineはこのように低速なのでしょうか？
内部ではWrite(vbNewLine)を実行しているわけではないのでしょうか？

もし、高速化できる方法があればお教えください。

ありがとうございます。


> Paizaのプログラミングコンテストで実行のスピード勝負になったときには扱う文字列が英数字だけなのを良いことに文字列ではなくてバイナリを直接読み書きするってことみんなやってた


これって文字列を読み込んで、何か処理をしてから
再度文字列を書き込むというものですか？


私がいまやりたいのは
single配列を文字列に変換して
CSVファイルとして保存することなのですが、
Encoding.ASCIIを自作することで高速化することはできるのでしょうか？

英語は含んでおらず
数値しかないため、




    Function aaa(stringValue$) As Byte()

        Dim charArray As Char() = stringValue.ToCharArray()

        Dim StNum As Integer = charArray.Length - 1
        Dim Hai(StNum) As Byte

        For i = 0 To StNum

            Dim Ch As Char = charArray(i)

            If Ch = "0" Then

                Hai(i) = 48

            ElseIf Ch = "1" Then

                Hai(i) = 49

            ElseIf Ch = "2" Then

                Hai(i) = 50

            ElseIf Ch = "3" Then

                Hai(i) = 51

            ElseIf Ch = "4" Then

                Hai(i) = 52

            ElseIf Ch = "5" Then

                Hai(i) = 53

            ElseIf Ch = "6" Then

                Hai(i) = 54

            ElseIf Ch = "7" Then

                Hai(i) = 55

            ElseIf Ch = "8" Then

                Hai(i) = 56

            ElseIf Ch = "9" Then

                Hai(i) = 57

            ElseIf Ch = "." Then

                Hai(i) = 46

            ElseIf Ch = "," Then

                Hai(i) = 44

            End If


        Next i

        Return Hai

    End Function


というようなメソッドを自作してみたのですが
10倍くらい遅くなってしまいました。