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

■No53043 (いか さん) に返信
> ある処理にてクラス：StreamWriterを使用してCSV出力を行っています。
> その際に文字コード「iso-2022-jp」を指定しているのですが、この場合
具体的には、どのようなコードを書いておられますか?


// Encoding の取得
Encoding[] enc = new Encoding[4];
enc[0] = Encoding.GetEncoding(932);
enc[1] = Encoding.GetEncoding(50220);
enc[2] = Encoding.GetEncoding(50221);
enc[3] = Encoding.GetEncoding(50222);

Console.WriteLine("下記はすべて iso-2022-jp と表示されます。");
Console.WriteLine(enc[0].BodyName);
Console.WriteLine(enc[0].HeaderName);
Console.WriteLine(enc[1].BodyName);
Console.WriteLine(enc[1].HeaderName);
Console.WriteLine(enc[1].WebName);
Console.WriteLine(enc[2].BodyName);
Console.WriteLine(enc[2].HeaderName);
Console.WriteLine(enc[3].BodyName);
Console.WriteLine(enc[3].HeaderName);
Console.WriteLine(enc[3].WebName);

string src = "\uff72\uff76";
Console.WriteLine();
Console.WriteLine("半角カナを含む \"{0}\" の変換テスト", src);
Console.WriteLine();
foreach (Encoding encode in enc)
{
    byte[] bin = encode.GetBytes(src);
    string dst = encode.GetString(bin);
    Console.WriteLine("{0,6}\t\"{1}\"", encode.CodePage, encode.EncodingName);
    Console.WriteLine("\t{0}\t\"{1}\"", dst, BitConverter.ToString(bin));
}

Console.ReadLine();

2017/03/20(Mon) 16:53:06 編集(投稿者)
<pre><pre>2017/03/20(Mon) 16:52:46 編集(投稿者)
2017/03/20(Mon) 16:52:43 編集(投稿者)

<pre><pre>
以下のコードで巨大なSingle配列を
数百MByte程度のサイズの一列のテキストファイルとして出力するコードを書きました。

Dim a(xmax, ymax, zmax) As Single

Using writer As New StreamWriter(Path, False, Encoding.ASCII)

       For zzz As Integer = 1 To zmax
       For yyy As Integer = 1 To ymax
       For xxx As Integer = 1 To xmax

            writer.WriteLine(a(xxx, yyy, zzz).ToString)

       Next xxx
       Next yyy
       Next zzz

End Using

ただ、タスクマネージャーで確認すると
ストレージの帯域は5%程度しか使っておらず
CPU使用率も10%程度となっています。

これをマルチスレッド化して高速出力したいのですが
どのようにすれば良いですか？

Single→String→Byteという2段階のデータ変換を行っていることになるので
どちらが律速しているか調べるために
以下のマルチスレッドコードを書いて計算時間を比較しました。



       For zzz As Integer = 1 To zmax

           Dim XY(xmax, ymax) As String

           Dim zzz2 As Integer = zzz

          Parallel.For(1, ymax + 1, Sub(yyy)

            For xxx As Integer = 1 To xmax

                XY(xxx, yyy) = a(xxx, yyy, zzz2).ToString

            Next xxx

          End Sub)

       For yyy As Integer = 1 To ymax
       For xxx As Integer = 1 To xmax

            writer.WriteLine(XY(xxx, yyy))

       Next xxx
       Next yyy
       Next zzz

しかし計算時間は全く変わりませんでした。
そのため、String→Byteの変換が律速していると考えています。


Dim bytesData As Byte() = System.Text.Encoding.GetEncoding(932).GetBytes(str)

というコードで、String→Byte配列への変換を行うことができるのは分かるのですが、
どのようにマルチスレッド化すれば良いでしょうか？

ファイルサイズが数百MByte程度になるので
一度に全てをバイト配列にして最後に出力するというのは避けたいです。


       For zzz As Integer = 1 To zmax
の部分を４つくらいのスレッドの分離して
マルチスレッドで処理するのがもっとも適当でしょうか？



</pre></pre></pre></pre>