>*--Name of dbc to scan >lcdbc = 'Tracy.dbc' && <--Change this >*--Comment Value to look for >lcComment = 'mycomment' && <--Change this > > >CLOSE ALL >IF !FILE(lcdbc) > RETURN >ENDIF >USE (lcdbc) ALIAS mydbc > >CREATE CURSOR mycursor (cfieldname c(50), cclass c(100), cclasslib c(150)) >CLEAR >select mydbc >SCAN > IF !AT(lcComment,mydbc.property) > 0 > LOOP > ENDIF > lxfound1 = .F. > lnpos1 = 0 > lnpos2 = 0 > lxfound2 = .F. > lxpos1done = .F. > lxpos2done = .F. > lcvalue1 = '' > lcvalue2 = '' > lcfieldname = '' > lcValues = mydbc.property > > FOR i = 1 TO LEN(lcvalues) > IF !lxfound1 > lnpos1 = AT(CHR(0)+CHR(0)+CHR(0)+CHR(1)+CHR(0)+CHR(50),lcvalues) > IF lnpos1 > 0 > lxfound1 = .T. > ENDIF > ENDIF > IF !lxfound2 > lnpos2 = AT(CHR(0)+CHR(0)+CHR(0)+CHR(1)+CHR(0)+CHR(51),lcvalues) > IF lnpos2 > 0 > lxfound2 = .T. > ENDIF > ENDIF > IF !lxfound1 OR !lxfound2 > EXIT > ENDIF > lcfieldname = ALLTRIM(mydbc.objectname) > IF !lxpos1done > i = lnpos1+6 > lxpos1done = .T. > ENDIF > IF ASC(SUBSTR(lcvalues,i,1)) = 0 > IF !lxpos2done > i = lnpos2+6 > lxpos2done = .T. > ELSE > EXIT > ENDIF > ENDIF > IF !lxpos2done > lcvalue1 = lcvalue1 + SUBSTR(lcvalues,i,1) > ELSE > lcvalue2 = lcvalue2 + SUBSTR(lcvalues,i,1) > ENDIF > ENDFOR > insert INTO mycursor (cfieldname, cclass, cclasslib) VALUES (lcfieldname, lcvalue1, lcvalue2) >ENDSCAN >select mycursor >browse > >