Autor Tema: Problemas Para Guardar Y Abrir Archivos (Leído 1672 veces)

karen81 · « **en:** Domingo 5 de Marzo de 2006, 05:52 »

Hace poco me ayudaron en este foro con las rutinas para guardar y abrir archivos de texto, funcionan pero el problema es que si yo hago mi archivo de texto manualmente por ejemplo guardo la palabra "prueba" en bloc de notas y la abro con la rutina que me dieron todo perfecto, pero si por ejemplo guardo con visual basic con la rutina que me dieron lo que hay en el textbox en un archivo, cuando lo vuelvo a abrir con visual basic se le agregan dos caracteres (no imprimibles)(al correrlo paso a paso se ven como dos cuadros), como envio los datos por el puerto serial estos caracteres me afectan, pongo aqui las rutinas que me dieron a ver si me ayudan a encontrar porque ocurre esto

Código: Text

Option Explicit
Public file As String
Public fichero As Integer
Public tamano As Long
Public fichero1 As String
Public Texto As String
Public num As Integer
Public guardado As String
Private Sub Cmdguardar_Click()
guardado = Text1.Text
CommonDialog1.CancelError = False
   CommonDialog1.DialogTitle = &#34;guardar archivo como&#34;
   CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
   CommonDialog1.InitDir = Texto
   CommonDialog1.FileName = &#34;&#34;
   CommonDialog1.ShowSave
   
   fichero1 = CommonDialog1.FileName
   num = FreeFile
   If Trim(fichero1) &#60;&#62; &#34;&#34; Then
       Open fichero1 For Output As #num
           Print #num, guardado
       Close #num
       MsgBox &#34;El archivo ha sido guardado&#34;
   End If
End Sub
 
Private Sub Cmdabrir_Click()
'si el usuario presiona el boton cancelar y no abre ningun archivo
On Error GoTo Finalizar
'Establece los filtros
CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
'Presenta el cuadro de dialogo Abrir
CommonDialog1.ShowOpen
'abre el fichero para leer
fichero = FreeFile
Open CommonDialog1.FileName For Input Access Read As #fichero
' Leer la información del fichero
file = Input(LOF(fichero), fichero)
Text1.Text = file
'file = Text4.Text
tamano = Len(file)
Finalizar:
End Sub
 
 

espero me entiendan

, ojala puedan ayudarme

, gracias por su tiempo

tiquinho

Hola karen81:

esos dos cuadros que se ven son posiblemente los caracteres Cr y Lf (retorno de carro y avance de linea) que valen para indicar el final de una línea.
Si tienes el texto en un textbox con la propiedad Multiline a true, te los estará guardando si le das a Intro antes de quitarle el foco. De echo, si abres ese archivo que guardas con el bloc de notas no te aparecerán los cuadros, pero tendrás una línea más en blanco.

La solución a esto depende de lo que quieras hacer. Si al recogerlo del puerto serie quieres mostrar también los cambios de línea, no te preocupes, porque te los enviará como dos caracteres más.

Si no quieres que te los envíe, tendrás que quitarlos.

Espero que te valga de algo esto, si no te soluciona vuelve a preguntar.

Un saludo

cpmario · « **Respuesta #2 en:** Lunes 6 de Marzo de 2006, 21:47 »

El problema que mencionas se debe a que al usar la instrucción

Código: Text

Print #num, guardado
 

Siempre se agrega al final el CrLF para evitar que esto suceda debes de colocar un punto y coma al final de la línea, por ejemplo:

Código: Text

Print #num, guardado;
 

karen81 · « **Respuesta #3 en:** Martes 7 de Marzo de 2006, 00:09 »

cpmario muchas gracias, esa era la solucion

ya no aparecen los caracteres y mi sistema trabaja perfectamente

SoloCodigo

Autor Tema: Problemas Para Guardar Y Abrir Archivos (Leído 1672 veces)

karen81

Problemas Para Guardar Y Abrir Archivos

tiquinho

Re: Problemas Para Guardar Y Abrir Archivos

cpmario

Re: Problemas Para Guardar Y Abrir Archivos

karen81

Re: Problemas Para Guardar Y Abrir Archivos