#1  
Alt 10.03.2009
Benutzerbild von Kai
Kai Kai ist offline
Imabas-Entwickler
Admin
Obertroll
Registriert seit: 11.2003
Ort: Holzwickede
Beiträge: 2.756
Kai befindet sich auf einem aufstrebenden Ast
Standard Bilder als CSV-Liste exportieren

Aktionstyp: Liste mit Bildern

Hiermit kann man alle im Browser markierten Bilder in eine CSV-Datei exportieren:

Code:
function PerformAction(Images: TICollection): Boolean;
var
   line: TStringList; fName: String; i: Integer; img: TIImage;
   csv: TICSVFile;
begin
   Result := True;
   
   csv := TICSVFile.Create;
   line := TStringList.Create;
   try
      //-- Kopfzeile --//
      line.Add('key');
      line.Add('caption');
      line.Add('width');
      line.Add('height');
      line.Add('filename');
      csv.AddLine(line);
      
      for i := 0 to Images.Count-1 do begin
         img := TIImage(Images[i]);
         
         line.Clear;
         line.Add(img.Key);
         line.Add(img.Caption);
         line.Add(IntToStr(img.Width));
         line.Add(IntToStr(img.Height));
         line.Add(img.OriginalName);
         csv.AddLine(line);
      end;

      fName := 'export.csv';
      if ( System_SaveFileDialog(fname,'CSV-Dateien|*.csv','csv') ) then
         csv.SaveToFile(fName);
   
   finally
      line.Free;
      csv.Free;
   end;
end;
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
  #2  
Alt 10.10.2009
Benutzerbild von feuster
feuster feuster ist offline
Troll
Registriert seit: 12.2003
Ort: München
Beiträge: 299
feuster befindet sich auf einem aufstrebenden Ast
Standard AW: Bilder als CSV-Liste exportieren

¡Hilfe, Kai!

Ich versuche gerade, deine Aktion noch etwas aufzubohren und auch die Lat/Lang mit auszugeben. Leider bekommt man dann das beliebte interne Format, z.B.

132:18:2202:N;182:10:0340:E;

Wie bekomme ich denn das am einfachsten in einer Aktion in die "wahren" Werte konvertiert gemäß der bekannten Formel aus http://www.pamsf.info/showpost.php?p=6474&postcount=22
  • Süd: Grad = 90 - Grad
  • Nord: Grad = Grad - 90
  • West: Grad = 180 - Grad
  • Ost: Grad = Grad - 180
Da beide Koordinaten Strings sind, scheitere ich schon daran, dass es keine find/split o.ä. Funktion zu geben scheint (TStringList.Delimiter scheint man nicht nutzen zu können) Also, evtl. von hinten durchparsen, nach int konvertieren und dann obige Logik einbauen. Das ist aber

a) ein Schmerz, da man bei x - Grad sich den Wolf rechnet

b) habe ich verstanden, dass man keine eigenen Funktionen bauen kann und deshalb den Code zweimal hinschreiben muss

Wie kann man denn hier auf einen grünen Zweig kommen???

Dankeschön,
__________________
Thomas

bilder.feuster.com
Mit Zitat antworten
Antwort
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Gehe zu

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Bild aus Export-Liste entfernen feuster Bugreports 4 09.02.2008 20:11
Nur zugeordnete Bilder Exportieren Wolkenflieger Imabas Allgemein 4 25.01.2007 14:40
BUG? Datenbank / Liste Exportieren läßt sich nicht abbrechen MiRu Bugreports 3 02.06.2006 10:01


Powered by vBulletin® Version 3.7.1 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.