Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Erika Vega en 20 Junio 2006, 17:51 pm



Título: Insertar comillas dentro de un WriteLine
Publicado por: Erika Vega en 20 Junio 2006, 17:51 pm
Creo que el titulo no es muy claro pero aqui voy con mi problema, lo que pasa es que estoy haciendo un programa que me creara un archivo *.reg.

Les muestro parte del codigo.

Código:
Private Sub cmdkill_Click()
Dim fso, GBkill
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GBkill = fso.CreateTextFile("c:\GB-killer.reg", True)
   
    GBkill.WriteLine ("Windows Registry Editor Version 5.00")
    GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
       
    GBkill.Close

Como ven todo bien hasta ahi pero ahora lo que pasa es que tengo lineas que insertar de la siguiente forma

Código:
"IP"="broker.gunbound.net"

Ya llevan comillas y no se como hacerle ya que la secuencia de un writeline es:  file.WriteLine ("aqui el texto entre comillas")

en otras palabras seria comillas dentro de otras comillas  :-( :-\
End Sub


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Ironhorse en 20 Junio 2006, 22:46 pm
Código:
file.WriteLine ("""IP"" = ""broker.gunbound.net""")



Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Gorky en 21 Junio 2006, 17:21 pm
Código:
file.WriteLine ("""IP"" = ""broker.gunbound.net""")

Estas seguro de que eso va a funcionar?? Esas comillas te las va a interpretar como sintaxis para el compilador y no como un string.

La solucion seria sustituir las comillas strings por chr(34) y concatenarlas con "&". La cosa se quedaria del siguiente modo:

Código:
file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Ironhorse en 21 Junio 2006, 20:22 pm
Si, funciona, proba lo siguente:

Código:
msgbox("""IP"" = ""broker.gunbound.net""")


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: The Shredder en 21 Junio 2006, 22:21 pm
lo que yo hago es un textbox que contenga solo las comillas " y luego le pongo el nombre de comillas al textbox, entonces luego por ejemplo seria:
Código:
msgbox "comillas.text + "woOoOO" + comillas.text
salu2


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Gorky en 22 Junio 2006, 15:53 pm
lo que yo hago es un textbox que contenga solo las comillas " y luego le pongo el nombre de comillas al textbox, entonces luego por ejemplo seria:
Código:
msgbox "comillas.text + "woOoOO" + comillas.text
salu2

Sin animo de ofender, eso seria la manera cutre de lo que yo he dicho.


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Erika Vega en 22 Junio 2006, 17:24 pm
Gracias chicos ya lo logre y fue con esta rutina:

Código:
file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))

Muy buena no pense en esa opcion!

Ahora bien ya tengo todo mi code listo pero me salio otro problema.


Código:
Private Sub cmdkill_Click()
Dim fso, GBkill
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GBkill = fso.CreateTextFile(Label1.caption + "GBkiller.reg", True)
   
    GBkill.WriteLine ("Windows Registry Editor Version 5.00")
    GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
...
...
...       
    GBkill.Close

Shell "label1.caption+GBkiller.reg"
End Sub

Private Sub Form_Load()
Label1.caption=app.path + "\"
End Sub

Me sale Ruta del Archivo no encontrado
no se que error cometo?


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Hans el Topo en 22 Junio 2006, 18:28 pm
Gracias chicos ya lo logre y fue con esta rutina:

Código:
file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))

Muy buena no pense en esa opcion!

Ahora bien ya tengo todo mi code listo pero me salio otro problema.


Código:
Private Sub cmdkill_Click()
Dim fso, GBkill
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GBkill = fso.CreateTextFile(Label1.caption + "GBkiller.reg", True)
   
    GBkill.WriteLine ("Windows Registry Editor Version 5.00")
    GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
...
...
...       
    GBkill.Close

Shell "label1.caption+GBkiller.reg"
End Sub

Private Sub Form_Load()
Label1.caption=app.path + "\"
End Sub

Me sale Ruta del Archivo no encontrado
no se que error cometo?

lo de las comillas.... mejor no digo nada xk lo unico sensato era usando el chr xd

al darle a depurar que texto se te selecciona?


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Erika Vega en 22 Junio 2006, 20:20 pm
pues esta:

Código:
Shell "label1.caption+GBkiller.reg"


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: The Shredder en 22 Junio 2006, 21:48 pm
lo que yo hago es un textbox que contenga solo las comillas " y luego le pongo el nombre de comillas al textbox, entonces luego por ejemplo seria:
Código:
msgbox "comillas.text + "woOoOO" + comillas.text
salu2

Sin animo de ofender, eso seria la manera cutre de lo que yo he dicho.

si se xD, pero si no sabia...algo se me tenia q ocurrir xDxDxD...
salu2


Título: Re: Insertar comillas dentro de un WriteLine
Publicado por: Hans el Topo en 23 Junio 2006, 13:06 pm
pues esta:

Código:
Shell "label1.caption+GBkiller.reg"


eso si kieres enviarle comillas dobles deberas hacer lo mismo que antes con el chr.... ya que eso lo k le envia a la shell es la cadena
"label1.caption+GBkiller.reg" dxdxdx
 y supongo que quieres poner el valor total de esa operacion ... xd

creo que sería asi...  label1.caption & "gbkiller.reg"