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

[Sir Rufo]

Hiermit

Delphi-Quellcode:

var
  LStrLst : TStringList;

LStrLst := TStringList.Create;
try

  LStrLst.Delimiter := ' ';
  LStrLst.StrictDelimiter := True; // evtl. in D2009 noch nicht bekannt, dann weglassen
  LStrLst.DelimitedText := 'N 09° 41.766 E 8° 30.061';

  // Jetzt ist jeder Teil in einer Zeile von LStrLst

finally
  LStrLst.Free;
end;

[CCRDude]

Das aber geht davon aus, dass zwingend alle Teile durch Leerzeichen getrennt sind. Da obige Varianten nicht alle sind, würde ich davon nicht ausgehen. Im Gegenteil würde ich eventuell sogar alle Leerzeichen rausnehmen (damit ist der Teil schonmal normiert), den zweiten Buchstaben raussuchen, an der Stelle trennen (damit ist das ganze in zwei identische Teilprobleme zerlegt) und beide Teile dann nach den Trennzeichen parsen.

[BBoy]

Also so etwa:
1. alle leerzeichen löschen = N49°41.766E8°31.672
2.nach E oder O suchen und den String in 2 Stücke teilen = "N49°41.766" und "E8°31.672"
3.prüfen ob 1. Buchstabe ein N oder S ist... weiter
4. prüfen an wievielter stelle das ° Zeichen kommt. kommt es an 3. stelle dann eine 0 vor anfügen ansonsten alles ok. macht aus N9° ~ N09° oder aus E8° ~ E008°
5. prüfen an wievielter stelle der . kommt. ist er an 6. stelle dann eine 0 vor anfügen ansonsten alles ok macht aus N49°7.123 ~ N49°07.123
6. prüfen wiviel ziffern kommen nach dem punkt. sind es 2 dann eine 0 vor anfügen. macht aus N49°07.23 ~ N49°07.023
7. fertig

Müsste so OK sein, oder?

[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]

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