[VB6] Pagina web da stringa in TextBox

[elkarmo]

Ciao ragazzi...
Scusatemi per il titolo, ma davvero nn so come spiegarlo in parole povere....
Praticamente in una textbox io scrivo una frase e la salvo in una variabile TEXT.... Devo poter mettere quella variabile all'interno di un codice html.... esatamente questo...

<table width="100%" border="1">
<tr>
<td>

VARIABILETESTO</p>
</td>
</tr>
</table>

In poche parole, io scrivo un testo e lui lo deve inserire tutto all'interno di VARIABILETESTO e salvarlo come txt....
COme posso fare??
avete suggerimenti??? grazie mille...

[Franz78]

Se ho capito bene potresti fare cosi:

1) apri il file con il codice HTML e la variabile di testo e metti il contenuto in una variabile (ad es.miotesto)

2) fai un replace del testo VARIABILETESTO con la stringa della textBox

3) risalvi il file di testo con le modifiche.



ciao!!

[elkarmo]

ok....
ho risolto cosi'....

Function Conversione_Testo() As String
Dim fso, fosavefile
Dim testo As String
Dim OggFile, pathfile, OggTextStream, rigaletta

Set fso = New Scripting.FileSystemObject
pathfile = App.Path & "\Ext\html_testo.txt"
MsgBox "Inizio"
On Error GoTo GestErrore
Set fosavefile = fso.CreateTextFile(App.Path & "\Ext\testo.html", True)
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile(pathfile)
Set OggTextStream = OggFile.OpenAsTextStream(1)
testo = Me.Text1.Text
Do While Not OggTextStream.AtEndOfStream
rigaletta = OggTextStream.ReadLine
rigaletta = Replace(rigaletta, "@#miotag@#", testo)
fosavefile.WriteLine (rigaletta & vbCrLf)
Loop
OggTextStream.Close
fosavefile.Close
Set fosavefile = Nothing
MsgBox "Fine"
Exit Function

GestErrore: MsgBox Err.Description
End Function

il problema ora e' che anziche' mettermi tutto il testo in una tabella 1x1 praticamente, quando trova l'invio deve crearmi una seconda riga della tabella...
Come posso fare?

[tossam]

ciao,

se voui, ti posso dare quealche aiuto in proposito...
sto realizzando un programma che mi aiuti a fare una pagina html.
ad esempio, invece di scrivere ogni volta <b href= "miopercorso">ciao[/b], clicco su un bottone e mi escono due imputbox (uno dopo l'altro) dove mi si richiede percorso e "titolo".
insomma, posso costruire un codice html in breve tempo e salvarlo poi con open file.

ciao.
(la mia e-mail: tossam@libero.it)

[elkarmo]

Io non devo fare proprio la stessa cosa....
in pratica ho una pagina html gia' creata....

<div >
<table width=100% cellspacing="0" cellpadding="2" border="0" bgcolor="#ffffff">
<tr bgcolor="@#colsfondo">
<td colspan="2">

@#scheda@#

</p></td>
</tr>
<tr bgcolor="@#colsfondo">
<td width="50%" height="25" nowrap bgcolor="@#colsfondo">@#scheda@#</td>
</tr>
<tr bgcolor="@#colsfondo">
<td width="50%" nowrap>@#scheda@#</td>
</tr>
<tr bgcolor="@#colsfondo">
<td nowrap>@#scheda@#</td>
</tr>
<tr bgcolor="@#colsfondo">
<td nowrap>@#scheda@#</td>
</tr>
</table>
</div>

c'e' sempre una riga bianca e una viola...
Quando nella textbox scrivo qualcosa lui deve metterlo nella pagina, ma nel momento in cui metto una riga vuota tra una frase e l'altra della textbox, lui deve creare una nuova riga html....
In piu' deve aggiungermi anche una nuova riga nel codice se ce ne fosse bisogno....
nn riesco a tirarne fuori una soluzione decente...

il codice e' questo...

Function Conversione_Scheda() As String
Dim fso, fosavefile
Dim testo As String
Dim OggFile, pathfile, OggTextStream, rigaletta
Dim contariga As Long
Set fso = New Scripting.FileSystemObject
pathfile = App.Path & "\Ext\html_scheda.txt"
On Error GoTo GestErrore
Set fosavefile = fso.CreateTextFile(App.Path & "\Ext\scheda.html", True)
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile(pathfile)
Set OggTextStream = OggFile.OpenAsTextStream(1)
testo = Me.Text2.Text
Do While Not OggTextStream.AtEndOfStream
rigaletta = OggTextStream.ReadLine
contariga = contariga + 1
If contariga Mod 2 = 0 Then
colorebg = "#FFFFFF"
rigaletta = Replace(rigaletta, "@#colsfondo", colorebg)

ElseIf contariga Mod 2 <> 0 Then
colorebg = "#CDCFDE"
rigaletta = Replace(rigaletta, "@#colsfondo", colorebg)

End If
rigaletta = Replace(rigaletta, "@#scheda@#", testo)

fosavefile.WriteLine (rigaletta & vbCrLf)
Loop
OggTextStream.Close
fosavefile.Close
Set fosavefile = Nothing
Unload Form1
Exit Function

GestErrore:
MsgBox Err.Description
End Function

Spero tu mi possa aiutare...