PQ Abfrage Geodaten

[PetrolMaxxe]

Hallo,

ich hoffe ich habe alle möglichen Zeichen eingekreist.

M-Code:

PHP-Code:

let
    Quelle = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=San Augustin%2C+Spanien")),
    Eintrag = Quelle{0},
    ZuTabelle = Record.ToTable(Eintrag),
    Adresse = ZuTabelle[Value]{12},
    RemoveNonLatin = (txt as text) as text =>
        Text.Combine(
            List.Select(
                Text.ToList(txt),
                each
                    let c = Character.ToNumber(_) in
                        not (
                            (c >= 1536 and c <= 1791) or
                            (c >= 1872 and c <= 1919) or
                            (c >= 2208 and c <= 2303) or
                            (c >= 64336 and c <= 65023) or
                            (c >= 65136 and c <= 65279) or
                            (c >= 11568 and c <= 11647)
                        )
            )
        ),
    AdresseClean = RemoveNonLatin(Adresse),
    Liste = Text.Split(AdresseClean, ","),
    LC = List.Count(Liste) - 1,
    Land = Liste{LC},
    Ort  = Liste{0},
    Transp = Table.Transpose(ZuTabelle),
    Header = Table.PromoteHeaders(Transp, [PromoteAllScalars=true]),
    Keep = Table.SelectColumns(Header, {"lat", "lon"}),
    AddLand = Table.AddColumn(Keep, "Land", each Land),
    AddOrt = Table.AddColumn(AddLand, "Ort", each Ort),
    Ergebnis = Table.ReorderColumns(AddOrt, {"Ort","Land","lat","lon"})
in
    Ergebnis 


Gruß Uwe