home *** CD-ROM | disk | FTP | other *** search
- # [INFO]
- # N:Fahrplanauskunft bei der DB
- # P:
- # I:Die Suchergebnisse werden in der Datei "db_plan.txt" gespeichert. Diese Datei
- # I:wird im Makro-Verzeichnis des T-Online-Decoders abgespeichert.
-
- # [CODE]
- # Variablen initialisieren
- set Counter1 = "1"
- set Counter2 = "1"
- set Moeglichkeit = "11"
-
- # Abfrage der Reisedaten vom Benutzer
- input Hdatum: "Datum fⁿr die Hinfahrt (Format: 0101 = 1.Januar)", "0101"
- input Start: "Abfahrtsbahnhof", "Mⁿnchen Hbf"
- input Ziel: "Zielbahnhof", "Berlin Hbf"
- input Habzeit: "Abfahrtszeit fⁿr die Hinfahrt (Format: 1400 = 14:00 Uhr)", "1400"
- input Hanzeit: "Ankunftszeit fⁿr die Hinfahrt (Format: 2100 = 21:00 Uhr)", "2100"
- input Rdatum: "Datum fⁿr die Rⁿckfahrt (Format: 0101 = 1.Januar)", "0101"
- input Rabzeit: "Abfahrtszeit fⁿr die Rⁿckfahrt (Format: 1400 = 14:00 Uhr)", "1400"
- input Ranzeit: "Ankunftszeit fⁿr die Rⁿckfahrt (Format: 2100 = 21:00 Uhr)", "2100"
-
- # T-Online Anwahl
- connect
-
- # Fahrplanauskunft anwΣhlen und Eintragen der Daten fⁿr die Hinfahrt
- send "\c\*0\#"
- waitdct
- send "\*2580003\#"
- waitdct
- sendfield Hdatum, "4"
- waitdct
- sendfield Start, "20"
- waitdct
- sendfield Ziel, "20"
- waitdct
- sendfield Habzeit, "4"
- waitdct
- sendfield Hanzeit, "4"
- waitdct
- send "\#"
- waitdct
- send "19"
- waitdct
-
- Hinfahrt:
- # alle 5 m÷glichen Verbindungen fⁿr Hinfahrt abholen
- send Moeglichkeit
- waitdct
- get zeile = "1", "3", "40", "17"
- append zeile to "db_plan.txt"
- append "\r\r\r" to "db_plan.txt"
- add Counter1, "1"
- add Moeglichkeit, "1"
- send "44"
- waitdct
- ifeqless Counter1 than "5" goto Hinfahrt
- append "----R ▄ C K F A H R T----" to "db_plan.txt"
-
- # Eintragen der Daten fⁿr die Rⁿckfahrt
- send "23"
- waitdct
- sendfield Rdatum, "4"
- waitdct
- send "\r"
- waitdct
- send "\r"
- waitdct
- sendfield Rabzeit, "4"
- waitdct
- sendfield Ranzeit, "4"
- waitdct
- set Moeglichkeit = "11"
-
- Rueckfahrt:
- # alle 5 m÷glichen Verbindungen fⁿr Rⁿckfahrt abholen
- send Moeglichkeit
- waitdct
- get line = "1", "3", "40", "17"
- append line to "db_plan.txt"
- append "\r\r\r" to "db_plan.txt"
- add Counter2, "1"
- add Moeglichkeit, "1"
- send "44"
- waitdct
- ifeqless Counter2 than "5" goto Rueckfahrt
- send "\*0\#"
- waitdct
- end
-
-
-
-
-