TCL script to read OLB library file and generate list of the symbols into text file

Question

Hi 
 is it possible to make TCL script that will read each OLB library file and generate a list of the symbols (just the name of symbol) into a text files? 
 thank you

CadAP · Accepted Answer

Hi Fseyer, 
 
 Please use below code make sure below is set before sourcing the below code. 
 After sourcing the code file Symbol.txt will create at library location. 
 
 set dirName {C:/Users/Downloads/lib_doc} ; # provide your library location. 
 
 set lSession $::DboSession_s_pDboSession DboSession -this $lSession set lStatus [DboState] set lNullObj NULL namespace eval readOlb {} { # variable dir [file normalize [info script]] set dirName {C:/Users/Downloads/lib_doc} # variable dirName [file dirname $dir] catch { variable fileData [glob -directory $dirName *.olb] } filereaderror } 
 set lSymbollist {} set lFile [open "$readOlb::dirName/Symbol.txt" a+] foreach olb $readOlb::fileData { puts $lFile $olb set libname [DboTclHelper_sMakeCString $olb] set lDboLibrary [DboSession_GetLib $lSession $libname $lStatus] set lib1 [$lDboLibrary GetContainingLib] set partName [DboTclHelper_sMakeCString ] set pkgIter [$lDboLibrary NewPackagesIter $lStatus] set pPkg [$pkgIter NextPackage $lStatus] set lNullObj NULL while {$pPkg!=$lNullObj} { $pPkg GetName $partName # puts "partName : [DboTclHelper_sGetConstCharPtr $partName]" puts $lFile "PartName : [DboTclHelper_sGetConstCharPtr $partName]" set pPkg [$pkgIter NextPackage $lStatus] } # puts $lDboLibrary delete_DboLibPackagesIter $pkgIter } 
 close $lFile 
 $lSession RemoveLib $lDboLibrary 
 
 Hope this helps

Stats

TCL script to read OLB library file and generate list of the symbols into text file

Community Guidelines