home *** CD-ROM | disk | FTP | other *** search
/ Chip 1994 February / CHIP0294.ISO / digital / praxis / tips11 / tips11.lst < prev   
File List  |  1994-09-30  |  3KB  |  126 lines
  1. ((Listing MS-DOS 6.2: 2IN1.BAT))
  2. @echo off
  3. set curdisk=1
  4. cls
  5. if exist C:\2in1TMP\*.* goto exitx
  6. :begin
  7. cls
  8. c: | cd\ | md 2in1tmp | cd 2in1tmp
  9. echo. | echo LESE QUELLDISKETTE
  10. xcopy a:\*.* /s/e/v
  11. echo.
  12. echo Legen Sie die Zieldiskette in A: ein
  13. pause
  14. echo.|echo SCHREIBE ZIELDISKETTE
  15. xcopy *.* a:\DISK%curdisk%\ /s/e/v
  16. if errorlevel 4 goto error4
  17. if errorlevel 2 goto abbruch
  18. if errorlevel 5 goto error5
  19. echo.|echo Es sind keine Fehler aufgetreten
  20. echo.
  21. choice/c:jn/t:n,10 Eine weitere Diskette kopieren?
  22. if errorlevel 2 goto exitmit
  23. if errorlevel 1 goto begin2
  24. if errorlevel 0 goto abbruch
  25. goto exitmit
  26. :error4
  27. echo.
  28. echo ABBRUCH! FEHLER : Nicht genug Speicher
  29. echo oder kein Platz mehr auf der Diskette
  30. goto exitmit
  31. :error5
  32. echo.
  33. echo ABBRUCH! FEHLER : Schreibfehler
  34. goto exitmit
  35. :abbruch
  36. echo.
  37. echo Sie haben den Kopiervorgang mit
  38. echo [Strg][C] abgebrochen
  39. goto exitmit
  40. :begin2
  41. cd\ | deltree/y c:\2in1TMP
  42. if %curdisk%==1 set curdisk=2
  43. goto begin
  44. :exitx
  45. echo Name der temporären Datei existiert bereits
  46. echo !!! Bitte ändern !!!
  47. goto exitohne
  48. :exitmit
  49. cd\ | deltree/y c:\2in1TMP
  50. :exitohne
  51. set curdisk=
  52. ((Listing ENDE))
  53.  
  54.  
  55.  
  56. ((Listing Winword 6.0: Seitenzahlen))
  57. Sub MAIN
  58. EinfügenManuellerWechsel .Art = 2
  59. DateiSeiteEinrichten .Registerkarte = "0", .PapierGröße = "9", .SeitenrandOben = "2,5 cm", .SeitenrandUnten = "2,5 cm", .SeitenrandLinks = "2 cm", .SeitenrandRechts = "2,5 cm", .Bundsteg = "0 cm", .SeitenBreite = "29,7 cm", .SeitenLänge = "21 cm", .HochQuer = 1, .ErsteSeite = 0, .ÜbrigeSeiten = 0, .AusrichtungVertikal = 0, .AnwAuf = 0, .GgbrSeiten = 0, .AbstandKopfzeile = "0,8 cm", .AbstandFußzeile = "1,1 cm", .AbschnittsBeginn = 2, .GeradeUngeradeSeiten = 0, .ErsteSeiteAnders = 0, .Endnoten = 0, .ZeilenNr = 0, .AnfangsNr = "", .VomText = "", .Zählintervall = "0", .NumerierArt = - 1
  60. VZeile 14
  61. AnsichtKopfzeile
  62. BearbeitenAllesMarkieren
  63. KopfFußzeilenVerknüpfungUmschalten
  64. BearbeitenAllesMarkieren
  65. BearbeitenLöschen
  66. BearbeitenAutoText .Name = "KopfQuer", .Kontext = 1, .EinfügenAls = 0, .Einfügen
  67. GeheZuKopfFußzeile
  68. KopfFußzeilenVerknüpfungUmschalten
  69. BearbeitenAllesMarkieren
  70. BearbeitenLöschen
  71. BearbeitenAutoText .Name = "FußQuer", .Kontext = 1, .EinfügenAls = 0, .Einfügen
  72. BearbeitenLöschen
  73. End Sub
  74. ((Listing Ende))
  75.  
  76.  
  77.  
  78.  
  79. ((Listing Ami Pro 3.0: Trenncheck))
  80. FUNCTION Trenncheck()
  81. Start = MultiDecide("Soll die Überprüfung am Anfang des Dokuments beginnen?", (3 + 32), "Überprüfen der Silbentrennung")
  82. SWITCH Start
  83. CASE 2
  84. GOTO Ende
  85. CASE 6 
  86. TYPE("[CtrlHome]")
  87. GOTO Beginn
  88. CASE 7
  89. UserControl("Cursor mit der MAUS an die Startstelle bringen!")
  90. ENDSWITCH
  91.  
  92. Beginn:
  93. WHILE(NOT(AtEOF()))
  94. TYPE("[End]")
  95. Zeichen = ASC(CurChar$())
  96. IF (Zeichen = 0 OR Zeichen = 10 OR Zeichen = 32)
  97. TYPE("[Down]")
  98. GOTO Beginn
  99. ENDIF
  100. TYPE("[CtrlLeft][CtrlShiftRight]")
  101. Ändern = MultiDecide("Ist das markierte Wort richtig getrennt?", (3 + 32))
  102. SWITCH Ändern
  103. CASE 2
  104. GOTO Ende
  105. CASE 7 
  106. IF Zeichen = 23
  107. UserControl("Trennung bereits geändert! Ganzes Wort löschen und neu eingeben!")
  108. ELSE
  109. UserControl("MAUS-Cursor an korrekte Trennstelle setzen, dann Strg - eingeben!")
  110. ENDIF
  111. ENDSWITCH
  112. TYPE("[CtrlLeft][Down]")
  113. Wend
  114.  
  115. Ende:
  116. StatusBarMsg("Silbentrennungsprüfung beendet")
  117. Pause(30)
  118. StatusBarMsg("")
  119.  
  120. END FUNCTION
  121. ((Listing Ende))
  122.  
  123.  
  124.  
  125.  
  126.