Ayuda para solucionar mi bug!

Iniciado por brako, 11 Enero 2006, 18:40 PM

0 Miembros y 1 Visitante están viendo este tema.

brako

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.

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



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



Espero su ayuda, desde ya gracias!

sch3m4

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

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

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

brako

lo de las barritas no creo que sea eso porq tengo el multiline en true y lo otro no creo que sea correcto porq filename.name solo me da el nombre del archivo para la ruta completa necesito poner lo anterior, lo puedo probar poniendo un msgbox file1.name y solo me da el nmbre del archivo, alguna otra idea? ayuda plz!

sch3m4

jajaja, perdona, confundí el File1 con el CommonDialog (siempre que trabajo con los common dialogs les llamo File(x) xD)

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

Kizar

Ademas de tener el textbox en multiline, tienes que poner en Scrolbars = both

Salu2

brako

mucha sgracias, probare aver si me funciona, ya les contare :D