Problemas con la conversión de datos bursátiles usando VB
Datos de stock de Great Wisdom
Cada registro tiene 40 bytes
Formato
Fecha larga 0'byte de desplazamiento inicial relativo
p>
largo Abierto=4
largo Alto=8
largo Bajo=12
largo Cerrar=16
volumen largo=20
No es modo binario, use el modo aleatorio para leer, el precio/1000 después de la lectura es suficiente
Definir tipo
Privado Escriba ddzh
p>Fecha siempre
Abrir siempre
Alta siempre
Baja siempre
Cerrar el tiempo que dure
Volumen el tiempo que dure
Fin1 el tiempo que dure
Fin2 el tiempo que dure
Fin3 el tiempo que dure
End4 As Long
Tipo de finalización
Tipo privado dzh
Fecha tan larga
Abrir como individual
Alto como único
Bajo como único
Cerrar como único
Volumen como largo
Tipo final
Uso Llega a leer el registro.
ReDim ddzh(1 a 1) como ddzh
ReDim dzh(1 a 1) como dzh
Abre "000001. día" para aleatorio como #1 Len= Len(ddzh(1))
ReDim ddzh(1 a Lof(1)/Len(ddzh(1))) como ddzh
Para i = 1 para ReadToTal
Obtener #1, i, ddzh(i)
Siguiente i
Cerrar #1
Convertir a < después de leer /p>
Puedes hacerlo en dzh
Los datos de Dafuxing son relativamente fáciles de usar y puedes leer todas las imágenes en el centro