Ayuda para insertar texto en un punto especifico de html

Iniciado por light310oct, 29 Marzo 2015, 23:19 PM

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

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

light310oct

29 Marzo 2015, 23:19 PM
Estoy intentando generar una especie de bitacora utilizando VB6.0 y html;
la idea es tomar variables o valores de textbox y organizarlos en una tabla dentro del html, ya logre enviar los datos al html pero no los coloca en el lugar que necesito si no que los agrega al final adjunto codigo de vb (lo saque de google)
Código [Seleccionar]
Private Sub Form_Load()
Dim Linea As String, AuxAgregar As String
End Sub
Private Sub Command1_Click()
Open "C:\prueba.html" For Input As #1
Do While Not EOF(1)
Line Input #1, Linea 'Te Recoge línea por línea
If InStr(1, Linea, "</tr>") Then AuxAgregar = Linea 'Al final se quedará con la última línea que contenga "</tr>"
Loop
Close #1
Open "C:\prueba.html" For Append As #1 'Usamos Append para que lo añada al documento
Print #1, crlf & "<tr> <td>" & Text1.Text & "</td>" & crlf & "<td>" & Text2.Text & "</td></tr>"
Close #1
End Sub
y necesito ir formado la tabla en este documento (aqui he retirado algunos scrips que utilizo para dejar practicamente solo la tabla)
Código [Seleccionar]

<html>
    <head>

        <title>base de datos</title>
    </head>
    <body>

           <tr>
              <td>Celda 1</td>
              <td>Celda 2</td>
              <td>Celda 3</td>
          </tr>
          <tr>
              <td>Celda 4</td>
              <td>Celda 5</td>
              <td>Celda 6</td>
          </tr>
>>>>>>>>Aqui deberia agregarse el texto<<<<<<<<<<<<
        </table>
    </body>
</html>
Agradezco cualquier ayuda que me puedan brindar Pd. por las funciones del programa al que deseo añadir esta funcion solo puedo programarlo en VB6.0
Si buscas resultados distintos, no hagas siempre lo mismo

MCKSys Argentina

#1
29 Marzo 2015, 23:25 PM
Si abres como Append, siempre se agregarán al final del archivo.

La solución es que cargues todo el HTML, agregues lo que quieres agregar y luego sobreescribas todo el file.

Saludos!
MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Reglas del foro - FAQ Ing. Inversa - Buscador del foro

light310oct

#2
29 Marzo 2015, 23:34 PM
Cita de: MCKSys Argentina en 29 Marzo 2015, 23:25 PM
Si abres como Append, siempre se agregarán al final del archivo.

La solución es que cargues todo el HTML, agregues lo que quieres agregar y luego sobreescribas todo el file.

Saludos!
En ese caso como debería hacerlo porque igualmente solo quiero agregar los datos de las variables en formato tabla_
Si buscas resultados distintos, no hagas siempre lo mismo

MCKSys Argentina

#3
29 Marzo 2015, 23:50 PM
Podrías leer todo el file en un string, hasta el lugar donde quieres insertar.
Agregas lo que quieres agregar y terminas de leer el resto del file.
Una vez hecho eso, sobreescribes el file con el contenido del string.

Saludos!
MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Reglas del foro - FAQ Ing. Inversa - Buscador del foro

yum-kax

Re:
#4
30 Marzo 2015, 01:37 AM
Estoy desde el celu ahora, pero a mi me pasaba cuando habia hecho un prog que tenia que leer la temperatura.... Hace algo así si queres..
Que el instring lea '</tr>' y x cantidad de caracteres mas.. Y al final de la cadena (funcion right) '</table>' y ahi le insertas las cosas...

Espero haberme expresado bien.. Es muy criolla la solución, pero va!

Salutes
Imprimir
Ir Arriba Páginas1
Acciones del Usuario