Insertar comillas dentro de un WriteLine

[Erika Vega]

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

"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

[Ironhorse]

Código [Seleccionar] Expandir

file.WriteLine ("""IP"" = ""broker.gunbound.net""")

[Gorky]

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))

[Ironhorse]

Si, funciona, proba lo siguente:

Código [Seleccionar] Expandir

msgbox("""IP"" = ""broker.gunbound.net""")

[The Shredder]

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 [Seleccionar] Expandir


msgbox "comillas.text + "woOoOO" + comillas.text

salu2

[Gorky]

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 [Seleccionar] Expandir


msgbox "comillas.text + "woOoOO" + comillas.text

salu2

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

[Erika Vega]

Gracias chicos ya lo logre y fue con esta rutina:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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?

[Hans el Topo]

Gracias chicos ya lo logre y fue con esta rutina:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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?

[Erika Vega]

pues esta:

Código [Seleccionar] Expandir

Shell "label1.caption+GBkiller.reg"

[The Shredder]

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 [Seleccionar] Expandir


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