Foro de elhacker.net

Tengo un problema con un Fucking archivo de Texto.

Lo que pasa es que al guardarlo con un boton simple nada de SaveFileDialogs, lo guarda perfecto pero a la hora de leerlos los lee con un cuadrito blanco.

(http://i86.servimg.com/u/f86/11/66/25/27/error11.png)

-----------EDITO-----------

Me acabo de fijar que pone el cuadrito es porque deja un espacio abajo osea como cuando damos un enter.

y si lo borro se quita y no pasa mas, pero cuando otro user guarde ese texto le va a pasar lo mismo entonces como hago para que no me quede ese espacio?

este es el code para los tres textbox

        FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
        PrintLine(1, TextBox1.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp2.txt", OpenMode.Append)
        PrintLine(1, TextBox2.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp3.txt", OpenMode.Append)
        PrintLine(1, TextBox3.Text)
        FileClose(1)
        Me.Hide()

y para leerlos

 

Dim largo As Integer
        Dim texto As String
        Dim SPath As String = "c:\windows\smtp1.txt"
        Dim SPath2 As String = "c:\windows\smtp2.txt"
        Dim SPath3 As String = "c:\windows\smtp3.txt"
        Dim sContent As String = vbNullString
        With My.Computer.FileSystem
            If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto
            End If
            If .FileExists(SPath2) Then
                FileOpen(1, "c:\windows\smtp2.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp2.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox2.Text = texto
            End If
            If .FileExists(SPath3) Then
                FileOpen(1, "c:\windows\smtp3.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp3.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox3.Text = texto
            End If

Ayudenme Por Fa!

y tambien necesito un code que sirva para, sobreescribir  el texto que este escrito, no que lo escriba en una linea nueva.

El que tengo arriba escribe en la misma linea pero al lado necesito que lo sobreescriba aparte tambien lo del cuadrito ese Gracias.

hola

la propiedad de los textbox llamada acceptsreturn cuando esta en false el textbox no acepta la tecla enter para la nueva linea, debes aplicarlo cuando escribes en el archivo.

te sirve de algo?


salu2

Si utilizas la funcion Trim() te devuelve la cadena pero sin espacios, no se si esto solucione este problema,
por ejemplo.

FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
        PrintLine(1, TextBox1.Text.trim()) 'Inserta la cadena sin espacios
 

Tambien podria ser que lo utilices al momento de leer

If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto.Trim() 'Lee la cadena sin espacios
            End If
 

Otra idea es meterle como parametro al Trim el salto de linea

If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto.Trim(CChar(vbCrLf)) 'Lee la cadena sin saltos de linea
            End If
 

espero te sirva de algo.

Ok Los reviso y les digo ;D

----------EDITO----------

Gracias me funciono perfecto Xtriker  :xD

Gracias

otra cosa xD

Como haria para que si el user vuelve a escribir algo o escribe lo mismo sobreescriba el contenido de ese Text? o si no se puede que sobreescriba el archivo.txt?


---------------------------------------------------

Ya lo Resolvi :xD