home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 January / Image.iso / pcgo / demo / intime / disk.a02 / TEXTE / MACROTW3.SMM < prev    next >
Encoding:
INI File  |  1994-05-11  |  9.9 KB  |  919 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet Series II
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     7
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     768701318
  24.     5
  25.     765767106
  26.     13
  27.     3
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Text Abstand
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Text
  55.     2
  56.     [fnt]
  57.         TimesNewRomanPS
  58.         240
  59.         0
  60.         49152
  61.     [algn]
  62.         1
  63.         2
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         2
  71.         0
  72.         0
  73.         2
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         2
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         2
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         280
  101.         1
  102.         2
  103.         ,
  104.         .
  105.         DM
  106.     Text
  107.     0
  108.     0
  109. [tag]
  110.     Text Abstand
  111.     3
  112.     [fnt]
  113.         TimesNewRomanPS
  114.         240
  115.         0
  116.         49152
  117.     [algn]
  118.         1
  119.         2
  120.         0
  121.         0
  122.         0
  123.     [spc]
  124.         33
  125.         277
  126.         2
  127.         0
  128.         277
  129.         2
  130.         100
  131.     [brk]
  132.         4
  133.     [line]
  134.         8
  135.         0
  136.         2
  137.         0
  138.         1
  139.         1
  140.         1
  141.         10
  142.         10
  143.         1
  144.     [spec]
  145.         0
  146.         0
  147.         
  148.         0
  149.         2
  150.         1
  151.         0
  152.         0
  153.         0
  154.         0
  155.     [nfmt]
  156.         280
  157.         1
  158.         2
  159.         ,
  160.         .
  161.         DM
  162.     Text Abstand
  163.     0
  164.     0
  165. [tag]
  166.     Markierung
  167.     4
  168.     [fnt]
  169.         TimesNewRomanPS
  170.         240
  171.         0
  172.         49152
  173.     [algn]
  174.         1
  175.         2
  176.         0
  177.         288
  178.         288
  179.     [spc]
  180.         33
  181.         273
  182.         2
  183.         0
  184.         0
  185.         2
  186.         100
  187.     [brk]
  188.         4
  189.     [line]
  190.         8
  191.         0
  192.         2
  193.         0
  194.         1
  195.         1
  196.         1
  197.         10
  198.         10
  199.         1
  200.     [spec]
  201.         0
  202.         0
  203.         <*0>
  204.         360
  205.         2
  206.         1
  207.         0
  208.         0
  209.         0
  210.         0
  211.     [nfmt]
  212.         272
  213.         1
  214.         2
  215.         ,
  216.         .
  217.         DM
  218.     Markierung
  219.     0
  220.     0
  221. [tag]
  222.     Markierung 1
  223.     5
  224.     [fnt]
  225.         TimesNewRomanPS
  226.         240
  227.         0
  228.         49152
  229.     [algn]
  230.         1
  231.         2
  232.         288
  233.         288
  234.         288
  235.     [spc]
  236.         33
  237.         273
  238.         2
  239.         0
  240.         0
  241.         2
  242.         100
  243.     [brk]
  244.         4
  245.     [line]
  246.         8
  247.         0
  248.         2
  249.         0
  250.         1
  251.         1
  252.         1
  253.         10
  254.         10
  255.         1
  256.     [spec]
  257.         0
  258.         0
  259.         <*5>
  260.         0
  261.         2
  262.         1
  263.         0
  264.         0
  265.         0
  266.         0
  267.     [nfmt]
  268.         280
  269.         1
  270.         2
  271.         ,
  272.         .
  273.         DM
  274.     Markierung 1
  275.     0
  276.     0
  277. [tag]
  278.     Nr. Liste
  279.     6
  280.     [fnt]
  281.         TimesNewRomanPS
  282.         240
  283.         0
  284.         49152
  285.     [algn]
  286.         1
  287.         2
  288.         360
  289.         360
  290.         360
  291.     [spc]
  292.         33
  293.         273
  294.         2
  295.         0
  296.         0
  297.         2
  298.         100
  299.     [brk]
  300.         4
  301.     [line]
  302.         8
  303.         0
  304.         2
  305.         0
  306.         1
  307.         1
  308.         1
  309.         10
  310.         10
  311.         1
  312.     [spec]
  313.         0
  314.         0
  315.         <*:>.
  316.         360
  317.         2
  318.         1
  319.         0
  320.         0
  321.         0
  322.         0
  323.     [nfmt]
  324.         272
  325.         1
  326.         2
  327.         ,
  328.         .
  329.         DM
  330.     Nr. Liste
  331.     0
  332.     0
  333. [tag]
  334.     Unter Titel
  335.     7
  336.     [fnt]
  337.         TimesNewRomanPS
  338.         240
  339.         0
  340.         49155
  341.     [algn]
  342.         1
  343.         2
  344.         0
  345.         0
  346.         0
  347.     [spc]
  348.         33
  349.         273
  350.         2
  351.         72
  352.         72
  353.         2
  354.         100
  355.     [brk]
  356.         4
  357.     [line]
  358.         8
  359.         0
  360.         2
  361.         0
  362.         1
  363.         1
  364.         1
  365.         10
  366.         10
  367.         1
  368.     [spec]
  369.         0
  370.         2
  371.         
  372.         0
  373.         2
  374.         1
  375.         0
  376.         0
  377.         0
  378.         0
  379.     [nfmt]
  380.         272
  381.         1
  382.         2
  383.         ,
  384.         .
  385.         DM
  386.     Unter Titel
  387.     0
  388.     0
  389. [tag]
  390.     Titel
  391.     8
  392.     [fnt]
  393.         Arial MT
  394.         360
  395.         0
  396.         16385
  397.     [algn]
  398.         4
  399.         2
  400.         0
  401.         0
  402.         0
  403.     [spc]
  404.         33
  405.         446
  406.         2
  407.         144
  408.         72
  409.         2
  410.         100
  411.     [brk]
  412.         16
  413.     [line]
  414.         8
  415.         0
  416.         2
  417.         0
  418.         1
  419.         1
  420.         1
  421.         10
  422.         10
  423.         1
  424.     [spec]
  425.         0
  426.         1
  427.         
  428.         0
  429.         2
  430.         1
  431.         0
  432.         0
  433.         0
  434.         0
  435.     [nfmt]
  436.         272
  437.         1
  438.         2
  439.         ,
  440.         .
  441.         DM
  442.     Titel
  443.     0
  444.     0
  445. [lay]
  446.     Standard
  447.     516
  448.     [rght]
  449.         16839
  450.         11907
  451.         2
  452.         1440
  453.         1440
  454.         2
  455.         1440
  456.         1440
  457.         0
  458.         1
  459.         0
  460.         1
  461.         0
  462.         2
  463.         1
  464.         1440
  465.         10465
  466.         12
  467.         1
  468.         720
  469.         1
  470.         1440
  471.         1
  472.         2160
  473.         1
  474.         2880
  475.         1
  476.         3600
  477.         1
  478.         4320
  479.         1
  480.         5040
  481.         1
  482.         5760
  483.         1
  484.         6480
  485.         1
  486.         7200
  487.         1
  488.         7920
  489.         1
  490.         8640
  491.     [hrght]
  492.     [lyfrm]
  493.         1
  494.         11200
  495.         0
  496.         0
  497.         11907
  498.         1440
  499.         0
  500.         1
  501.         3
  502.         1 0 0 0 0 0 0
  503.         0
  504.         0
  505.         1
  506.     [frmlay]
  507.         1440
  508.         11907
  509.         1
  510.         1440
  511.         73
  512.         2
  513.         623
  514.         1440
  515.         0
  516.         1
  517.         0
  518.         1
  519.         1
  520.         0
  521.         1
  522.         1440
  523.         10465
  524.         1
  525.         3
  526.         9360
  527.     [txt]
  528. >
  529.     [frght]
  530.     [lyfrm]
  531.         1
  532.         13248
  533.         0
  534.         15399
  535.         11907
  536.         16839
  537.         0
  538.         1
  539.         3
  540.         1 0 0 0 0 0 0
  541.         0
  542.         0
  543.         2
  544.     [frmlay]
  545.         16839
  546.         11907
  547.         1
  548.         1440
  549.         623
  550.         2
  551.         15472
  552.         1440
  553.         0
  554.         1
  555.         0
  556.         1
  557.         1
  558.         0
  559.         1
  560.         1440
  561.         10465
  562.         2
  563.         2
  564.         4680
  565.         3
  566.         9360
  567.     [txt]
  568.  
  569. >
  570. [elay]
  571. [l1]
  572.     0
  573. [pg]
  574.     3
  575.     50 0 9 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  576.     100 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  577.     103 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  578. [edoc]
  579. <:#274,9025>FUNCTION Twmakro()       ' f<\|>r CAS teamWorks
  580.  
  581. <:#274,9025>
  582.  
  583. <:#274,9025>
  584.  
  585. <:#274,9025>'REM Die Autostart-Dummydatei AUTO_TW3.SMM sofort wieder schlie<\_>en:
  586.  
  587. 'REM Vorher Optionen zum ASCII-File laden einstellen :
  588.  
  589. 'REM ANSI-Format & CR/LF nur am Absatzende
  590.  
  591. AsciiOptions(ANSI)
  592.  
  593. <:#274,9025>FileClose()
  594.  
  595. <:#274,9025>
  596.  
  597. <:#274,9025>
  598.  
  599. <:#274,9025>'REM Sanduhr-Cursur AN :
  600.  
  601. <:#274,9025>HourGlass(On)
  602.  
  603. <:#274,9025>StatusBarMsg("CAS teamWorks : Serienbrief Makro wird ausgef<\|>hrt")
  604.  
  605. <:#274,9025>Pause(005)
  606.  
  607. <:#274,9025>StatusBarMsg("")
  608.  
  609. <:#274,9025>
  610.  
  611. <:#274,9025>
  612.  
  613. <:#274,9025>'REM Aus WIN.INI lesen :
  614.  
  615. <:#274,9025>Path$=GetProfileString$("tworks", "BerichtPfad")                 ' Pfad zum Berichtsverzeichnis.
  616.  
  617. <:#274,9025>NameNeu$=GetProfileString$("tworks", "BerichtNameNeu") ' Name des neuen Serien-
  618.  
  619. <:#274,9025>                                                                                              '    Dokuments (ohne Pfad).
  620.  
  621. <:#274,9025>Vorlage$=GetProfileString$("tworks", "BerichtVorlage")       ' Name der Vorlage (mit Pfad).
  622.  
  623. <:#274,9025>Daten$=GetProfileString$("tworks", "BerichtDaten")             ' Name der Steuerdatei 
  624.  
  625. <:#274,9025>                                                                                              '    (NEU: mit Pfad)
  626.  
  627. <:#274,9025>Unterschrift$=GetProfileString$("tworks" "Unterschrift")
  628.  
  629. <:#274,9025>Kurzzeichen$=GetProfileString$("tworks" "Kurzzeichen")
  630.  
  631. <:#274,9025>
  632.  
  633. <:#274,9025>
  634.  
  635. <:#274,9025>'REM Einen Backslash an den Pfad anh<\d>ngen, wenn nicht vorhanden :
  636.  
  637. <:#274,9025>If (Right$(Path$, 1)<<<;>"\")
  638.  
  639. <:#274,9025>    Path$=StrCat$(Path$, "\")
  640.  
  641. <:#274,9025>EndIf
  642.  
  643. <:#274,9025>
  644.  
  645. <:#274,9025>
  646.  
  647. <:#274,9025>'REM Pfad$ vor Daten$ h<\d>ngen, wenn BerichtDaten ohne Pfad (teamWorks 2.0)
  648.  
  649. <:#274,9025>If(InStr(0, Daten$, "\") = 0)
  650.  
  651. <:#274,9025>  Daten$=StrCat$(Path$, Daten$)
  652.  
  653. <:#274,9025>EndIf 
  654.  
  655. <:#274,9025>
  656.  
  657. <:#274,9025>
  658.  
  659. <:#274,9025>'REM Neuen Namen f<\|>r die AmiPro konforme Steuerdatei erzeugen.
  660.  
  661. <:#274,9025>'REM    Entspricht dem Namen der alten Steuerdatei, aber mit der Endung ".sam" :
  662.  
  663. <:#274,9025>StatusBarMsg("CAS teamWorks : Datendatei wird konvertiert")
  664.  
  665. <:#274,9025>Pause(005)
  666.  
  667. <:#274,9025>StatusBarMsg("")
  668.  
  669. <:#274,9025>pos=0
  670.  
  671. <:#274,9025>For i=len(Daten$) To 1 Step -1
  672.  
  673. <:#274,9025>    If (Mid$(Daten$, i, 1)="." And pos=0)
  674.  
  675. <:#274,9025>        pos=i
  676.  
  677. <:#274,9025>    EndIf
  678.  
  679. <:#274,9025>Next
  680.  
  681. <:#274,9025>
  682.  
  683. <:#274,9025>If (pos<;>0)
  684.  
  685. <:#274,9025>    ApDaten$=StrCat$(Left$(Daten$, pos), "sam")
  686.  
  687. <:#274,9025>Else
  688.  
  689. <:#274,9025>    ApDaten$=StrCat$(Daten$, ".sam")
  690.  
  691. <:#274,9025>EndIF
  692.  
  693. <:#274,9025>
  694.  
  695. <:#274,9025>
  696.  
  697. <:#274,9025>'REM AmiPro konforme Steuerdatei erzeugen und unter neuem Namen speichern :
  698.  
  699. FileOpen(Daten$  5 "ASCII"   )
  700.  
  701. <:#274,9025>Type( ";<[>Enter]" )
  702.  
  703. <:#274,9025>Replace(0 0 25600 "</v>"  "@</v>"   )
  704.  
  705. <:#274,9025>AnswerMsgBox(Yes)
  706.  
  707. <:#274,9025>SaveAs(ApDaten$  0 ""  ""   )
  708.  
  709. <:#274,9025>FileClose( )
  710.  
  711. <:#274,9025>
  712.  
  713. <:#274,9025>
  714.  
  715. <:#274,9025>'REM Vorlage <\v>ffnen, mit Steuerdatei mischen, in das neue Serien-Dokument abspeichern
  716.  
  717. <:#274,9025>'REM      und Vorlage schlie<\_>en. Wenn die Lesezeichen Unterschrift und Kurzzeichen
  718.  
  719. <:#274,9025>'REM      vorhanden sind, dann dort entsprechenden Inhalt einf<\|>gen :
  720.  
  721. <:#274,9025>StatusBarMsg(StrCat$("CAS teamWorks : Serienbriefdatei " NameNeu$ " wird erzeugt"))
  722.  
  723. <:#274,9025>Pause(005)
  724.  
  725. <:#274,9025>StatusBarMsg("")
  726.  
  727. <:#274,9025>FileOpen(Vorlage$  1 ""   )
  728.  
  729. <:#274,9025>
  730.  
  731. <:#274,9025>err = MarkBookMark("Kurzzeichen"  4002  )
  732.  
  733. <:#274,9025>If (err=1) Type(Kurzzeichen$) EndIf
  734.  
  735. <:#274,9025>MarkBookMark("Unterschrift"  4002  )
  736.  
  737. <:#274,9025>If (err=1) Type(Unterschrift$) EndIf
  738.  
  739. <:#274,9025>
  740.  
  741. <:#274,9025>MergeToFile(32 ApDaten$ StrCat$(Path$,NameNeu$))
  742.  
  743. <:#274,9025>FileChanged(1 0)
  744.  
  745. <:#274,9025>FileClose( )
  746.  
  747. <:#274,9025>
  748.  
  749. <:#274,9025>
  750.  
  751. <:#274,9025>'REM Abschlu<\_>meldung : (ausgeklammert, bei Bedarf 'REM entfernen)
  752.  
  753. <:#274,9025>'REM Message("CAS teamWorks :  Serienbrief Makro ist  beendet !")
  754.  
  755. <:#274,9025>StatusBarMsg("CAS teamWorks : Serienbrief Makro ist beendet")
  756.  
  757. <:#274,9025>Pause(005)
  758.  
  759. <:#274,9025>StatusBarMsg("")
  760.  
  761. <:#274,9025>
  762.  
  763. <:#274,9025>
  764.  
  765. <:#274,9025>'REM Neu erzeugtes Serien-Dokument <\v>ffnen :
  766.  
  767. <:#274,9025>FileOpen(StrCat$(Path$,NameNeu$)  1  ""  )
  768.  
  769. <:#274,9025>
  770.  
  771. <:#274,9025>
  772.  
  773. <:#274,9025>'REM Sanduhr-Cursur AUS :
  774.  
  775. <:#274,9025>HourGlass(Off)
  776.  
  777. <:#274,9025>
  778.  
  779. <:#274,9025>
  780.  
  781. <:#274,9025>Twmacroend:
  782.  
  783. <:#274,9025>END FUNCTION
  784.  
  785. >
  786.  
  787. [Embedded]
  788. 00008556
  789. >
  790. [macsum] 1
  791. Twmakro 0 0 11 0
  792. [macse]
  793. 14 Twmakro
  794. 2 123 1 16
  795. 2 147 1
  796. 0 296 1
  797. 0 789 "CAS teamWorks : Serienbrief Makro wird ausgef<\|>hrt"
  798. 0 274 005
  799. 0 789 ""
  800. 0 286 "tworks" "BerichtPfad"
  801. 13
  802. 8 1
  803. 0 286 "tworks" "BerichtNameNeu"
  804. 13
  805. 8 2
  806. 0 286 "tworks" "BerichtVorlage"
  807. 13
  808. 8 3
  809. 0 286 "tworks" "BerichtDaten"
  810. 13
  811. 8 4
  812. 0 286 "tworks" "Unterschrift"
  813. 13
  814. 8 5
  815. 0 286 "tworks" "Kurzzeichen"
  816. 13
  817. 8 6
  818. 0 807 "{1}" 1
  819. 13
  820. 7 "\"
  821. 18 1
  822. 11 00000437
  823. 0 16 "{1}" "\"
  824. 13
  825. 8 1
  826. 0 808 0 "{4}" "\"
  827. 13
  828. 5 0
  829. 18 0
  830. 11 00000511
  831. 0 16 "{1}" "{4}"
  832. 13
  833. 8 4
  834. 0 789 "CAS teamWorks : Datendatei wird konvertiert"
  835. 0 274 005
  836. 0 789 ""
  837. 5 0
  838. 8 7
  839. 0 14 "{4}"
  840. 13
  841. 8 8
  842. 5 1
  843. 6 8
  844. 18 4
  845. 12 00000692
  846. 10 00000786
  847. 5 -1
  848. 6 8
  849. 3 0
  850. 8 8
  851. 10 00000616
  852. 0 15 "{4}" "{8}" 1
  853. 13
  854. 7 "."
  855. 18 0
  856. 6 7
  857. 5 0
  858. 18 0
  859. 1 1
  860. 11 00000773
  861. 6 8
  862. 8 7
  863. 10 00000658
  864. 6 7
  865. 5 0
  866. 18 3
  867. 11 00000876
  868. 0 806 "{4}" "{7}"
  869. 13
  870. 0 16 [X] "sam"
  871. 13
  872. 8 9
  873. 10 00000904
  874. 0 16 "{4}" ".sam"
  875. 13
  876. 8 9
  877. 2 102 1 "{4}" 5 "ASCII"
  878. 0 6 ";[13]"
  879. 2 488 1 0 0 25600 "</v>" "@</v>"
  880. 0 291 6
  881. 2 104 1 "{9}" 0 "" ""
  882. 2 147 1
  883. 0 16 "CAS teamWorks : Serienbriefdatei " "{2}" " wird erzeugt"
  884. 13
  885. 0 789 [X]
  886. 0 274 005
  887. 0 789 ""
  888. 2 102 1 "{3}" 1 ""
  889. 2 466 1 "Kurzzeichen" 4002
  890. 13
  891. 8 10
  892. 6 10
  893. 5 1
  894. 18 0
  895. 11 00001216
  896. 0 6 "{6}"
  897. 2 466 1 "Unterschrift" 4002
  898. 6 10
  899. 5 1
  900. 18 0
  901. 11 00001286
  902. 0 6 "{5}"
  903. 0 16 "{1}" "{2}"
  904. 13
  905. 2 110 3 32 "{9}" [X]
  906. 0 34 1 0
  907. 2 147 1
  908. 0 789 "CAS teamWorks : Serienbrief Makro ist beendet"
  909. 0 274 005
  910. 0 789 ""
  911. 0 16 "{1}" "{2}"
  912. 13
  913. 2 102 1 [X] 1 ""
  914. 0 296 0
  915. 6 0
  916. 15
  917. 9
  918. 00008581
  919.