script SCRIPT: EnTur.vb - Få inn data fra EnTur

GeneralVirus · 17. januar 2019

3 hours ago, iceball said:

Synes stadig at det er noe smårart med serveren min.

Vel, prøvde å endre, ny feilmelding ?

Har du alle parametere riktig? FIkk samme feil når jeg hadde glemt "NSR:" foran quay nummeret.

iceball · 17. januar 2019

5 minutter siden, GeneralVirus skrev:

Har du alle parametere riktig? FIkk samme feil når jeg hadde glemt "NSR:" foran quay nummeret.

Jeg kopierte Moskus sine inndata, dobbeltsjekket nå, ja.

.NetRepairTool fikk ikke gjort endringer, så tror jeg må prøve å stoppe det meste på maskinen en kveld før jeg kjører verktøyet og ser om den får rettet de filene den vil.

Moskus · 17. januar 2019

13 minutter siden, iceball skrev:

Jeg kopierte Moskus sine inndata, dobbeltsjekket nå, ja.

.NetRepairTool fikk ikke gjort endringer, så tror jeg må prøve å stoppe det meste på maskinen en kveld før jeg kjører verktøyet og ser om den får rettet de filene den vil.

Screenshot av Eventet?

iceball · 17. januar 2019

2 minutter siden, Moskus skrev:

Screenshot av Eventet?

De to siste skal være kopi av dine. Har forsøkt både med mellomrom etter komma og uten. Ingen forskjell i feilmeldingen nå om jeg har Trim med eller uten ()

GeneralVirus · 17. januar 2019

@iceball

Ser du har semikolon istedenfor komma mellom NSR:StopPlace:59854 og NSR:StopPlace:27753 på det siste eventet ditt.

Har ofte problemer selv med scripts jeg kopierer fra internett, har derfor begynt å kopiere det inn i Visual Studio istedenfor notepad/notepad++. Det har hjulpet meg. Plukker ofte opp tull når man kopiere. Prøv å last ned denne direkte å prøv.

EnTur.vb

Endret 17. januar 2019 av GeneralVirus

iceball · 21. januar 2019

På 17.1.2019 den 13.29, GeneralVirus skrev:

Har ofte problemer selv med scripts jeg kopierer fra internett, har derfor begynt å kopiere det inn i Visual Studio istedenfor notepad/notepad++. Det har hjulpet meg. Plukker ofte opp tull når man kopiere. Prøv å last ned denne direkte å prøv.

Godt forsøk, men var ikke det heller.

Men, TripsBetweenStops fungerer ser det ut som, ikke CallsFromStopplace.

Moskus · 22. januar 2019

11 timer siden, iceball skrev:

Men, TripsBetweenStops fungerer ser det ut som, ikke CallsFromStopplace.

What?! Funksjonene er jo dønn like!

Zheep · 8. mars 2019

På 21.1.2019 den 22.48, iceball skrev:

Men, TripsBetweenStops fungerer ser det ut som, ikke CallsFromStopplace.

Hos meg fungerte ikke noen av dem..
Jeg hadde ikke ScriptingReferences= i settings.ini fila, så la dette til som sagt tidligere i kommentarfeltet. Fant Newtonsoft.Json på samme plass som vist i innlegget:

Ved kjøring av dette eventet:

Får jeg følgende feilkode:

Slik ser systemprofilen min ut hvis det er til noe hjelp i eventuell feilsøking:

EDIT:

Har testet med Moskus' parametre på både TripsBetweenStops og CallsFromStopplace. Det fungerte med TripsBetweenStops og ikke CallsFromStopplace
Kan dette ha noe med at det er linjer som er kommentert ut i main? Eventuelt at det burde vært åpne parenteser her og ikke med dine NSR verdier?
Jeg har ikke peiling, men kommer bare med forslag på hva som kan være problemene nå.

Prøvde også å kommentere vekk Dim list As List(Of Trippattern) over og kjørte så TripsBetweenStops med Moskus' paramtere og får følgende feilkode:

Prøver så videre med å ta vekk vekkommenteringen og fjerner også vekkommenteringen på Dim list As List(Of EstimatedCall), main ser da slik ut:

Da får jeg følgende ved kjøring av TripsBetweenStops med Moskus' parameter:

Og dette ved kjøring av CallsFromStopplace med Moskus' parameter:

Dette er så langt jeg har kommet i debuggingen, håper noe av dette kan hjelpe videre?

Endret 8. mars 2019 av Zheep
Debugging

Moskus · 8. mars 2019

3 timer siden, Zheep skrev:

Kan dette ha noe med at det er linjer som er kommentert ut i main?

Nei, det er kun gamle debug-linjer fra da jeg skrev scriptet første gangen. "Main" blir jo ikke kjørt i det hele tatt, det er "TripsBetweenStops" og "CallsFromStopplace" som er funksjonene som kjøres.

Zheep · 8. mars 2019

3 minutter siden, Moskus skrev:

Nei, det er kun gamle debug-linjer fra da jeg skrev scriptet første gangen. "Main" blir jo ikke kjørt i det hele tatt, det er "TripsBetweenStops" og "CallsFromStopplace" som er funksjonene som kjøres.

Var det jeg tenkte meg, men er det ikke da rart at jeg får så mange forskjellige feilmeldinger ved endring av main, selv om jeg kjører de andre subbene?

Endret 8. mars 2019 av Zheep

Moskus · 8. mars 2019

Hvilke parametre er "mine" parametre, hvordan ser det eventet ut (screenshot)?

Zheep · 8. mars 2019

57 minutter siden, Moskus skrev:

Hvilke parametre er "mine" parametre, hvordan ser det eventet ut (screenshot)?

TripsBetweenStops(Dine parametre fra starten av denne tråden):

CallsFromStopplace(Dine parametre fra starten av denne tråden):

Prøvde å kjøre med andre parametre fra buss, i eksempelet her Sandnes rutebilstasjon -> Lurahammaren, det fungerte på TripsBetweenStops:

Kan det være ett problem at jeg har forsøkt med bybanen(trikk hos Entur)i Bergen i min opprinnelige post?
Tenker siden jeg her klarte det med enda ett eksempel fra Kolumbus.

Men CallsFromStopplace med eksempelet Lurahammaren -> Sandnes fungerte ikke..

EDIT:

Har prøvd med busser fra skyss i Bergen også, da fungerer Sub TripsBetweenStops
Har nå prøvd med tog fra Sandnes -> Stavanger med Sub TripsBetweenStops, og da fikk jeg samme feilmelding som jeg skrev i mitt opprinnelige innlegg her. Virker da som det kun går an å få rutetider for buss i dette skriptet slik det er nå?

Endret 8. mars 2019 av Zheep
Feilsøking med andre bussruter og togruter

Moskus · 8. mars 2019

1 time siden, Zheep skrev:

Kan det være ett problem at jeg har forsøkt med bybanen(trikk hos Entur)i Bergen i min opprinnelige post?

1 time siden, Zheep skrev:

kun går an å få rutetider for buss i dette skriptet slik det er nå?

Ja, det stemmer nok, se f.eks. her:

Private Function GetTripBetweenStops(ByVal stop1 As String, ByVal stop2 As String, Optional ByVal entries As Integer = 5) As List(Of Trippattern)
     Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}"

     Dim result As String = RunQuery(jsonQuery)
     Dim enTurJson As EnTur = JsonConvert.DeserializeObject(Of EnTur)(result)

     Return enTurJson.data.trip.tripPatterns
End Function

Der står det "modes: [bus]". Det er kun buss. Jeg har ikke fått til å legge inn flere elementer i den, men det skal være mulig spørre etter "tram". En mulighet er å kopiere funksjonen og lage en ny "GetTripBetweenStopsForTram" og endre [bus] til [tram].

Zheep · 8. mars 2019

22 minutter siden, Moskus skrev:


Private Function GetTripBetweenStops(ByVal stop1 As String, ByVal stop2 As String, Optional ByVal entries As Integer = 5) As List(Of Trippattern)
     Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}"

     Dim result As String = RunQuery(jsonQuery)
     Dim enTurJson As EnTur = JsonConvert.DeserializeObject(Of EnTur)(result)

     Return enTurJson.data.trip.tripPatterns
End Function

Der står det "modes: [bus]". Det er kun buss. Jeg har ikke fått til å legge inn flere elementer i den, men det skal være mulig spørre etter "tram". En mulighet er å kopiere funksjonen og lage en ny "GetTripBetweenStopsForTram" og endre [bus] til [tram].

Yes det fungerte!
Så da bør jeg lage en egen funksjon for hver av transportmidlene jeg har tenkt å bruke, samt lage en egen sub for hvert transportmiddel slik som eksempelet her viser:

Men da gjenstår det andre problemet da, hvorfor fungerer ikke CallsFromStopplace, kan det ha noe med funksjonen "GetCallsFromStopPlace" og gjøre?

Private Function GetCallsFromStopPlace(ByVal _stop As String, Optional ByVal _quay As String = "", Optional ByVal entries As Integer = 5) As List(Of EstimatedCall)
	Dim jsonQuery As String = "{stopPlace(id: """ & _stop & """) {id name estimatedCalls(startTime: """ & Now.ToString("yyyy-MM-ddTHH:mm:sszzz") & """, timeRange: 72100, numberOfDepartures: " & (entries * 2 + 2) & "){ realtime aimedArrivalTime expectedArrivalTime destinationDisplay {frontText} quay {id} serviceJourney {journeyPattern {line {id name transportMode}}}}}}"

	Dim result As String = RunQuery(jsonQuery)
	Dim enTurJson As EnTur = Newtonsoft.Json.JsonConvert.DeserializeObject(Of EnTur)(result)

	Dim lst As New List(Of EstimatedCall)
	Dim count As Integer = 0
	For Each e As EstimatedCall In enTurJson.data.stopPlace.estimatedCalls
		If _quay <> "" Then
			If e.quay.id = _quay Then
				lst.Add(e)
				count += 1
			End If
		Else
			lst.Add(e)
			count += 1
		End If
		If count = entries Then Exit For
	Next
	Return lst
End Function

Moskus · 9. mars 2019

17 timer siden, Zheep skrev:

Men da gjenstår det andre problemet da, hvorfor fungerer ikke CallsFromStopplace, kan det ha noe med funksjonen "GetCallsFromStopPlace" og gjøre?

Jo... men hva?

Zheep · 10. mars 2019

På 9.3.2019 den 9.23, Moskus skrev:

Jo... men hva?

Nei si det..
Men vet fra forumet til homeseer her, post 39, at det kan være forskjeller på vb.net script i Windows og Linux.

Det er rart at CallsFromStopplace fungerer for noen linux brukere her(?), mens det for andre ikke fungerer.
Scriptet fra lenken over fikk jeg ikke til å fungerer før jeg kommenterte ut linjen som det blir henvist til i den posten.

Endret 10. mars 2019 av Zheep
lagt til korrekt lenke

Moskus · 11. mars 2019

16 timer siden, Zheep skrev:

Det er rart at CallsFromStopplace fungerer for noen linux brukere her(?), mens det for andre ikke fungerer.

Ja, jeg er enig i det det, men det KAN være at det brukes StopPlace som ikke eksisterer også. Da vil ikke scriptet gi det som tilbakemelding, men vil feile fullstendig (og kunne gi feilmeldinger som over).

Trash2000 · 11. mars 2019