１．はじめに
データ分析を行っている時に、１６進のデータが想定と反対に出てきたために、バイトスワップ関数を作りました。インターネットで探しましたが、Ｃ++はいいのがありましたが、ＶＢＡのもので適切なものがなかったので作りました。参照ください。
２．内容
Option Compare Database
'byteの並び替えを行う関数
'例０ｘ１２ ０ｘ３４のデータを０ｘ３４ ０ｘ１２と並び替えします。１６個のグループまで対応 ' ｍｓｂ（０）、ｌｓｂ（０）としてその数字をｌｓｂ（０）、ｍｓｂ（０）で並び替え
'配列は１６個まで、正確には１７個まで格納できるようにしている。あとで個別のチッックをできるように配列使用。
Public Function SwapBytes(i As String) As String
Dim msb(16), lsb(16), tswap As String
Dim x, y, z As Integer
y = Len(i) / 2
z = 1
For x = 0 To y - 1
msb(x) = Mid(i, z, 2)
lsb(x) = Mid(i, z + 2, 2)
z = z + 4
tswap = lsb(x) & msb(x) & tswap
Next x
SwapBytes = tswap
End Function
３．問い合わせ先
当社の強み
・無線ＬＡＮの専門調査会社として、セキュリティから電波までの無線ＬＡＮの専門性を強みとしております。
・無線歴３５年、ＳＩ歴２５年の専門家が対応します。
・自社所有の測定ツール（Ｌｉｎｕｘ，スペアナ、電波診断ツール、セキュリティ診断ツール、トラヒック診断ツール）により迅速に対応します。
スペクトラム・テクノロジー株式会社
http://spectrum-tech.co.jp
電話：04-2990-8881
mail:sales@spectrum-tech.co.jp
担当：村上