Error con archivo de Texto ayudenme!

[Braayhaan]

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.



-----------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

Código (vbnet) [Seleccionar] Expandir

        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

Código (vbnet) [Seleccionar] Expandir

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

[Braayhaan]

Ayudenme Por Fa!

[Braayhaan]

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.

[Ari Slash]

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

[Atrum]

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

Código (vbnet) [Seleccionar] Expandir


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

Código (vbnet) [Seleccionar] Expandir


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

Código (vbnet) [Seleccionar] Expandir


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.

[Braayhaan]

Ok Los reviso y les digo

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

Gracias me funciono perfecto Xtriker 

Gracias

[Braayhaan]

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