Imprimir Página - Ayuda para solucionar mi bug!

hola, nose si recuerdan q eh estado pidiendo ayuda ya que estoy haciendo una utilidad para crear nick para un juego, bueno finalmente termine la aplicacion, la probe y sin problemas todo resultaba bien hasta k me encontre con un bug, algunas vecez cuando quiero guardar el nick en alguna configuracion (archivo.cfg) este no se guarda, para guardar el archivo utilizo el siguiente codigo.

Código:

Private Sub Command1_Click()
Dim n1
Dim var
n1 = FreeFile()
Open Dir1.Path & "\" & File1.filename For Input As #n1
        While Not EOF(n1)
        Line Input #n1, var
        If Mid(var, 1, 9) = "seta name" Then
        var = "seta name """ & Form1.Text1.Text & """"
        End If
        Form1.Text2.Text = Form1.Text2.Text & var & vbCrLf
    Wend
    Close #n1
    Open Dir1.Path & "\" & File1.filename For Output As #n1
    Print #n1, Form1.Text2.Text
    Close #n1
Form4.Hide
MsgBox "Your config was saved successful", vbExclamation, "Saving ;-)"
End Sub

lo que hago con este codigo es abrir el fichero y mientras este no termine leerlo linea por linea con line input, en cada linea pregunto si el principio de esta es "seta name" cambiar esta linea por "seta name" & nombre_que_el_usuario_ingreso y luego paso cada linea a un textbox y al final de cada linea agrego un vbCrLf para hacer el salto de linea, luego al tener todo en el textbox este lo pasa todo al archivo con el mismo nombre solo que ahora esta con el nick que el usuario ingreso. Lo raro es que con algunos archivos si funciona pero con otros no.
Al ver el textbox mientras el codigo se pasa me encontre con lo siguiente...

(http://img205.imageshack.us/img205/1042/017ac.png)

Si se fijan todo queda de corrido, el salto de linea no funciona, pero si se fijan mas aun el salto de linea esta alli, el cual figura con un palito vertical k resalta mucho, como |, nose pork en algunos archivos pasa esto, ya que cuando esto pasa tampoco se guarda el nombre, pero en otros archivos funciona perfectamente como en este...

(http://img159.imageshack.us/img159/5899/029wh.png)

Espero su ayuda, desde ya gracias!

esa barrita es porque el textbox no tiene activada la propiedad "MultiLine". El archivo no se guarda porque esto esta mal:

Código:

Open Dir1.Path & "\" & File1.filename For Input As #n1

File.Filename contiene la ruta completa, es decir, estas haciendo que habra la ruta: "C:\MiCarpeta\C:\MiRuta\MiArchivo.ext". Usa solamente File1.Filename o separa el nombre de la ruta completa para añadirla al path de Dir1.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: brako en 11 Enero 2006, 18:40 pm