About this board

Previous discussion was archived at User talk:Mfchris84/Archive 1 on 2020-09-28.

Texaner (talkcontribs)

Wenn Sie ist mir nicht überdrüssig, hier gibt es ein Abfrage mit Bildern:

#defaultView:Map{"hide":["?cd","?l","?rgb"]}
#Österreicher Bahnnetz mit Bilder
SELECT DISTINCT ?cd ?l ?i ?iLabel ?ct ?ctLabel ?o ?oLabel ?loc ?locLabel ?x ?rgb 
WITH{SELECT ?i ?cd ?lat1 ?lon1 ?loc ?x (sample(?op)as?op)
               WHERE{VALUES ?c1{wd:Q40}?i 
                                wdt:P31/wdt:P279* wd:Q1318558; #szolgálati hely
                                wdt:P625 ?cd;
                                wdt:P17 ?c1;
                                p:P625/psv:P625 ?y.
                                ?y wikibase:geoLatitude ?lat1;
                                wikibase:geoLongitude ?lon1.
                     MINUS{?i wdt:P31/wdt:P279* wd:Q928830}
                     OPTIONAL{?i wdt:P131 ?loc}
                     OPTIONAL{?i wdt:P137 ?op}
                     OPTIONAL{?i wdt:P18 ?x}
                     }
               GROUP BY ?i ?cd ?lat1 ?lon1 ?loc ?x
     }AS%s
WITH{SELECT ?l ?ct ?o ?t 
               WHERE{INCLUDE %s.
                     ?i p:P197 ?nss.
                     ?nss ps:P197 ?ns.
                     ?ns p:P625/psv:P625 ?z.
                     ?z wikibase:geoLatitude ?lat2;wikibase:geoLongitude ?lon2.
                     OPTIONAL{?nss pq:P81 ?ct.
                     OPTIONAL{?ct wdt:P137 ?o}}
                     OPTIONAL{?nss pq:P5051 ?t}
                     FILTER(STR(?i)< STR(?ns)).
                     BIND(CONCAT('LINESTRING(',STR(?lon1),' ',STR(?lat1),',',STR(?lon2),' ',STR(?lat2),')')AS?str).
                     BIND(STRDT(?str,geo:wktLiteral)AS?l)
                     }
    }AS%l
WHERE{{INCLUDE%s}UNION{INCLUDE%l}.
      BIND(IF(BOUND(?l),IF(BOUND(?ct),IF(BOUND(?t),IF(BOUND(?o),"00f","4682b4"),"40e0d0"),"0f0"),
              IF(BOUND(?x),IF(BOUND(?loc),IF(BOUND(?op),"00f","4682b4"),"40e0d0"),"0f0"))
           AS?rgb)
      SERVICE wikibase:label{bd:serviceParam wikibase:language "de".}
}#

Texaner (talk) 22:00, 24 November 2020 (UTC)

Reply to "Eisenbahnnetz in Österreich"
Texaner (talkcontribs)

Möglicher Weise diese Abfrage interessiert euch.

#defaultView:Map
#Eisenbahnnetz in Üsterreich
SELECT ?cd  ?i ?iLabel  ?line  ?rLine ?layer ?rgb 
WITH{SELECT ?i ?cd ?lat1 ?lon1 ?loc
      WHERE{ ?i  wdt:P31/wdt:P279* wd:Q1318558; #szolgálati hely
                                wdt:P625 ?cd;
                                wdt:P17 wd:Q40;
                                p:P625/psv:P625 ?y.
                                ?y wikibase:geoLatitude ?lat1;
                                wikibase:geoLongitude ?lon1.
                     OPTIONAL{?i wdt:P131 ?loc}
                     OPTIONAL{?i wdt:P137 ?op}}
GROUP BY ?i ?cd ?lat1 ?lon1 ?loc 
     }AS%s  #állomások
WITH{SELECT ?line ?layer ?rgb
       WHERE {
         {?station wdt:P31 wd:Q55488;
                  wdt:P131* wd:Q40;
                  wdt:P625 ?coords;
                    p:P197 ?pred.
         ?pred ps:P197 ?conn;
               pq:P81 ?rLine.
         ?conn wdt:P625 ?cds;
               wdt:P31 wd:Q55488}
         UNION
         {?station wdt:P31 wd:Q55678;
                  wdt:P131* wd:Q40;
                  wdt:P625 ?coords;
                    p:P197 ?pred.
         ?pred ps:P197 ?conn;
               pq:P81 ?rLine.
         ?conn wdt:P625 ?cds;
               wdt:P31 wd:Q55678}
         UNION
         {?station wdt:P31 wd:Q55488;
                  wdt:P131* wd:Q40;
                  wdt:P625 ?coords;
                    p:P197 ?pred.
         ?pred ps:P197 ?conn;
               pq:P81 ?rLine.
         ?conn wdt:P625 ?cds;
               wdt:P31 wd:Q55678}
         UNION
         {?station wdt:P31 wd:Q55678;
                  wdt:P131* wd:Q40;
                  wdt:P625 ?coords;
                    p:P197 ?pred.
         ?pred ps:P197 ?conn;
               pq:P81 ?rLine.
         ?conn wdt:P625 ?cds;
               wdt:P31 wd:Q55488}.
         BIND(IF(xsd:double(?depth/10) = xsd:integer(?depth/10),?cds,"") AS ?coords)
               ?conn p:P625/psv:P625/wikibase:geoLatitude ?lat1;
                     p:P625/psv:P625/wikibase:geoLongitude ?lon1.
               ?station p:P625/psv:P625/wikibase:geoLatitude ?lat2; 
                        p:P625/psv:P625/wikibase:geoLongitude ?lon2.
         BIND(CONCAT('LINESTRING(',STR(?lon1),' ', STR(?lat1),',', STR(?lon2),' ', STR(?lat2),')') AS ?str). 
         BIND(STRDT(?str, geo:wktLiteral) AS ?line) 
         SERVICE wikibase:label{bd:serviceParam wikibase:language "de".
                      ?rLine rdfs:label ?layer.}    
       }
GROUP BY ?i ?iLabel  ?line  ?rLine ?layer  ?rgb
    }AS%l  #vasútvonalak
WHERE{{INCLUDE%s}UNION{INCLUDE%l}.
       SERVICE wikibase:label{bd:serviceParam wikibase:language "de".}
      }

~~~~

Mfchris84 (talkcontribs)

vielen Dank! tolle Abfrage! :-)

Reply to "Eisenbahnnetz in Üsterreich"
Karl Gruber (talkcontribs)

Hallo Mfchris, kannst du mir bitte eine Abfrage erstellen, wer auf dem Mödlinger Friedhof bestattet wurde mit einem evt. Grabsteinfoto und wer von denen einen Artikel in WP oder im RAT einen Artikel hat. Schön langsam habe ich den Überblick verloren. ;-) danke im Voraus

M2k~dewiki (talkcontribs)

@Karl Gruber: https://w.wiki/gA7

SELECT distinct ?item ?itemLabel ?Bild ?Bild_Grab ?regiowikiat_id ?regiowiki_url WHERE {

  ?item wdt:P31 wd:Q5 . # ist ein: Mensch
  ?item wdt:P119 wd:Q38130276. # Begräbnisort: Friedhof Mödling
  SERVICE wikibase:label {
   bd:serviceParam wikibase:language "de,en" .
  }
  OPTIONAL { ?item wdt:P18 ?Bild. }    # optional, wenn vorhanden, Bild mitausgeben
  OPTIONAL { ?item wdt:P1442 ?Bild_Grab. }    # optional, wenn vorhanden, Bild mitausgeben
  OPTIONAL { ?item wdt:P6228 ?regiowikiat_id. }    # optional, wenn vorhanden, Bild mitausgeben
  BIND(IRI(REPLACE(?regiowikiat_id, '^(.+)$', ?formatterurl)) AS ?regiowiki_url).
  wd:P6228 wdt:P1630 ?formatterurl .

}

Karl Gruber (talkcontribs)

Super danke, auch für das mitlesen :-), Die Abfrage hilft mir schon weiter. Das hilft mir schon sehr weiter. lg K@rl (talk) 09:43, 10 October 2020 (UTC)

Mfchris84 (talkcontribs)

Hier noch ergänzt um deWP-Sitelink:

SELECT DISTINCT ?item ?itemLabel ?Bild ?Bild_Grab ?regiowikiat_id ?regiowiki_url ?deWP WHERE {
  ?item wdt:P31 wd:Q5;
    wdt:P119 wd:Q38130276.
  SERVICE wikibase:label { bd:serviceParam wikibase:language "de,en". }
  OPTIONAL { ?item wdt:P18 ?Bild. }
  OPTIONAL { ?item wdt:P1442 ?Bild_Grab. }
  OPTIONAL {
    ?item wdt:P6228 ?regiowikiat_id.
    BIND(IRI(REPLACE(?regiowikiat_id, "^(.+)$", ?formatterurl)) AS ?regiowiki_url)
    wd:P6228 wdt:P1630 ?formatterurl.
  }
  OPTIONAL {
    ?deWP schema:about ?item;
          schema:isPartOf <https://de.wikipedia.org/>.
    
    }
}

Try it!

Reply to "Abfragebitte"
Karl Gruber (talkcontribs)
Herzi Pinki (talkcontribs)

Ich habe auch einen Ping bekommen? Das Objekt 7164 wurde erst 2018 unter Denkmalschutz gestellt, die einmalige Übernahme der Daten aus den Denkmallisten durch die Schweden ist 2017 erfolgt. Seitdem kein systematischer Update.

M2k~dewiki (talkcontribs)
Karl Gruber (talkcontribs)

Danke miteinander, alles klar --lg K@rl (talk) 14:23, 3 October 2020 (UTC)

Reply to "Hilfe für ein BDA Objekt"
There are no older topics