ist doch ganz einfach...
zuerst brauchst Du image-ressources für jeden Typ, den Du kennst...in meinem beispiel heissen die gif.gif, jpg.gif, avi.gif, etc )
Die Formel- Sprache ist so unendlich mächtig, was Listen angeht, da macht man sowas, ohne sich die Finger zu verbiegen:
allAtts := @AttachmentNames;
allTypes := @Rightback( allAtts ; "." );
hrefStart := "<a href=\"dbnameandpath/viwName/unidDesDocs/$File/";
hrefMiddle := "?OpenElement\">";
hrefEnd := "</a>;
hrefText := allAtts;
imgStart := "<img src=\"dbnameandpath/";
imgEnd := ".gif?OpenImageRessource\">";
x1 := hrefStart + allAtts + hrefMiddle;
x2 := imgStart + allTypes + imgEnd;
x3 := x2 + " " + hrefText;
x4 := hrefEnd;
x1 + x3 + x4
Sollte dabei sowas rauskommen:
<a href="dbnameandpath/viwName/unidDesDocs/$File/Test1.Doc?OpenElement"><img src="dbnameandpath/doc.gif?OpenImageRessource> Test1.Doc</a>
<a href="dbnameandpath/viwName/unidDesDocs/$File/Test2.gif?OpenElement"><img src="dbnameandpath/gif.gif?OpenImageRessource> Test2.gif</a>
Das ganze ist jetzt mal eben aus den Fingern gesaugt, sollte aber in etwa so funktionieren...
Eventuell musst Du noch (wenn Du nicht sicher bist, dass Du alle Attachment- Typen vorher kennst und als Imageressourcen anlegen kannst) vorher die images prüfen:
eine imageressource anlegen mit einem leeren Blatt z.b. namens "fb.gif"
knownTypes := "doc" : "gif" : "jpg" : "xls";
fallBackType := "fb";
unknownTypes := @Trim( @Replace( allTypes ; knownTypes ; "" ) );
allTypesNew := @Replace( allTypes ; unknownTypes ; fallBackType );
HTH
Tode