Takže již mi to funguje.
Dim fs As FileStream = New FileStream(jmSouboru, FileMode.Open)
Dim br As BinaryReader = New BinaryReader(fs)
datum(i) = br.ReadUInt16()
cas(i) = br.ReadUInt16()
open(i) = br.ReadSingle()
high(i) = br.ReadSingle()
low(i) = br.ReadSingle()
close(i) = br.ReadSingle()
Problém byl v tom, že jsem začínal o jen bajt níže. Soubor totiž nejdříve začíná zahlavím a to je třeba přeskočit, proto mi ty hodnoty nevycházely. Každopádně děkuji za pomoc.
|