---

Jeg vil gerne udtage comment fra en række jpeg-billeder. Indtil videre har
jeg fundet nedenstående funktion, som kan bruges til at udtage dimensionerne
på jpg-billedet, men jeg er sikker på det må kunne bruges til at tage
comment ud med. Jeg har også fundet ud af at markeren for comment er FFFE.

Men hvordan kommer jeg videre?

Mvh Thomas




Comment marker (FFFE)

a.. The first two bytes, the length, after the marker indicate the number
of bytes, including the two length bytes, that this header contains




Function GetJPGDimensions(sFile)

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(sFile)

Z = Hex(Asc(f.Read(1)))

Z = Z & Hex(Asc(f.Read(1)))

If Z = "FFD8" Then

While Not blExit

Do Until Z = "FF"

Z = Hex(Asc(f.Read(1)))

Loop

Z = Hex(Asc(f.Read(1)))

If Z >= "C0" And Z <= "C3" Then

Z = Asc(f.Read(1))

Z = Asc(f.Read(1))

Z = Asc(f.Read(1))

a = Asc(f.Read(1))

b = Asc(f.Read(1))

c = Asc(f.Read(1))

d = Asc(f.Read(1))

ImgHeight = CInt(a * 256 + b)

ImgWidth = CInt(c * 256 + D)

blExit = True

Else

If Z = "DA" Then

blExit = True

Else

E = Asc(f.Read(1))

x = Asc(f.Read(1))

MarkerLen = (E * 256 + x) - 2

Dim marker, i

i = 0

Do Until i = MarkerLen

marker = marker & 0

i = i + 1

Loop

Z = f.Read(marker)

End If

End If

Wend

End If

f.Close

Set fso = Nothing

End Function