title image


Smiley TIPP: Unicode als HTML darstellen
Na, dann halt:



Public Function UnicodeToHTML(Optional TblName = "MeineTabelle", _

Optional Fieldname = "MeinFeld", _

Optional Krit = "ID < 3", _

Optional FName = "C:\Temp\test.html")

Dim Tmp As String, I As Long, RS As DAO.Recordset



Open FName For Output As #1

Print #1, "<html><head><title'" & TblName & " (" & Fieldname & ")'</title></head>"

Print #1, "<body>"

Set RS = CurrentDb.OpenRecordset("SELECT [" & Fieldname & "] FROM [" & TblName & _

"] WHERE " & Krit, dbOpenSnapshot)

Do Until RS.EOF

Tmp = Nz(RS(0), "")

For I = 1 To Len(Tmp)

Print #1, "&#" & AscW(Mid(Tmp, I, 1)) & ";";

Next I

Print #1, "<br>"

RS.MoveNext

Loop

RS.Close

Close #1

End Function



... oder ähnlich.



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: