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