Zurück   PixAndMore - Support Forum > Programmierung > Skripte

Antwort
 
Themen-Optionen Ansicht
  #1  
Alt 28.07.2010
Seb
Gast
Beiträge: n/a
Standard Städte mit dazugehöriger Region importieren

Hallo zusammen,

zuerst einmal ein dickes Lob für Imabas und den Support hier im Forum.
Ich bin gerade dabei einen Bilderdatenbank für NIKE (nicht die Marke) zu erstellen. --> Link

Ich benutze die aktuelle (8.0.1) Imabas Version und bin sehr zufrienden damit und gedenke auch die Lifetime Lizenzen zu kaufen.

Nun aber zum eigentlichen Thema:

Ich habe eine grosse Liste von allen Städten / Ortschaften der Schweiz, welche ich importieren möchte. (Zuweisung der Bilder ist sehr gewünscht).
Nun habe ich leider keine Kenntnisse von Pascal, aber JAVA kann ich nicht schlecht. Ich habe mir nun erlaubt das Script zum importieren von Themen abzuändern.

Ich weiss nicht ob das einlesen funktioniert, leider konnte ich es noch nicht testen. Die Darstellung wäre "Thun,Bern" (Stadt - Kanton).



Code:
function PerformAction(ObjectKey: String): Boolean;
var
   lines: TStringList; region: TIRegion; city: TIcity;
   fName, s: String; l: String; r: String; i: Integer; t: Integer;
begin
   Result := True;
   //-- Textdatei öffnen --//
   if ( not System_OpenFileDialog(fName, 'Textdateien|*.txt') ) then
      Exit;

      lines := TStringList.Create;
      try
         //-- Textdatei einlesen --//
         lines.LoadFromFile(fName);
         for i := 0 to lines.Count-1 do begin
            //-- Leerzeilen vermeiden --//
            s := Trim(lines[i]);
            if ( s <> '' ) then begin
            
               //-- Trenne Stadt und Region   --//
               t := Pos(',',s);
               l := LeftString(s,t);
               r := RightString(s,t);
               
               //-- Region laden --//
               region := TIRegion.Create;
               try
                  if ( not region.Load(ObjectKey) ) then
                     Exit;
                     //-- Stadt anlegen --//
                     city := TICity.Create;
               
                     try
                        with city do begin
                           Caption := s;
                           Region := region;
                           Append;
                        end;
                     finally
                        city.Free;
                     end;
               finally
                  region.Free;
               end;
            end;
         end;
      finally
         lines.Free;
      end;
   end;

Wie im anderen Codebeispiel kommt die Fehlermeldung, dass die Region Read-Only ist.

Wie ist dazu der Stand? Liegt das an der Test Version, oder falsche Überlegung meinerseits?

Besten Dank und Gruss Sebastian
Mit Zitat antworten
  #2  
Alt 10.08.2010
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 AW: Städte mit dazugehöriger Region importieren

Hallo,
das ist leider eine Restriktion im PascalScript. Besser geht das mit dem Imabas Java SDK....
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.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
Städte ohne Regionen Torsti Neue Features in Imabas 1 14.01.2004 22:31


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