Red de conocimiento informático - Material del sitio web - ¿Cómo convertir el siguiente formato de datos usando la programación VB?

¿Cómo convertir el siguiente formato de datos usando la programación VB?

¿Privado?Sub?Command1_Click() ¿Abrir?"c:\test1.txt"?Para?Entrada?As?#1 Abrir?"c:\test2.txt"?Para?Salida?As? #2 ¿Dim?temp?As?String,?tmp()?As?String Dim?i?As?Long,?j?As?Long While?Not?EOF(1)

Entrada de línea ?#1,?temp

Si?InStr(temp,?",")?lt;gt;?0?Entonces ReDim?Preserve?tmp(i) tmp(i)?=?temp i ?=?i? ?1

De lo contrario, ¿si?i?lt;gt;?0?Entonces imprimir?#2,?i para?j?=?0?A?UBound(tmp) ¿Imprimir? #2,?tmp(j) Siguiente Borrar?tmp ReDim?tmp(0) i?=?0 Fin?Si Fin?Si Wend Imprimir?#2,?i Para?j?=?0?A?UBound(tmp ) ¿Imprimir?#2,?tmp(j) ¿Siguiente Borrar?tmp Cerrar

Fin?Sub