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

■No83327 (金尾 さん) に返信
> 方法１
> Dim bs00(CInt(file_size - 1)) As Byte
> 
> For i As Integer = 1 To filenum
>     Dim fs As New FileStream(StrPath(i), FileMode.Open, FileAccess.Read)
>     fs.Read(bs00, 0, file_size)
>     fs.Close()
> Next i
> 
> 方法２
> Parallel.For(1, filenum, Sub(i)
>         Dim bs0(CInt(file_size - 1)) As Byte
>         Dim fs As New FileStream(StrPath(i), FileMode.Open, FileAccess.Read)
> 
>         SyncLock fs
>             fs.Read(bs0, 0, file_size)
>         End SyncLock
> 
>         fs.Close()
>     End Sub)


これらは同じではありませんよね
方法２はロックオブジェクトを共有していないので
排他がされていませんよ、複数のファイルが並行で読み取られてます

なので
・SSDは並行で読み取ったら速くなる
・HDDは並行で読み取ったら遅くなる
ということだと思います

■No83327 (金尾 さん) に返信
> やっていることは同じなのに
> なぜかSSDとHDDで方法によってここまで速度差が見られるのはなぜなのでしょうか？

ファイル読込がボトルネックでしたっけ？
振り出しに戻って、まずはシングルスレッドで計測してボトルネックを見つけて下さい。

--
    Sub Main()
        Dim sw1 As New Stopwatch
        Dim sw2 As New Stopwatch
        Dim sw3 As New Stopwatch
        Dim sw4 As New Stopwatch

        For i As Integer = 1 To 10000
            sw1.Start()
            '�@メモリ確保
            Dim bs(100 * 1024 * 1024 - 1) As Byte
            sw1.Stop()

            sw2.Start()
            '�Aファイル読み込み
            sw2.Stop()

            sw3.Start()
            '�Bbyte配列を文字列配列へ変換
            sw3.Stop()

            sw4.Start()
            '�Cデータをまとめるための処理
            sw4.Stop()
        Next
        Console.WriteLine(sw1.ElapsedMilliseconds)
        Console.WriteLine(sw2.ElapsedMilliseconds)
        Console.WriteLine(sw3.ElapsedMilliseconds)
        Console.WriteLine(sw4.ElapsedMilliseconds)
    End Sub