Advertisement
Shasa

Batch Kontaktmanager (German)

Apr 11th, 2015
270
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 3.20 KB | None | 0 0
  1. @echo off
  2. title Kontakt Manager
  3. cd C:\
  4. md Kontakte
  5. cd C:\Kontakte
  6. color a
  7.  
  8. :main
  9. @echo off
  10. cls
  11. color b
  12. echo.
  13. echo          %date%     by Shasa2308
  14. echo        --------------------------------
  15. echo.
  16. echo Weahle die Ziffern fuer das Programm.
  17. echo.
  18. echo 01 Neuen Kontakt erstellen
  19. echo 02 Alle Kontakte anzeigen
  20. echo 03 Ganzen Ordner anzeigen
  21.  
  22. set /p klick=
  23. if %klick%==01 goto neu
  24. if %klick%==02 goto anzeigen
  25. if %klick%==03 goto ordner zeigen
  26. exit
  27.  
  28. :neu
  29. cd C:\KontaktManager
  30. cls
  31. echo.
  32. echo Kontakte werden nur bei diesen Gruppen gespeichert.
  33. echo Freunde; Firmen; Familie; Gesundheit
  34. echo.
  35. set /p a=Gruppe:
  36. set /p b=Vorname:
  37. set /p c=Nachname:
  38. set /p d=Telefon:
  39. set /p e=Handy:
  40. set /p f=e-mail:
  41. set /p g=Bundesland:
  42. set /p h=Stadt:
  43. set /p i=Postleitzahl:
  44. set /p j=Strasse:
  45.  
  46. if %a%==Freunde goto Freunde
  47. if %a%==Firmen goto Firmen
  48. if %a%==Familie goto Familie
  49. if %a%=Gesundheit goto Gesundheit
  50.  
  51. :Freunde
  52. echo Gruppe: %a% >> Freunde.txt
  53. echo Vorname: %b% >> Freunde.txt
  54. echo Nachname: %c% >> Freunde.txt
  55. echo Telefon: %d% >> Freunde.txt
  56. echo Handy: %e% >> Freunde.txt
  57. echo e-mail: %f% >> Freunde.txt
  58. echo Bundesland: %g% >> Freunde.txt
  59. echo Stadt: %h% >> Freunde.txt
  60. echo Postleitzahl %i% >> Freunde.txt
  61. echo Strasse %j% >> Freunde.txt
  62. echo ------------------------------- >> Freunde.txt
  63. pause >NUL
  64. goto main
  65.  
  66. :Firmen
  67. echo Gruppe: %a% >> Firmen.txt
  68. echo Vorname: %b% >> Firmen.txt
  69. echo Nachname: %c% >> Firmen.txt
  70. echo Telefon: %d% >> Firmen.txt
  71. echo Handy: %e% >> Firmen.txt
  72. echo e-mail: %f% >> Firmen.txt
  73. echo Bundesland: %g% >> Firmen.txt
  74. echo Stadt: %h% >> Firmen.txt
  75. echo Postleitzahl %i% >> Firmen.txt
  76. echo Strasse %j% >> Firmen.txt
  77. echo ------------------------------- >> Firmen.txt
  78. pause >NUL
  79. goto main
  80.  
  81. :Familie
  82. echo Gruppe: %a% >> Familie.txt
  83. echo Vorname: %b% >> Familie.txt
  84. echo Nachname: %c% >> Familie.txt
  85. echo Telefon: %d% >> Familie.txt
  86. echo Handy: %e% >> Familie.txt
  87. echo e-mail: %f% >> Familie.txt
  88. echo Bundesland: %g% >> Familie.txt
  89. echo Stadt: %h% >> Familie.txt
  90. echo Postleitzahl %i% >> Familie.txt
  91. echo Strasse %j% >> Familie.txt
  92. echo ------------------------------- >> Familie.txt
  93. pause >NUL
  94. goto main
  95.  
  96. :Gesundheit
  97. echo Gruppe: %a% >> Gesundheit.txt
  98. echo Vorname: %b% >> Gesundheit.txt
  99. echo Nachname: %c% >> Gesundheit.txt
  100. echo Telefon: %d% >> Gesundheit.txt
  101. echo Handy: %e% >> Gesundheit.txt
  102. echo e-mail: %f% >> Gesundheit.txt
  103. echo Bundesland: %g% >> Gesundheit.txt
  104. echo Stadt: %h% >> Gesundheit.txt
  105. echo Postleitzahl %i% >> Gesundheit.txt
  106. echo Strasse %j% >> Gesundheit.txt
  107. echo ------------------------------- >> Gesundheit.txt
  108. pause >NUL
  109. goto main
  110.  
  111. :anzeigen
  112. cls
  113. echo.
  114. echo Freunde; Firmen; Familie; Gesundheit
  115. echo.
  116. echo Gebe den Gruppennamen ein.
  117. set /p klick=
  118. if %klick%==Freunde goto Freundeshow
  119. if %klick%==Firmen goto Firmenshow
  120. if %klick%==Familie goto Familieshow
  121. if %klick%==Gesundheit goto Gesundheitshow
  122.  
  123. :Freundeshow
  124. cls
  125. TYPE Freunde.txt
  126. pause >NUL
  127. goto main
  128.  
  129. :Firmenshow
  130. cls
  131. TYPE Firmen.txt
  132. pause >NUL
  133. goto main
  134.  
  135. :Familienshow
  136. cls
  137. TYPE Familie.txt
  138. pause >NUL
  139. goto main
  140.  
  141. :Gesundheitshow
  142. cls
  143. TYPE Gesundheit.txt
  144. pause >NUL
  145. goto main
  146.  
  147. :ordner zeigen
  148. cls
  149. start C:\Kontakte
  150. pause >NUL
  151. goto main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement