Inhalt von Tableview als Datei speichern und wieder laden?!?

[mikelchris]

Hallo,

ich habe ein Programm geschrieben, bei dem QuarkXpress-Dateien aus einem bestimmten Verzeichnis in einem Tableview als Liste angezeigt werden.
Mein Tableview hat 4 Spalten und nun möchte ich den kompletten Inhalt (jede Spalte und jede Zeile) als Dateiliste abspeichern. Wie kann ich das machen? Ich möchte die Dateiliste auch wieder einladen können, so dass die Spalten und Zeilen wieder entsprechend mit den Ursprungsdaten gefüllt werden.

Vielen Dank für Eure Hilfe im Voraus!

Gruß
Michael

[mikelchris]

Kann mir denn hier wirklich keiner helfen?
oder wollt ihr etwa nicht!

[Heiner]

Hallo mikelchris,
ich kann Dir erst jetzt antworten, da ich selbst erst seit zwei Tagen im 'Club' bin. Deshalb weiß ich nicht, ob Dein Problem noch aktuell ist. Ich habe ein ähnliches Problem zu lösen gehabt und auch eine Lösung gefunden. Sie mag möglicherweise nicht sehr elegant sein, ein erfahrener Programmierer wird sicher eine schönere Lösung haben, aber meine funktioniert.
Ich hänge sie unten an, Du musst sie möglicherweise auf Deine Bedürfnisse anpassen.

Gruß Heiner

[property meinedaten : null
property tmpFilePath : missing value
property theFileName : missing value
property oldFileName : ""

on awake from nib theObject
set meinedaten to data source of table view "daten" of scroll view "daten" of theObject
tell meinedaten
-- z.B.:
make new data column at the end of the data columns with properties {name:"name", sort order:ascending, sort type:alphabetical, sort case sensitivity:case sensitive}
-- usw.

set sorted of meinedaten to true
set sort column of meinedaten to data column "name" of meinedaten
end tell
end awake from nib


on choose menu item theObject
if name of theObject is "sichernAls" then
SichernAls()
end if
if name of theObject is "oeffnen" then
oeffnen()
end if
end choose menu item



on update menu item theObject
if name of theObject is "sichernAls" then
return true
end if
if name of theObject is "oeffnen" then
return true
end if
end update menu item



on SichernAls()
set oldFileName to title of front window
tell save panel
set title to "Mein Programm: Sichern"
set prompt to "Sichern"
end tell

set theResult to display save panel with file name oldFileName
if theResult is 1 then -- Save
set meinedaten to data source of table view "daten" of scroll view "daten" of front window
set dieListe to ""
set dieZeile to ""
repeat with reihenindex from 1 to count of data rows of meinedaten
repeat with spaltenindex from 1 to 12
set dieZeile to ""
set dieZeile to dieZeile & (contents of data cell spaltenindex of data row reihenindex of meinedaten) & "|"
set dieListe to (dieListe & dieZeile)

end repeat
end repeat
set dieListe to (dieListe & eof)
try
set fileName to (path name of save panel as POSIX file)
set tmpFilePath to (fileName as file specification) -- speichert den file Namen für Menü "Sichern"

set theFile to open for access fileName with write permission
set eof theFile to 0
write dieListe to theFile as string starting at eof
close access theFile

set oldTextItemDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {":"}
set neuerName to (last text item of (fileName as string))
set AppleScript's text item delimiters to oldTextItemDelimiters
set title of window oldFileName to neuerName

return true
on error
try
display dialog "Fehler beim Sichern der Datei!" with icon 2
close access file theFile
end try
return false
end try

else if theResult is 0 then -- Cancel
close save panel
return false
end if
end SichernAls


on oeffnen()
set theContents to ""
tell open panel
set title to "Mein Programm: Öffnen"
set prompt to "Öffnen"
set can choose directories to true
set can choose files to true
end tell

set theResult to display open panel
if theResult is 1 then -- Open
try
set fileName to (path name of open panel)
set theFile to open for access fileName as POSIX file
set theContents to read theFile as string
close access theFile
on error
try
display dialog "Fehler beim Öffnen der Datei!" with icon 2
close access file theFile
return false
end try
return true
end try
set oldTextItemDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"/"}
set neuerName to (last text item of (fileName as string))
set AppleScript's text item delimiters to oldTextItemDelimiters

load nib "Document"
set name of window "Mein Window Name" to neuerName
set title of window neuerName to neuerName

(*-- Im Folgenden können beliebig viele Fenster erzeugt werden; die Variablen müssen aber noch als properties gesetzt werden. Man kann aber auch darauf verzichten.
set windowCount to windowCount + 1
set newWindowLeft to (windowStartLeft + windowCount * windowOffset)
set newWindowtop to (windowStartTop - windowCount * windowOffset)
set newWindowBottom to (windowStartbottom - windowCount * windowOffset)
set newWindowRight to (windowStartright + windowCount * windowOffset)
set bounds of window neuerName to {newWindowLeft, newWindowBottom, newWindowRight, newWindowtop}*)

set visible of window neuerName to true
try
set update views of meinedaten to false
set oldTextItemDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"|"}
-- die Daten liegen als zusammenhängender string vor und müssen wieder als Zeilen erkannt werden; s. oben
set reihenAnzahl to ((count of text items of theContents) - 1) / 4 as integer -- hier muss man möglicherweise korrigieren
set itemNummer to 0
repeat with m from 1 to reihenAnzahl
set theDataRow to make new data row at the end of data rows of meinedaten
repeat with n from 1 to 4
set contents of data cell n of theDataRow to text item (n + itemNummer) of theContents
end repeat
set itemNummer to (itemNummer + n)
end repeat
set AppleScript's text item delimiters to oldTextItemDelimiters
set update views of meinedaten to true
on error
display dialog "Fehler beim Schreiben der Datei!" with icon 2
return false
end try

else if theResult is 0 then -- Cancel
close open panel
return false
end if

return true
end oeffnen

][/code]

[jiuer7845]

Jordans 4
Jordan Retro 4
Jordan Shoes
Travis Scott Jordan 1
Yeezy Shoes
Yeezy Supply
Air Jordans
Jordan 11s
Jordan 11
Jordans Shoes
Moncler Outlet
Off-White
Yeezy 450
Yeezy 500
Yeezy
Yeezy 700
Yeezy Supply
Off White Shoes
NFL Jerseys
Retro Jordans
Moncler Jackets
Nike Air Jordan
Jordan Shoes
Jordans Shoes
Yeezy 350 V2
Adidas Yeezy
Yeezy
Yeezy 700
Yeezy
Nike Outlet
Yeezy Shoes
Yeezy Foam Runner
Nike Outlet
Nike Outlet
AJ1
UNC Jordan 1
Jordan 13
Jordan AJ 1
Yeezy Supply
Yeezy Zebra
Jordan 5
Jordan 1 Low
Air Jordans
Pandora Charms
Adidas UK
Nike Store
Adidas Yeezy Official Website
Yeezy 350
Jordan 1
Nike Outlet
YEEZY SUPPLY
Nike Shoes
Nike Outlet
Pandora Outlet
Jordan Shoes
Air Jordan 4
Pandora Jewelry
Pandora Bracelets
Adidas Yeezy
Yeezy
Pandora Charms
Nike Outlet
Adidas Yeezy
Air Max 720
Air Jordan 1
Nike Jordans
Jordan 1s
Pandora UK
Nike Jordan 1
Jordan 1
Yeezy Slides
Nike Air VaporMax
Nike Vapormax Flyknit
Air Jordan 1 Mid
Adidas yeezy
Yeezy 350
Nike Shoes
Nike Outlet
Yeezy
NFL Shop Official Online Store
Nike UK
Yeezy
Yeezy 350
_________________
https://www.pandoras-jewelry.com/ Pandora Jewelry
https://www.pandoraoutlet.org/ Pandora Outlet
https://www.jordanshoess.com/ Jordan Shoes
https://www.air-jordan4.com/ Air Jordan 4
https://www.charms-pandora.com/ Pandora Charms