¿Cómo debería VBA crear un archivo que genere una matriz de 2 elementos? Para la impresión #2, la función

Abra "c:\a.txt" como entrada n.° 1

Abra "c:\b.txt" como salida n.° 2

Hacer mientras no EOF(1)

Entrada de línea #1, s

arr = Split(s, ","")

A = Val( arr (0))'Val es una conversión para evitar cadenas no numéricas en los datos.

j = 0

Para i = 1 a UBound(arr)

si Val(arr(I))& gt; entonces a = arr(i) ): j = i

Entonces

Para i = j a 1 paso - 1

arr(i) = arr(i - 1)

Entonces

arr(0) = a

Imprime #2, "matriz original:" & s&p. vbTab &" matriz modificada: "&Replace(Join(arr,","&vbTab),"","")

Anillo

Cerrar #1, #2

Conector final