Generar TXT

[rasco22862]

Tengo el siguiente codigo para generar un txt

Dim foo As Integer


foo = FreeFile
Open "C:\Archivo2.txt" For Output As #foo
Print #foo, ShockwaveFlash1.GetVariable("prueba")

Close #foo

La variable "prueba" es una string en flash que tiene contenido del siguiente tipo:
1
23
4
5
7
8
En el actionscript la variable estaria definida de la siguiente manera:
var prueba:String = "1\n23\n4\n5\n7\n8"
(\n = dejar espacios)
Cuando ejecuto el codigo de visual se me imprime de la siguiente forma
1║23║4║5║7║8
Lo que yo quiero es que se me imprima uno abajo del otro. Si prueba hacer archivos tipo .rtf(RicTextBox) o .csv(Hoja de excel) sale perfecto. Que tendria que agregarle al codigo para que el txt me salga uno abajo del otro?

[wansoft]

Tienes que reemplazar las palabras \n por vbnewline para que salgan uno debajo de otro, o sea, un numero debajo de otro.

Entonces:

Dim Str as string
str = Replace ("1\n23\n4\n5\n7\n8","\n")

[rasco22862]

pero asi no obtengo en el txt :
1 vbnewLine 2 vbnewline,etc

[jericosoft]

Solo agrega un salto de renglon a cada dato que guardas

Print #foo, ShockwaveFlash1.GetVariable("prueba") & chr$(13)

Espero te sirva