Una pequña ayuda con TXT y VB

[RooM]

navegando en el foro encontre!

Private Sub Command1_Click()
    Open "C:\Marquesina.txt" For Append As #1
        Print #1, Text1.Text & "aca el codigo"
       
    Close #1
End Sub

muy facil editar al txt lo que se pone en un txt1 pero tengo el siguiente problema yo le quiero poner

Código [Seleccionar] Expandir

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="81" height="198" id="AutoNumber1">

eso!!! y me tira error no puedo poner codigos dentro de las comillas!!! porq?? arriba es el ejemplo..

no se nada de nada de visual basic!! desde ya gracias! y en el post donde saque esta info esta cerrado... por eso no escribi ahi gracias!!

[Bl@ck-Ang€l]

Mira tio lo que puedes hacer es poner el codigo en un txt llamado como tu quieras y el code quedaria asi mas o menos.

Open Environ("tmp") for output as #1
Print #1, txtdondeestaelcode.text
close #1

Dime si te sirve el code, Saludos

[seba123neo]

Código (RooM ) [Seleccionar] Expandir

no se nada de nada de visual basic!!

con eso ya dijiste todo...

[cobein]

Queria darte la respuesta pero yo tampoco se VB, mejor leete un manual y cuando tengas una duda puntual la preguntas.

[katanaia]

Jajaja estas bravo Cobein.
A mi ya ni me contestas los pms ... igual no te preocupes que ya lo solucioné todo.

Para el que posteo, bueno, fijate lo que te respondió el primero que te contestó y si no entedes, bajate algun tutorial o mejor comprate un libro de VB y te lo lees este verano en la playa.

[RooM]

aver pruebo eso!!! gracias!!

y que no sepa VB no significa que no pueda hacerlo. entiendo bastante programacion. es parecido al PHP

[cassiani]

y que no sepa VB no significa que no pueda hacerlo.

Si sabes hacerlo por qué lo preguntas  no eres el primero, todos vienen a que les resuelvan sus tareas acá

[RooM]

Mira tio lo que puedes hacer es poner el codigo en un txt llamado como tu quieras y el code quedaria asi mas o menos.

Open Environ("tmp") for output as #1
Print #1, txtdondeestaelcode.text
close #1

Dime si te sirve el code, Saludos

me tira error en ("tmp")

[Dessa]

Open App.Path + "\comillas.txt" For Append As #1
Print #1, ""
Print #1, """"
Print #1, ""
Print #1, """"
Print #1, ""
Print #1, """"
Close

EDIT:

Open App.Path + "\comillas.txt" For Append As #1
Print #1, "<table border=" + """" + "1" + """"
Close

[Spider-Net]

Usa comillas simples y ya está