vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Bilder aus FileList in Html einbinden... 
Autor: ModeratorDieter (Moderator)
Datum: 01.12.03 16:06
Hier ein kleines Beispiel: 
Dim sFIle As String
Dim sBuffer As String
Dim i As Integer
Dim sName As String
Dim F As Integer
 
sBuffer = "<html>" & vbCrLf & _
  "<title>#NAME#</title> " & vbCrLf & _
  "<head> </head><body>" & vbVrLf & _
  "<div align=center><center>" & vbCrLf & _
  "<p><img src="#FILE#" width="200" height="70" alt="#NAME#"></p>" & vbCrLf & _
  "</center>" & vbCrLf & _
  "</div> " & vbCrLf & _
  </body></html>"
 
With File
  For i = 0 To .ListCount - 1
    sName = .List(i)
    If InStr(sName, ".") > 0 Then sName = Left$(sName, InStrRev(sName, ".") - 1
 
    F = FreeFile
    Open App.Path & "\" & sName & ".htm" For Output As #F
    Print #F, Replace(Replace(sBuffer, "#NAME'", sName), "#FILE#", .List(i))
    Close #F    
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder aus FileList in Html einbinden...948alert01.12.03 11:09
Re: Bilder aus FileList in Html einbinden...620ModeratorDieter01.12.03 16:06
Re: Bilder aus FileList in Html einbinden...624alert01.12.03 19:51
Re: Bilder aus FileList in Html einbinden...650alert01.12.03 20:51
Re: Bilder aus FileList in Html einbinden...617alert01.12.03 20:54
Hat sich erledigt hab es...616alert02.12.03 15:51

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel