Red de conocimiento informático - Aprendizaje de código fuente - ¿Un novato que pide ayuda con la programación VB sobre cómo escribir datos de una matriz en un archivo .txt?

¿Un novato que pide ayuda con la programación VB sobre cómo escribir datos de una matriz en un archivo .txt?

Atenuar a(5) como doble

Subcomando privado1_Click()

strfile = ""

CommonDialog1.Filter = "Texto File(*.txt)|*.txt"

CommonDialog1.ShowSave

Si CommonDialog1.CancelError = True, entonces salga de Sub

Si CommonDialog1.FileName = " " Luego salga de Sub

Abra CommonDialog1.FileName para obtener la salida como #1

Para i = 0 a 4

strfile = strfile amp; a(i) amp ; vbCrLf

Siguiente i

Imprimir #1, strfile

Cerrar

MsgBox "¡Exportar correctamente!"

Shell "notepad.exe " amp; CommonDialog1.FileName, vbNormalFocus

End Sub

Sub privado Form_Load()

a(0) = 1 p>

a(1) = 2

a(2) = 3

a(3) = 4

a(4) = 5

End Sub

=================

Agregue un control de diálogo común, donde la matriz se inicializa Depende de usted escribirlo usted mismo, esto es solo una referencia