Newsgroup: it.comp.lang.visual-basic
Titolo: Come convertire da VB in HTML

Ciao a tutti. Chiedevo se era possibile da codice VB, creare una pagina HTML
e riempirla con dati presi per esempio da una tabella Access, o riempirla
anche di immagini o files musicali.
Chi mi sa aiutare?
Grazie.
Gianfranco
la...@libero.it

Chi mi sa aiutare?
Io ho fatto qualche prova, potrebbe faer al caso tuo?
Ciaps
Stracca
http://www.stracca.net
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
' *******************
' 
http://www.stracca.net
 
' *******************
Option Explicit
Public Sub Main()
Dim cHtmlHead As String
Dim cHtmlBody As String
Dim cHtmlEnd As String
Dim sFile As String
Dim iNumFile As Integer
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim a
 
cHtmlHead = "<HTML>" & vbCrLf & "<HEAD>" & vbCrLf & _
            "<META http-equiv=""Content-Type"" content=""text/html;
charset=ISO-8859-1"">" & vbCrLf & _
            "<META http-equiv=""Expires"" content=""Sun, 31 Dec 2000
11:00:00 GMT"">" & vbCrLf & _
            "<META name=""Author"" content=""
str...@stracca.net
"">" &
vbCrLf & _
            "<META name=""Generator"" content=""StrHPad"">" & vbCrLf &
_
            "</HEAD>"
    cHtmlBody = vbCrLf & "<BODY BGPROPERTIES=""FIXED"" TOPMARGIN=""0""
LEFTMARGIN=""0"" BGCOLOR=""#FFFFFF"">" & vbCrLf & _
                "<LINK REL=""stylesheet"" HREF=""" & App.Path &
"\style.css"" TYPE=""text/css"">"
    cHtmlEnd = "</BODY>" & vbCrLf & "</HTML>"
 
    'Apro il File
    sFile = "C:\Windows\Desktop\FileProva.html"
    iNumFile = FreeFile
 
    If Dir(sFile) <> "" Then
        Kill sFile
    End If
 
    Open sFile For Append As iNumFile
    'scrivo intestazione
    Print #iNumFile, cHtmlHead
    Print #iNumFile, cHtmlBody
    Print #iNumFile, "<TABLE BORDER=1>"
 
    'Carico il Database
    strSQL = "SELECT * FROM TabAnag ORDER BY Cognome AND Nome"
    Set db = OpenDatabase(App.Path + "\db.mdb", , False)
    Set rs = db.OpenRecordset(strSQL)
 
    If rs.EOF = True Then
        Print #iNumFile, "<TR><TD>Nessun record.</TD><TR>"
    Else
        rs.MoveFirst
        Print #iNumFile,
"<TR><TD>#</TD><TD>Cognome</TD><TD>Nome</TD><TD>Telefono
Casa</TD><TD>Note</TD></TR>"
        Do Until rs.EOF = True
            Print #iNumFile, "<TR><TD>" & rs!ID & "</TD><TD>" &
rs!Cognome & "</TD><TD>" & rs!Nome & "</TD><TD>" & rs!TelCasa &
"</TD><TD>" & rs!Note & "</TD></TR>"
            rs.MoveNext
        Loop
    End If
    Print #iNumFile, "</TABLE>"
 
    Print #iNumFile, cHtmlEnd
    Close #iNumFile
 
    a = Shell("C:\PROGRA~1\INTERN~1\iexplore.exe " & sFile,
vbMaximizedFocus)
End Sub

Ciao, io lo avevo realizzato un po' di tempo fa un prog. simile.
In pratica mi ero creato un "modello" della pagina HTML, in cui inserivo
commenti particolari che il VB sostituiva coi dati.
Il prog. apriva il modello in lettura, e il file definitivo (es. main.HTML)
in scrittura e cominciava a "travasare" le righe finchč non trovava i
commenti chiave tipo la riga <!-- #NOME -->
A quel punto avviava una funzione che scriveva i dati letti da un db nel
file main.html e quando aveva finito riprendeva a travasare i dati fino al
successivo tag.
Se hai problemi fammi sapere, ok?
Bye
--
Tango
www.af.mil
ICQ: 35463931