encode

hola a todos , tengo una aplicacion en Visual Basic y en esta uso varios swf de flash , uno de estos es para hacer anotaciones y aqui viene el problema en este swf tengo un boton que al dar click manda a visual basic mediante fscommand el texto que hay en un input text , en VB recibo el texto y lo guardo a un fichero , pero cuando voy a abrir el fichero los enter no me los reconoce , donde hay un enter me pone un caracter que es un cuadrado , si alguien tiene alguna idea de que pueda pasar !!! , yo creo que es un problema de encode pero no se como resolverlo

nota : donde pongo enter quiero decir salto de linea y retorno de carro

saludos y de antemano gracias

hola amigo
Soy programador en Vb, hacia muuucho tiempo que no veia programas enlazados con flash eso lo hice yo hace unos cuantos años por diversion

Yo hice mas o menos lo que dices pero no tengo el problema que se te presenta

fijate

Código :

Private Sub cmdSave_Click()
    Call SaveTxtFile(App.Path & "\" & "Test.txt", ShockwaveFlash1.GetVariable("txtFlash"))
End Sub

Private Sub cmdLoad_Click()
    Call ShockwaveFlash1.SetVariable("txtFlash", LoadTxtFile(App.Path & "\" & "Test.txt"))
End Sub

'-------------------------------------------------------------------------
' Esta función carga un archivo de texto
'-------------------------------------------------------------------------
Function LoadTxtFile(TextFilePath As String)
    Dim strTempStr As String
    Dim TextLine$
    Open TextFilePath For Input As #1 'Code
    Do Until EOF(1)
        Line Input #1, TextLine$
        strTempStr = strTempStr + TextLine$ & IIf(EOF(1), "", vbNewLine)
    Loop
    Close #1
    LoadTxtFile = strTempStr
End Function

'-------------------------------------------------------------------------
' Esta función carga un archivo de texto
'-------------------------------------------------------------------------
Function SaveTxtFile(TextFilePath As String, TextString As String)
    Dim strTempStr As String
    Open TextFilePath For Output As #1 'Code
    Print #1, TextString
    Close #1
End Function

gracias Enav

Te funciono? yo creo que no te funcionava por la forma de cargar y guardar el texto pero esas son unas funciones que me simplifican la vida

resolvi con esta funcion

Private Function Encode(ByVal Val As String) As String

Dim i As Long, curChar As String

For i = 1 To Len(Val)
curChar = Mid(Val, i, 1)
If curChar = vbCr Then
Encode = Encode & Chr(13) + Chr(10)
Else
Encode = Encode & curChar
End If
Next i

End Function

pero gracias de todas formas

saludos