Autor
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...
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!
En línea
