VB, problema de filtrado extraño, ¡los expertos pueden ayudarme! ! ! esperando en línea

Espero que puedas darme una primera mitad más completa de tu archivo de formato, ¡así puedo probarlo!

Programa:

Private Sub Command1_Click()

Dim tmp As String '¡Una fila de datos en el archivo de datos temporal!

Dim N(4) As Integer 'El elemento de matriz N(1) almacena el número de días de 0 a 10, N(2) almacena el número de días de 10 a 30, y así sucesivamente.

Dim subs() As String 'Guardar datos diarios

Dim Fl As Integer 'Guardar fuerza del viento

Dim Fx As String 'Guardar dirección del viento

Dim Elem As Variant 'Guardar datos para un día determinado

For i = 1 To 4 'Inicialización

N(i) = 0

Siguiente i

Abro "C:\data.txt" para la entrada como #1 'Abrir archivo de datos

Hacer mientras no sea EOF(1)

Entrada de línea # 1. tmp 'Lee una línea de datos en el texto

tmp = Trim(tmp)

subs = Split(tmp, Chr(32)) 'Guarda una línea de datos separados por espacios en una matriz

Para cada elemento en subs

Elem = Trim(Elem) 'Elimina los espacios iniciales y finales de los elementos de la matriz

If Elem lt;gt; "" Then 'Este elemento en la matriz no es un espacio

tt = Trim(Str(Val(Elem)))

If Elem lt; ;gt; tt Then 'El elemento de la matriz no son números puros, es decir, no fechas en las dos primeras líneas

Fx = Right(Elem, Len(Elem) - Len(tt)) 'Save wind información de dirección

Si Fx = "N "Entonces 'Si desea contar otras direcciones del viento, cambie aquí

Fl = Val(Elem) 'Guardar información del viento

Seleccione Case Fl

Case Is lt ; 10 'El paquete no incluye el límite, puede corregirlo

N(1) = N(1) 1

Caso 10 a 30 'Los dos números antes y después de To, incluido el límite, Es decir

N(2) = N(2) 1

Caso 40 To 50

N(3) = N(3) 1

Caso 60 A 70

N(4) = N(4) 1

Finalizar selección

Finalizar si

Finalizar si

Finalizar si

Siguiente elemento

Bucle

Cerrar (1)

'¡Salida!

Imprimir "El número de días cuando la dirección del viento es N y la fuerza del viento es 0-10 es:", N(1)

Imprimir "El número de días cuando el la dirección del viento es N y la fuerza del viento es 10-30 es: ", N(2)

Imprimir "La dirección del viento es N, el número de días en los que la fuerza del viento es 40-50 es:" , N(3)

Imprimir "La dirección del viento es N, el número de días con una velocidad del viento de 60-70 es: ", N(4)

End Sub

Se ha verificado y creo que no hay nada malo. Si encuentra alguno, ¡infórmelo!

Hay muchos comentarios, espero que puedas entenderlos!