Sympa74
Messages postés85Date d'inscriptionlundi 25 septembre 2006StatutMembreDernière intervention18 décembre 2008
-
28 oct. 2007 à 15:57
Sympa74
Messages postés85Date d'inscriptionlundi 25 septembre 2006StatutMembreDernière intervention18 décembre 2008
-
29 oct. 2007 à 18:44
Bonjour à tous,
je viens de passer un peu plus de 2 heures à chercher sur ce forum quelque chose qui pourrait m'aider en VB2005, mais rien de rien... ou que des choses très anciennes ou pas adaptées à ce langage.
Voila mon problème. J'ai un form qui comprend un certain nombre d'infos saisies et d'autres récupérées dans une base de données.
L'ensemble de ces résultats s'affichent à l'écran dans un form. Jusque là tout est OK.
Mon problème réside dans le fait que je dois ajouter un bouton pour envoyer toutes les infos de la page sur un document en html.
En fait, c'est comme si je voulais imprimer, sauf que là, mon bouton doit générer une page web.
Je ne trouve rien de concret. Y'a t'il quelque chose qui puisse m'aider sur ce site ?
Je vous en remercie par avance.
zavier666
Messages postés266Date d'inscriptionmardi 7 septembre 2004StatutMembreDernière intervention30 avril 20091 28 oct. 2007 à 17:27
bonjour,
ne suffit-il pas de générer un texte contenant le code html de la
page avec les données de la form et d'enregistrer tout cela dans un
fichier avec une extension ".html"??
--------------------------------------------------
Toujours + de VB et d'API => APi @ le Loupe
http://apialaloupe.free.fr
vautour32
Messages postés38Date d'inscriptionjeudi 20 septembre 2007StatutMembreDernière intervention 9 décembre 2008 29 oct. 2007 à 18:23
Bonjour,
Pour autant que je le sache, le seul moyen est d'écrire du code HTML dans le fichier.
Exemple: créer la liste des fichiers d'un dossier
Sub CreateFilesList(dirpath as String)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set monfic = fso.CreateTextFile(dirpath & "\filesList.htm", True)
monfic.Write "<html> " & vbCrLf & "<head>" & vbCrLf & "<title> liste de fichiers</title>" & "</head>" & vbCrLf & ""
monfic.WriteLine " *** Liste de fichiers générée par le programme 'files manager' ***"
monfic.WriteLine "
"
monfic.WriteLine "Liste des fichiers du dossier: " & dirpath
monfic.WriteLine "
"
Set fso = CreateObject("Scripting.FileSystemObject")
Set rep = fso.GetFolder(dirpath)
Set fc = rep.Files
For Each fichier In fc
monfic.WriteLine "<li> " & fichier.name & " - " & fichier.Size & " octet(s)"
monfic.WriteLine "
"
monfic.WriteLine "<hr noshade>"
monfic.WriteLine "
"
DoEvents
Next
monfic.Write "" & vbCrLf & "</html>"
End Sub
Sympa74
Messages postés85Date d'inscriptionlundi 25 septembre 2006StatutMembreDernière intervention18 décembre 20081 29 oct. 2007 à 18:44
Bonjour et merci Vautour 32 pour cet exemple.
C'est donc ce que je craignais un peu... il faut donc se taper tout le code html et gérer le cas des caractères accentués, etc..; etc.
J'avais posé cette question (de débutant) car vu qu'il existe un script pour l'opération inverse... c'est à dire enlever quasi automatiquement toutes les balises d'un code html pour ne récupérer que le texte brut... je me disais (bientôt Noël) qu'il existait sans doute un code déjà prévu pour convertir les données d'un fichier texte en code html.
Bon ben... va falloir que je retrousse les manches donc...
Merci tout de même pour ces pistes et pour ton exemple de script.
Toutefois (question subsidiaire), il est possible d'écrire des balises html directement dans le corps d'une sub dans VB2005 ???
je sais que c'est possible sur un code écrit en asp mais aussi en VB ? Je vais essayer cela...