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

VB.NET2015に関する質問です。


あるバイト配列があり、
それの100バイトから後ろが全てShortデータになっているとします。
そのShortデータを0.3倍して、元のバイト配列に戻したいのですが
どのようにするのがもっとも効率が良いですか？



                    Dim buf(99999) As Byte 
                    Dim br = New BinaryReader(New MemoryStream(buf), Encoding.ASCII)


                    br.BaseStream.Seek(100, SeekOrigin.Begin)



                    For i = 1 To DataSize

                        Dim hh = br.ReadInt16 * 0.3

                    Next


のようにすれば良いかと思ったのですが、
得られた値のhhをバイト配列に戻すにはどのようにしたら良いですか？

あるいは、Forループを使うよりも

                    '    Dim intArray(16) As Integer
                    '  Dim byteArray() As Byte = intArray.Select(AddressOf Convert.ToByte).ToArray()

のようなSelectを使った方が高速なのでしょうか？

もっと良い方法があればご教授下さい。

■No96666 (とっちゃん さん) に返信
さっきふと見直してたところ、エンディアンの展開が逆になってました。
実際はこんな感じ。

リトルエンディアンだと、下位バイトから埋めていくので、大きな数値も賄う場合はループを回す方法もあります(コメントアウト部分)。

#If BIGENDIAN Then
  buf(pos) = CByte(value/256)
  buf(pos+1) = CByte(value Mod 256)
#Else
  buf(pos) = CByte(value Mod 256)
  buf(pos + 1) = CByte(value / 256)
  'For cpycnt = 1 To 2
  '    buf(pos + cpycnt) = CByte(value Mod 256)
  '    value = CShort(value / 256)
  'Next
#End If