foxpro.catalyst «

FoxPro workBLOGS and MORE… . . .

OK… the rain stopped.

Now let’s do some GeSHi TESTING.

procedure UTILS_GETDatabaseIndexes()

    set procedure to UTILITIES
        
    select &cFilerDatabase
    nTagCount = tagcount()
    if nTagCount > 0                
        dimension aDesc(nTagCount)
        for nEXB = 1 to nTagCount    
            cSRK = 'cIndex' + NUMTOSTR(nEXB, 2)
            aDesc(nEXB) = &cSRK
        endfor
            
        dimension aIndex(nTagCount)                    
        for nCount = 1 to tagcount()
           if !empty(tag(nCount))
               cIndexDesc = tag(nCount) + ' (' + ; 
               aDesc(nCount) + ')'
               store cIndexDesc to aIndex(nCount)
           else           
               exit              
           endif           
        endfor                
            
        .cmbIndex.rowsourcetype = 5
        .cmbIndex.rowsource = 'aIndex'
        .cmbIndex.value = aIndex(nIndexSortIDNO)
    endif

EndProc

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