crutility.prg

MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。它不但保留了原先Basic语言的全部功能

*-----------------------------------------------------------------------------------
*  Program...........: CRUTILITY.PRG
*  Author............: C.T. Blankenship                   
*  Project...........: Codebook for Visual Studio
*  Created...........: 08/30/98  11:39:41
*  Copyright.........: (c) Flash Creative Management, Inc.
*) Description.......: 
*)                   : This is a utility that copyrights your class libraries
*)                   : To use it, perform the following steps:
*)                   : 1.  BACKUP YOUR CLASS LIBRARY (.VCX File)
*)                   : 2.  Customize the following code to your needs by replacing
*)                   :     the text in angled brackets with your own information.
*)                   : 3.  Open your class library manually, e.g. USE LIBS\ACUSTOMER.VCX
*)                   : 4.  Run this utility,                 e.g. =CRUTILITY()
*)                   : 5.  Close your class library,         e.g. USE
*)                   : 6.  Recompile your class library,     e.g. COMPILE CLASSLIB LIBS\ACUSTOMER.VCX
*)                   : 7.  Modify the class and examine the Copyright() method 
*)                   : 8.  Test the code for any anomalies.
*  Calling Samples...: DO CRUTILITY.PRG
*  Parameter List....: None
*  Major change list.: 
*  Notice............: The this code does not replace any existing copyright
*                    : information.  It only enters a copyright for a non-
*                    : copyrighted class definition.
*  Suggestions.......: You may want to create an individual .PRG of this 
*                    : utility in each application your write for a client
*                    : (assuming that they, not you, own the copyright).  
*                    : You can do this using the File|Save As menu bar.
*-----------------------------------------------------------------------------------
SCAN FOR .NOT. EMPTY( baseclass ) AND ;
         .NOT. EMPTY( objname )   AND ;
         .NOT. ( "PROCEDURE copyright" $ Methods )
   lcCopyRightNotice = "PROCEDURE copyright "                                             + CHR(13) + ;
                       "*  Library...........: " + UPPER(ALLTRIM(ALIAS())) + ".VCX"       + CHR(13) + ;
                       "*  Class.............: " + ALLTRIM( objname )                     + CHR(13) + ;
                       "*  Author............: Charles T. Blankenship"                    + CHR(13) + ;
                       "*                    : [e-mail]"                     + CHR(13) + ;
                       "*                    : [e-mail]"                    + CHR(13) + ;
                       "*  Project...........: Codebook for Visual Studio"                + CHR(13) + ;
                       "*  Created...........: " + DTOC(DATE()) + "  " + TIME()           + CHR(13) + ;
                       "*  Copyright.........: (c) Flash Creative Management, Inc. 1998"  + CHR(13) + ;
                       "*  Major change list.: "                                          + CHR(13) + CHR(13) + ;
                       " ENDPROC"
  
   REPLACE methods WITH ALLTRIM(methods) + lcCopyRightNotice
ENDSCAN