Hi Glombi,
hier der Code in Lotus Skript:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField("FeldBody")
A = uidoc.FieldGetText ("FeldDateiName")
Call uidoc.Import("HTML File", A)
End Sub
... und hier das html-File:
<html>
<head>
<style type="text/css">
* { font-style:arial; }
caption { color:black; font-size:30px; }
hr { color:red; }
td { color:black; font-size:9px; }
p { color:blue; font-size:9px; }
th { color:white; background-color:gray; font-size:10px; }
</style>
</head>
<body>
<table border="1"cellspacing="0">
<caption>Fakturenprotokoll</caption>
<tr>
<th>RENR</th>
<th>KDNR</th>
<th>Rechn.Art</th>
<th>Kunde Auftraggeber</th>
<th>Material</th>
<th>TR-Nr.</th>
<th>Zuständ.MA</th>
<th>Menge</th>
<th>Nettoww</th>
<th>VK</th>
<th>DB 2</th>
<th>Frachterl.</th>
</tr>
<tr>
<td><p>1900112279</p></td>
<td><p>0013034646</p></td>
<td><p>RE Retourengutschrift</p></td>
<td><p>1034060 MUSTERKUNDE</p></td>
<td><p>101631 ARTIKEL</p></td>
<td><p> </p></td>
<td><p>104 MAIER</p></td>
<td><p>-3,00</p></td>
<td><p>-18,00</p></td>
<td><p>6,00</p></td>
<td><p>0,24</p></td>
<td><p>0,00</p></td>
</tr>
</table>
<hr>
</body>
</html>
Du stellst die Frage: "Warum importierst Du das in ein Feld?"
Für mich derzeit der einzig möglich Weg !?. Wohin kann man es sonst noch importieren ?
Gruß
Gerhard
Thema: html Import ... Format geht verloren ? (Gelesen 3215 mal)