Image-Katalog mit mehr als 75 Zeichen

Da musst du wohl deine Memo Tools mal aktualisieren. Aus dem ReadMe :

New in Version 6.5-05:
The maximum path length for image catalog creation was limited to 75 as yet. Increased to 126 now

Moin,

folgendes Script von Jürgen habe ich mal angepasst an meine Bedürfnisse,
du wählst eine datei aus dem verzeichnis aus und er macht aus allen dateien des gleichen typs im Verzeichnis einen imgcatlg.
Dabei kannst du in der Zeile fld1 = Field.Make ("Image", #Field_CHAR, 100, 0) die 100 auch durch eine größere Zahl ersetzen, max ist 254 oder 255

#########################
' Script zur Erstellung eines ImageCatalogs
' Original Jürgen Evert, kleine Änderungen A. Steinhäuser
' -----------------------------------------

search = true
search_num = 0
program = true

imgtypes1 = ISrc.ReturnExtensions
imgtypes2 = {}

for each i in 0 .. (imgtypes1.count-1)

extstring = imgtypes1.get (i)
extstring = "*."+extstring
imgtypes2.Add (extstring)

end

while (search)
ftypes = FileDialog.ReturnFiles (imgtypes2, imgtypes1, "Auswahl eines ImageFiles", 0)
if (ftypes.count = 0) then
MsgBox.Info ("Sie haben kein Image ausgewählt!", "")
search_num = search_num + 1
if (search_num = 2) then
MsgBox.Error ("Ende des Programms!", "Abbruch")
program = false
search = false
end
else
imgfile = ftypes.Get (0)
search = false
end
end

if (program) then

theFilter = "*."+imgfile.getextension
ImgList = Imgfile.ReturnDir.ReadFiles (theFilter)
ImageCatalog = FileDialog.Put ("imgcatlg.dbf".AsFileName, "*.dbf", "Speichern des ImageKatalogs")
ImgFTab = VTab.MakeNew (Imagecatalog, dBase)

fld1 = Field.Make ("Image", #Field_CHAR, 100, 0)
fld2 = Field.Make ("XMin", #Field_DECIMAL, 30, 6)
fld3 = Field.Make ("YMin", #Field_DECIMAL, 30, 6)
fld4 = Field.Make ("XMax", #Field_DECIMAL, 30, 6)
fld5 = Field.Make ("YMax", #Field_DECIMAL, 30, 6)
ImgFTab.AddFields ({fld1, fld2, fld3, fld4, fld5})

for each f in 0 .. (ImgList.Count -1)
SN = SrcName.Make (ImgList.Get (f).AsString)
MyImageSrc = ImgSrc.Make (SN)
MyITheme = ITheme.MakeFromSrc(MyImageSrc)
theRect = MyITheme.ReturnExtent
XMin = theRect.ReturnOrigin.GetX
YMin = theRect.ReturnOrigin.GetY
XMax = XMin + theRect.GetWidth
YMax = YMin + theRect.GetHeight
ImgFTab.AddRecord
ImgFTab.SetValue (fld1, f, sn.GetFileName.AsString)
ImgFTab.SetValue (fld2, f, XMin)
ImgFTab.SetValue (fld3, f, YMin)
ImgFTab.SetValue (fld4, f, XMax)
ImgFTab.SetValue (fld5, f, YMax)
end

end
###################################

Gruß, André

Die 126-Zeichen Begrenzung ist schon ganz gut. ArcView kann Dateien mit einer Gesamtpfadlänge (also inklusive Dateiname und -erweiterung) von über 128 nämlich nicht lesen...

Zukunft - ArcView 3.x ?

Zukunft? Warum nicht? Charmantes, erfahrenes Programm. Leicht angegraut aber voller versteckter Reize. Null Hipness-Faktor aber weltoffen, leicht durschaubar und altersweise. Viele Macken aber alle bekannt. Bisschen schwach auf der Brust aber sehr geduldig. Langsam häuslich werdend und wahrscheinlich bald umsonst. Unverzichtbar für all jene Ausflüge, auf die einen die ArcGIS/ArcView-Lizenz nicht begleiten will...

Wo bleibt dein Herz für Rentner, Klaus?

Versöhnt. Uns Rentnern gehört die Zukunft :-)

... und Avenue hatte wirklich seine Reize, wenn man sich erstmal in seiner Inselwelt zurechtfand.

Bei uns in MV gibts ein Sprichwort: "Allens blievt bien ollen"...
auch ich als 30igjähriger freue mich auf eine Rentnerzeit mit AV3x....
Die jungen Programme heutzutage sind einfach anders. Sie sprechen VBA und wollen die Welt erobern ;-). Außerdem haben sie einfach zu hohe Ansprüche. Arbeitsspeicher und Prozessoren ohen Ende.... :-)
Viele Grüße,
André