main.prg

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

set classlib to
set classlib to ..\..\libs\citerators.vcx
set classlib to ..\..\libs\ccontrls.vcx additive
set classlib to ..\..\libs\cutils.vcx additive

set proc to
set proc to ..\..\progs\utility.prg additive

loProjectIterator = CREATEOBJ( 'cProjectIterator', 'TestDocs' )
loVisitor = CREATEOBJ('cCodebookDocumentationVisitor' )
loVisitor.Visit( loProjectIterator )
loVisitor.Release()
loProjectIterator.Release()

SET MEMOWIDTH TO 1000

SCAN

	REPLACE nloc with MEMLINES( mMethCode)-3

	DO CASE
	CASE 1 <= nLoc AND nLoc <= 5
		REPLACE nEstimate WITH 5
	CASE 6 <= nLoc AND nLoc <= 15
		REPLACE nEstimate WITH 15
	CASE 16 <= nLoc AND nLoc <= 25
		REPLACE nEstimate WITH 20
	CASE 26 <= nLoc AND nLoc <= 35
		REPLACE nEstimate WITH 30
	CASE 36 <= nLoc AND nLoc <= 50
		REPLACE nEstimate WITH 45
	CASE nLoc > 50
		REPLACE nEstimate WITH 60
	ENDCASE	

ENDSCAN

DELETE ALL FOR nLOC = 0

WAIT WINDOW "Removing records with no method code  ... " NOWAIT
PACK

WAIT WINDOW "Packing memo fields ... " NOWAIT
PACK MEMO

WAIT WINDOW " ... FINISHED !!!" TIMEOUT 2

RETURN .T.


*==================
FUNCTION TrimPath()
*==================
	PARAMETERS filename, trim_ext, plattype
	PRIVATE at_pos

	IF EMPTY( m.filename)
	  RETURN ""
	ENDIF
	m.at_pos=AT( ":", m.filename)
	IF m.at_pos>0
	  m.filename=SUBSTR( m.filename, m.at_pos+ 1)
	ENDIF
	IF m.trim_ext
	  m.filename=trimext( m.filename)
	ENDIF
	IF m.plattype
	  m.filename=IIF( _DOS.OR._UNIX, UPPER( m.filename), LOWER( m.filename))
	ENDIF
	m.filename=ALLTRIM( SUBSTR( m.filename, AT( "\", m.filename, ;
	           MAX( OCCURS( "\", m.filename), 1))+ 1))
	DO WHILE LEFT( m.filename, 1)=="."
	  m.filename=ALLTRIM( SUBSTR( m.filename, 2))
	ENDDO
	DO WHILE RIGHT( m.filename, 1)=="."
	  m.filename=ALLTRIM( LEFT( m.filename, LEN( m.filename)- 1))
	ENDDO
	RETURN m.filename
ENDFUNC

*=========================
FUNCTION AddBs( tcString )
*=========================
LOCAL lcString

lcString= tcString

IF RIGHT( lcString,1)<> "\"
  lcString= lcString+ "\"
ENDIF

RETURN lcString