home *** CD-ROM | disk | FTP | other *** search
/ WDR Computer Club Digital 1996 December / club1296.bin / SHAREWIN / TFIND / DB.MKR < prev    next >
Text File  |  1996-08-01  |  2KB  |  94 lines
  1. # [INFO]
  2. # N:Fahrplanauskunft bei der DB
  3. # P:
  4. # I:Die Suchergebnisse werden in der Datei "db_plan.txt" gespeichert. Diese Datei
  5. # I:wird im Makro-Verzeichnis des T-Online-Decoders abgespeichert.
  6.  
  7. # [CODE]
  8. # Variablen initialisieren
  9. set Counter1 = "1"
  10. set Counter2 = "1"
  11. set Moeglichkeit = "11"
  12.  
  13. # Abfrage der Reisedaten vom Benutzer
  14. input Hdatum: "Datum fⁿr die Hinfahrt (Format: 0101 = 1.Januar)", "0101"
  15. input Start: "Abfahrtsbahnhof", "Mⁿnchen Hbf"
  16. input Ziel: "Zielbahnhof", "Berlin Hbf"
  17. input Habzeit: "Abfahrtszeit fⁿr die Hinfahrt (Format: 1400 = 14:00 Uhr)", "1400"
  18. input Hanzeit: "Ankunftszeit fⁿr die Hinfahrt (Format: 2100 = 21:00 Uhr)", "2100"
  19. input Rdatum: "Datum fⁿr die Rⁿckfahrt (Format: 0101 = 1.Januar)", "0101"
  20. input Rabzeit: "Abfahrtszeit fⁿr die Rⁿckfahrt (Format: 1400 = 14:00 Uhr)", "1400"
  21. input Ranzeit: "Ankunftszeit fⁿr die Rⁿckfahrt (Format: 2100 = 21:00 Uhr)", "2100"
  22.  
  23. # T-Online Anwahl
  24. connect
  25.  
  26. # Fahrplanauskunft anwΣhlen und Eintragen der Daten fⁿr die Hinfahrt
  27. send "\c\*0\#"
  28. waitdct
  29. send "\*2580003\#"
  30. waitdct
  31. sendfield Hdatum, "4"
  32. waitdct
  33. sendfield Start, "20"
  34. waitdct
  35. sendfield Ziel, "20"
  36. waitdct
  37. sendfield Habzeit, "4"
  38. waitdct
  39. sendfield Hanzeit, "4"
  40. waitdct
  41. send "\#"
  42. waitdct
  43. send "19"
  44. waitdct
  45.  
  46. Hinfahrt:
  47. # alle 5 m÷glichen Verbindungen fⁿr Hinfahrt abholen
  48. send Moeglichkeit
  49. waitdct
  50. get zeile = "1", "3", "40", "17"
  51. append zeile to "db_plan.txt"
  52. append "\r\r\r" to "db_plan.txt"
  53. add Counter1, "1"
  54. add Moeglichkeit, "1"
  55. send "44"
  56. waitdct
  57. ifeqless Counter1 than "5" goto Hinfahrt
  58. append "----R ▄ C K F A H R T----" to "db_plan.txt"
  59.  
  60. # Eintragen der Daten fⁿr die Rⁿckfahrt
  61. send "23"
  62. waitdct
  63. sendfield Rdatum, "4"
  64. waitdct
  65. send "\r"
  66. waitdct
  67. send "\r"
  68. waitdct
  69. sendfield Rabzeit, "4"
  70. waitdct
  71. sendfield Ranzeit, "4"
  72. waitdct
  73. set Moeglichkeit = "11"
  74.  
  75. Rueckfahrt:
  76. # alle 5 m÷glichen Verbindungen fⁿr Rⁿckfahrt abholen
  77. send Moeglichkeit
  78. waitdct
  79. get line = "1", "3", "40", "17"
  80. append line to "db_plan.txt"
  81. append "\r\r\r" to "db_plan.txt"
  82. add Counter2, "1"
  83. add Moeglichkeit, "1"
  84. send "44"
  85. waitdct
  86. ifeqless Counter2 than "5" goto Rueckfahrt
  87. send "\*0\#"
  88. waitdct
  89. end
  90.  
  91.  
  92.  
  93.  
  94.