Dateinamen (verknüpfte Bilder) in Liste ausgeben

[grossino]

Hallo!

Ich habe hier viele Textdokumente (etwa 700 Arbeitsblätter) für verschiedene Fächer, in denen verknüpfte Bilddateien vorhanden sind. Leider habe ich beim Scannen der Bilder die Dateinamen der Bilder nicht den Textdokumenten eindeutig zugeordnet, sondern sie fortlaufend nummeriert (also 101.tif, 102.tif usw.)

Den Bildern füge ich gerade in einem Bildverwaltungsprogramm zusätzliche Informationen zu, um sie leichter finden zu können. Außerdem werde ich vermutlich die Dateinamen der Bilder den Namen der Arbeitsblätter zuordnen.

Im Moment möchte ich aber gern in einer tabellarischen Übersicht auch erfahren, welche Textdokumente welche Bilddateien enthalten.

Durch Internetrecherche bin ich auf die Extension „OOoDIL – DokumentInfoListe“ gestoßen, die mir die Dateieigenschaften der einzelnen Textdokumente geordnet in eine Calc Tabelle ausgibt. Super!

Diese Extension könnte man auch nutzen, um die o.a. Informationen zu erhalten, indem unter dem Dialog (Datei → Eigenschaften →benutzerdefinierte Eigenschaften ) die Verknüpfungen eingetragen werden.

Frage: Kann man die Dateinamen von eingefügten Bildern automatisiert ausgeben oder direkt in den Eigenschaften eintragen lassen.

Gibt es vielleicht bereits Tools oder Makros, die so etwas erledigen oder wie komme ich sonst an die von mir gewünschten Infos.

Danke!

Peter



Moderation,4: in BASIC-Unterbereich verschoben

[komma4]

Peter:


Es gibt bislang keinen (mir bekannten) Automatismus zur Erstellung einer solchen Liste.


Du sprichst von "Textdokumenten" und "Arbeitsblätter" - sind das Writer-Dateien oder Calc-Dokumente?
Alle in einem Verzeichnis? Wie viele Bilder pro Datei?

Ich denke, dass ich die Tage etwas Zeit aufwenden kann um die Dateieigenschaften mit den Verknüpfungs-Infos zu füllen (bin gerade in Chiang Mai, und hier regnet es nur ). Also sag mir genau, um was es geht, dann schau' ich mal

[turtle47]

Hallo Zusammen,

@Winfried: Sorry wenn ich Dir vorgreife, aber ich habe das was Peter möchte noch in meiner Grabbelkiste gehabt.

@Peter: Folgendes Makro trägt die Namen der Grafiken in die Dokumenteneigenschaften ein:

Code: Alles auswählen

Option Explicit
Sub ImgUrl_2_DocInfo
Dim sArray()
Dim oDocument as Object, page as Object, oShape as Object
Dim p as String, oImage as String
Dim c as Integer, nNumShapes as Integer, i as Integer
	p = getpathseparator
	c = 1
	oDocument = thisComponent
	page = oDocument.drawPage
	nNumShapes = Page.getCount()
	For i = 0 To nNumShapes - 1
	oShape = Page.getByIndex( i )
	oImage = oShape.FrameStyleName
	if oImage = "Graphics" then
	sArray = Split(convertfromurl(oShape.GraphicURL),p)
	oDocument.DocumentInfo.setUserFieldValue(i,sArray(uBound(sArray))
	oDocument.DocumentInfo.setUserFieldName(i,"Grafik " & c)
	c = 1 +1
	end if
	next i
End Sub

Viel Erfolg

Jürgen

[komma4]

Jürgen: kein Thema, ist doch prima!


Muss ich heute vormittag halt zur Massage gehen... hier hängen die Wolken in der Stadt, keine Aussicht, Buddha-Hill ist an einem anderen Tag drann.

[grossino]

Hallo zurück und herzlichen Dank für die Antworten!

@Winfried:
habe gerade festgestellt, dass Deine Extension die benutzerdefinierten Dateieigenschaften nicht in die Calc Tabelle ausgibt. Es gibt also doch noch etwas zu tun.


@Jürgen:
Makro klappt einigen Dateien sehr gut, bei anderen werden nicht alle Dateinamen eingetragen.
Woran kann das vielleicht liegen? Ich habe zum Beispiel Dokumente, die sowohl verknüpfte Bilddateien enthalten als auch unverknüpfte.

Grundsätzliche Frage zum Makro
Was passiert, wenn im Dokument mehr als vier Bilddateien enthalten sind?
Im Dialog "benutzerdefinierte Dateieigenschaften" sind ja standardmäßig nur vier Einträge vorhanden.

Noch einige Infos zu den Dokumenten:

Es handelt sich um Schülerarbeitsblätter und Klassenarbeiten in den Fächern Mathematik, Technologie, Politik und Deutsch in den Formaten sdw und odt.
Bei vielen Dokumenten sind die Bilddateien direkt unter den Aufgaben eingefügt. Die Bilder haben die die Formate jpg, tif, png und wmf.
Erst in letzter Zeit habe ich mir angewöhnt, die Bilddateien in einen Rahmen einzufügen, um einfach komplette Aufgaben verschieben zu können. Das ist hilfreich bei der Erstellung neuer Schülerarbeitsblätter und Klassenarbeiten.

Viele Grüße

von Peter



....... der bereits mit Starwriter unter DOS gearbeitet hat, leider aber nicht programmieren kann.

[turtle47]

Hallo Peter,

Makro klappt einigen Dateien sehr gut, bei anderen werden nicht alle Dateinamen eingetragen.
Woran kann das vielleicht liegen? Ich habe zum Beispiel Dokumente, die sowohl verknüpfte Bilddateien enthalten als auch unverknüpfte.

Also, wenn die Bilder unverknüpft eingefügt sind, dann sieht die URL wie folgt aus:

Code: Alles auswählen

vnd.sun.star.GraphicObject:100002010000025800000258F6069A80

In der Datei selber werden die Bilder wie folgt abgelegt:

IMG_Name.jpg (24.46 KiB) 2368 mal betrachtet

Damit kann man natürlich recht wenig anfangen, geschweige denn den Bildnamen generieren.
Sorry, Ich wüsste auch nicht wie man an den originalen Bildnamen kommen könnte.

Was passiert, wenn im Dokument mehr als vier Bilddateien enthalten sind?
Im Dialog "benutzerdefinierte Dateieigenschaften" sind ja standardmäßig nur vier Einträge vorhanden.

Unter welcher Version arbeitest Du? Bei mir, siehe Signatur, kann ich mehr als 4 benutzerdefinierte Eigenschaften einfügen.

Folgendes Makro schreibt URL's der Bilder in das Kommentarfeld unter dem Register "Beschreibung".

Code: Alles auswählen

Option Explicit
Sub ImgUrl_2_DocInfo
Dim sArray()
Dim oDocument as Object, page as Object, oShape as Object
Dim p as String, oImage as String, s as String, ImgName as String
Dim c as Integer, nNumShapes as Integer, i as Integer, k as Integer
	p = getpathseparator
	c = 1
	s = "Bilderübersicht:"
	k = 1
	oDocument = thisComponent
	page = oDocument.drawPage
	nNumShapes = Page.getCount()
		For i = 0 To nNumShapes - 1
		oShape = Page.getByIndex( i )
		oImage = oShape.FrameStyleName
				if oImage = "Graphics" then
				sArray = Split(convertfromurl(oShape.GraphicURL),p)
				ImgName = sArray(uBound(sArray)
				if left(oShape.GraphicURL,3) = "vnd" then
				ImgName = "Keine URL zum Bild gefunden " & k
				k = k +1
				end if
			s = s & CHR(10)  & ImgName
			end if
		weiter:
		next i
	oDocument.DocumentInfo.Description = s
End Sub

Das sieht in dem Kommentar dann so aus:

Bilderübersicht:
Bildname.jpg
Keine URL zum Bild gefunden 1
Bildname.jpg
Keine URL zum Bild gefunden 2

Vielleicht hilft Dir das ja doch ein Stück weiter.

Jürgen

[grossino]

Hallo Jürgen,

vielen Dank für den neuen Code. So kann ich meine Aufgabe lösen.
Die Namen der unverknüpften Dateien benötige zunächst einmal nicht.

Zu den Fragen
Ich arbeite unter der Version 3.2.1, in der man händisch natürlich mehr benutzerdefinierte Eigenschaften eintragen kann. Ich hatte nur gedacht, dass
das Hinzufügen im Makro nicht enthalten ist.

Ein Wunsch für zukünftige Versionen von OO... Automatische Verrfügbarkeit der Informationen (Dateinamen der verknüpften Bilder) im Eigenschaften Dialog.

VG

Peter