Dim fs = New FileStream(str,FileMode.Open)
        Dim fr = New BinaryReader(fs)
        temp_byte = fr.ReadBytes(8)’读取8个byte，返回ASCII码
        temp_int = fr.ReadUInt32()’读取一个32位整型
        temp_char=fr.readchars(8)’读取8个字符
        ’如果字符是中文,要先读成byte，然后再转码为中文
        stk_name=System.Text.Encoding.GetEncoding("GBK").GetString(temp_byte)

以上是VB.NET代码--end

以下是matlab

 fid=fopen('20120810.PRP','rb');
 %fseek(fid,432,'bof')
 fread(fid,4,'*char')
 fread(fid,1,'int32')