hente file info lavet i photoshop

Hvilke info snakker vi om her???
De fleste ligger i filen som kode, og jeg tvivler på du kan få dem oversat til fornuftige data (måske der findes komponenter der kan).

Vi snakker om :
Title
Author
Caption
Copyright Notice

den type ting...

Det står i filen, og noget af det burde kunne trækkes ud med fso og readline.

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
lineNr = 1
while not MyFile.AtendOfStream and lineNr < 50
  ReadLineTextFile = MyFile.ReadLine
  response.write ReadLineTextFile &"<br>"
  lineNr = lineNr + 1
wend

du skal så bare have pillet alle de linjer ud, som indeholder information. Det kunne f.eks være "<photoshop:AuthorsPosition>****</photoshop:AuthorsPosition>"

ps. jeg læser kun de første 50 linjer (eller til filen er slut), men der kan laves noget så den læsre ned til linje "</x:xapmeta>", som lader til at være slutningen.

pps. Du kan prøve at åbne en psd fil i noteblok(får ikke linjeskift med) eller WordPad for at se hvilke infomationer, der er i filen.

jamen det er jpg og tif filer..

hehe man kunne gøre det samme med en jpg-fil
Det virkede.

Tak

Giv mig et svar, så får du pointene..

.o) <-- One Eyed Jack