Algunos problemas al convertir datos bursátiles usando vb

Cada registro tiene 40 bytes

Formato

Fecha larga 0 'byte de desplazamiento inicial relativo

Apertura larga=4

Largo alto=8

Largo bajo=12

Cierre largo=16

Volumen largo=20

No es modo binario, se lee en modo aleatorio y el precio después de la lectura será /1000.

Tipo de definición

Tipo privado ddzh

Las fechas tienen la misma duración

Horario de apertura

Igual altura y el mismo largo

Mismo largo que bajo

Mismo largo que cerca

Mismo largo que volumen

Mismo largo que Fin1

Misma longitud que End2

End3 tiene la misma longitud

End4 tiene la misma longitud

Tipo de final

Tipo privado dzh

La fecha tiene la misma duración

p>

Abrir como soltero

Hasta soltero

Abajo hasta soltero

Cerrar como sencillo

Misma longitud

Tipo de finalización

Solo usa Get para leer el registro.

Renombrar ddzh(1 a 1) a ddzh

ReDim dzh(1 a 1) como dzh

Abrir "000001.day" aleatorio como # 1 Len = Len(ddzh(1))

ReDim ddzh(1 a Lof(1)/Len(ddzh(1)) como ddzh

Para i = 1, lea Total

Obtener #1,I,ddzh(i)

Siguiente I

Cerrar #1

Convertir a después de leer /p>

Dzh está bien.

Los datos de Dafuxing son muy útiles y se pueden leer todos los puntos en el mapa central.