String auf bestimmtest Format (Geokoordinaten) prüfen und verbessern

[Sir Rufo]

Dafür würde ich einen kleinen Parser schreiben, der diesen String dann entsprechend Zeichen für Zeichen verarbeitet.

Kann man auch sehr schön mit dem State-Pattern erledigen (auch wenn jetzt wieder der ein oder andere schreit, das wäre mit Kanonen auf Spatzen geschossen )

[DeddyH]

Kleiner Test ohne jegliche Fehlerbehandlung:

Delphi-Quellcode:

uses StrUtils;

procedure TForm24.Button1Click(Sender: TObject);
type
  TGeoData = record
    NSOrientation: char;
    NSDegree: integer;
    NSMinutes: double;
    EWOrientation: char;
    EWDegree: integer;
    EWMinutes: double;
  end;
const
  DEGREESIGN = '°';
  ORIGINAL = 'N 49° 41.766E8 °31.67 2';
var
  CurrentPos, NextPos: integer;
  Data: TGeoData;
  Settings: TFormatSettings;
  GeoData, s: string;
begin
  Settings := TFormatSettings.Create;
  Settings.DecimalSeparator := '.';
  ZeroMemory(@Data, SizeOf(Data));
  GeoData := StringReplace(ORIGINAL, ' ', '', [rfReplaceAll]);
  Data.NSOrientation := GeoData[1];
  CurrentPos := 2;
  NextPos := Pos(DEGREESIGN, GeoData);
  Data.NSDegree := StrToInt(Copy(GeoData, CurrentPos, NextPos - CurrentPos));
  CurrentPos := NextPos + 1;
  NextPos := PosEx('E', AnsiUpperCase(GeoData), CurrentPos);
  if NextPos = 0 then
    NextPos := PosEx('W', AnsiUpperCase(GeoData), CurrentPos);
  Data.NSMinutes := StrToFloat(Copy(GeoData, CurrentPos, NextPos - CurrentPos), Settings);
  CurrentPos := NextPos + 1;
  Data.EWOrientation := GeoData[NextPos];
  NextPos := PosEx(DEGREESIGN, GeoData, CurrentPos);
  Data.EWDegree := StrToInt(Copy(GeoData, CurrentPos, NextPos - CurrentPos));
  CurrentPos := NextPos + 1;
  Data.EWMinutes := StrToFloat(Copy(GeoData, CurrentPos, MAXINT), Settings);
  s := Format('%s %.2d%s %.3f %s %.3d%s %.3f', [
    Data.NSOrientation,
    Data.NSDegree,
    DEGREESIGN,
    Data.NSMinutes,
    Data.EWOrientation,
    Data.EWDegree,
    DEGREESIGN,
    Data.EWMinutes], Settings);
  ShowMessage(s);
end;

[p80286]

Mal ganz vorsichtig angemerkt, statt "N" könnte auch "S" vorkommen, und statt "E" "W".
Und auf das Gradzeichen würde ich mich auch nicht verlassen. Wenn dann sollte eher ein "allgemeines" Format zum Einsatz kommen
[Bstb][trenn][Integer][Sndrz][trenn][Float][trenn]
[Bstb][trenn][Integer][Sndrz][trenn][Float][NL]

Gruß
K-H

[DeddyH]

Und nun?

[BBoy]

Danke für die Routine!
data.NSMinutes und Data.EWMinutes zeigt er aber nur die 1. stelle an, also eine 4 bzw 3. Wüsste nicht woran das liegt..

[DeddyH]

Die Routine war eigentlich gar nicht in der Form für den Produktiveinsatz gedacht. Hast Du mal debuggt? Betrifft das nur die Ausgabe, oder sind die Daten schon falsch?

[BBoy]

Die Routine passt aber fast genau für mich, daher habe ich mich dieser bemächtigt
Es waren ein paar kleine Tippfehler drin, die habe ich verbessert. aber warum der nur die 1. stelle anzeigt verstehe ich nicht.
data.NSMinutes enthält 41,766 es liegt am Format Befehl.

[BBoy]

Ja C&P. Bei mir gibt es aber Settings := TFormatSettings.Create; und auch TFormatSettings.Create(LOCALE_USER_DEFAULT); nicht! Die Zeile habe ich weggelassen.

[DeddyH]

Ich habe hier kein Delphi 5 zur Verfügung. Was kommt denn hierbei heraus?

Delphi-Quellcode:

var
  OldSep: char;
begin
  OldSep := DecimalSeparator;
  try
    DecimalSeparator := '.';
    ShowMessage(Format('%.3f', [12.34567]));
  finally
    DecimalSeparator := OldSep;
  end;
end;

[BBoy]

Ergebnis=12.346

Kann es vlt. am , liegen bei data.NSMinutes (41,766) ?

Delphi 5? Habe Delphi 2009