close data m.outputfile = "c:\tempwork\code_for_atl\ediantic.html" m.formname = 'EDI Anticipation' m.nl = chr(13) + chr(10) use "N:\tyler\QBEF01\FORMS\ediantic.scx" in 0 alias db m.html_top = "" + m.formname + "" + m.nl + ; "" + m.nl + ; "" + m.nl + ; "

" + m.formname + "

" + m.nl + ; "

Objects and Methods

" + m.nl + ; "
    " + m.nl m.html_bot = "" sele db scan for ! empty(Methods) m.processed = .F. ? objname if Baseclass = "commandbutton" m.processed = .T. m.html_top = m.html_top + "
  1. Button: " + objname m.name = GetProperty('Caption') if ! empty(m.name) m.html_top = m.html_top + " – Caption: " + ; HtmlSafe(m.name) endif m.html_top = m.html_top + m.nl ListMethods() endif if baseclass = 'form' m.processed = .T. m.html_top = m.html_top + "
  2. Form: " + objname * m.name = GetProperty('Caption') * if ! empty(m.name) * m.html_top = m.html_top + " – Caption: " + m.name * endif m.html_top = m.html_top + m.nl ListMethods() endif if type('m.name') = 'L' and m.name = .F. ? "!!!!!!!!!!!!!! unknown class: " + allt(baseclass) endif endscan m.html_top = m.html_top + "
" + m.nl if file(m.outputfile) delete file (m.outputfile) endif m.fp = fcreate(m.outputfile) if m.fp < 0 ? "Unable to create output file" else fwrite(m.fp, m.html_top + m.html_bot) fclose(m.fp) endif func ListMethods m.meths = Methods m.html_top = m.html_top + "
    " + m.nl do while len(m.meths) > 0 m.idx = at(m.nl + "ENDPROC" + m.nl, m.meths) + 11 m.meth_a = left(m.meths, m.idx - 1) m.meths = right(m.meths, len(m.meths) - m.idx + 1) m.procname = substr(m.meth_a, 11, at(m.nl, m.meth_a) - 11) m.html_top = m.html_top + "
  1. " + HtmlSafe(m.procname) + "" + m.nl m.html_bot = m.html_bot + "
    " + m.nl + ; "

    " + objname + "." + m.procname + "

    " + m.nl + ; "
    " + ; HtmlSafeWS(m.meth_a) + "
    " + m.nl enddo m.html_top = m.html_top + "
" + m.nl endfunc func GetProperty lparam m.what m.prop = properties do while len(m.prop) > 0 m.prop_a = left(m.prop, at(chr(13), m.prop) - 1) m.prop = right(m.prop, len(m.prop) - at(chr(13), m.prop) - 1) if m.prop_a = m.what + " = " return right(m.prop_a, len(m.prop_a) - len(m.what) - 3) endif enddo return "" endfunc func HtmlSafe lparam m.st m.st = strtran(m.st, "&", "&") m.st = strtran(m.st, "<", "<") m.st = strtran(m.st, ">", ">") return m.st endfunc func HtmlSafeWS lparam m.st m.st = HtmlSafe(m.st) m.st = strtran(m.st, m.nl, "
") m.st = strtran(m.st, chr(9), " ") m.st = strtran(m.st, " ", " ") return m.st endfunc