PQ Abfrage Geodaten

[R J]

Die arabischen Zeichen kannst Du z. Bsp. so entfernen lassen:

Code:

let
    Quelle = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=Rabat%2C+Marokko")),
    //Quelle = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=Dresden%2C+Deutschland")),
    Quelle1 = Quelle{0},
    ZuTabelle = Record.ToTable(Quelle1),
    Liste = Text.Split( ZuTabelle[Value]{12},","),
    LC = List.Count(Liste)-1,
    Kurz = Text.Trim(Liste{LC}),
    Land = try Text.Middle(Kurz, 0,Text.PositionOf( Kurz," ")) otherwise Kurz,
    Ort = try Text.Middle(Liste{0}, 0,Text.PositionOf( Liste{0}," ")) otherwise Liste{0},
    #"Transponierte Tabelle" = Table.Transpose(ZuTabelle),
    #"Höher gestufte Header" = Table.PromoteHeaders(#"Transponierte Tabelle", [PromoteAllScalars=true]),
    #"Andere entfernte Spalten" = Table.SelectColumns(#"Höher gestufte Header",{"lat", "lon"}),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Andere entfernte Spalten", "Land", each Land),
    #"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte", "Ort", each Ort),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Hinzugefügte benutzerdefinierte Spalte1",{"Ort","Land",  "lat", "lon"})
in
    #"Neu angeordnete Spalten"