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

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

Hi CadAP

Thank you for the reply.
i'm not sure but i getting a return of can't read "readOlb::dirName": no such variable

Hi Fseyer,

Can you please let me know how you are ruining the above code and also share the screen shot from command promt.?

Thanks

Hi CadAP

i just copied the code and save as "Olb_exportTxt.tcl"
set dirName to directory to where my .olb files
then type in capture cmd window > source {C:/SPB_Data/TCL/Olb_exportTxt.tcl}

Hi FSeyer,

Please share the tcl code you are using, My end same code working fine.

Thanks