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)
y necesito ir formado la tabla en este documento (aqui he retirado algunos scrips que utilizo para dejar practicamente solo la tabla)
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
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 Suby 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