GeSHI.TEST

Filed Under (THIS.site.matters, Visual FoxPro) by WildFire on 16-11-2007

OK... the rain stopped.

Now let's do some GeSHi TESTING.

  1. procedure UTILS_GETDatabaseIndexes()
  2.  
  3. set procedure to UTILITIES
  4.  
  5. select &cFilerDatabase
  6. nTagCount = tagcount()
  7. if nTagCount > 0
  8. dimension aDesc(nTagCount)
  9. for nEXB = 1 to nTagCount
  10. cSRK = 'cIndex' + NUMTOSTR(nEXB, 2)
  11. aDesc(nEXB) = &cSRK
  12. endfor
  13.  
  14. dimension aIndex(nTagCount)
  15. for nCount = 1 to tagcount()
  16. if !empty(tag(nCount))
  17. cIndexDesc = tag(nCount) + ' (' + ;
  18. aDesc(nCount) + ')'
  19. store cIndexDesc to aIndex(nCount)
  20. else
  21. exit
  22. endif
  23. endfor
  24.  
  25. .cmbIndex.rowsourcetype = 5
  26. .cmbIndex.rowsource = 'aIndex'
  27. .cmbIndex.value = aIndex(nIndexSortIDNO)
  28. endif
  29.  
  30. EndProc

Related links:
» GeSHi / Generic Syntax Highlighter
» Wongoo Lee's WordPress CodeHighlighter Plug-in