CLEAR 
CLOSE DATABASES 
ADIR(arSCXFiles,"forms\*.scx")
IF ALEN(arSCXFiles, 1 )> 0 
   CREATE CURSOR curTemp (Filename C( 50 ))
   APPEND FROM ARRAY arSCXFiles
   RELEASE arSCXFiles
   SELECT ;
       Filename ;
     FROM curTemp ;
     INTO CURSOR curSCXFiles ;
     ORDER BY Filename
   USE IN curTemp
   SELECT curSCXFiles
   SCAN FOR NOT "!"$Filename 
     SELECT  0 
USE ('Forms\'+curSCXFiles.Filename)
 SCAN FOR BaseClass = "grid" OR BaseClass = "header" OR BaseClass = "textbox" OR BaseClass = "checkbox"
 DO CASE 
   CASE BaseClass = "grid"
      REPLACE Class WITH "mygrid",;
              ClassLoc WITH '..\class\mygrid.vcx',;
              Properties WITH STRTRAN(Properties ,'Column',"Mycolumn")
      REPLACE Properties WITH STRTRAN(Properties ,'MycolumnCount',"ColumnCount")

      lnOccurs = OCCURS('HeaderClassLibrary',Properties)
      FOR lnI= 1  TO lnOccurs
         lnPos = AT('HeaderClassLibrary',Properties)
         lnEndPos = lnPos +  34 
         DO WHILE SUBSTR(Properties,lnPos, 1 )#"M" &&Mycolumn óæå
            lnPos = LnPos- 1 
         ENDDO
         REPLACE Properties WITH STUFF(Properties,lnPos,lnEndPos-lnPos+ 1 ,'')
      ENDFOR
      
      lnOccurs = OCCURS('HeaderClass = ',Properties)
      FOR lnI= 1  TO lnOccurs
         lnPos = AT('HeaderClass = ',Properties)
         lnEndPos = lnPos +  25 
         DO WHILE SUBSTR(Properties,lnPos, 1 )#"M" &&Mycolumn óæå
            lnPos = LnPos- 1 
         ENDDO
         REPLACE Properties WITH STUFF(Properties,lnPos,lnEndPos-lnPos+ 1 ,'')
      ENDFOR

   CASE BaseClass = "header"
      REPLACE Class WITH "myheader", objname WITH "Myheader1",;
              parent WITH STRTRAN(parent,'Column',"Mycolumn"),;
              Properties WITH STRTRAN(Properties ,'Column',"Mycolumn")
      REPLACE Properties WITH STRTRAN(Properties ,'MycolumnCount',"ColumnCount")

   OTHERWISE 
      REPLACE parent WITH STRTRAN(parent,'Column',"Mycolumn")
   ENDCASE
ENDSCAN 
   USE

   ENDSCAN
   
   MESSAGEBOX("Completed", 64 )
ELSE
   MESSAGEBOX("Forms (.sct/.scx) not found", 64 )
   
ENDIF