Hi Johnny,

> If I only can read all the text in one module at once, that would do
> it just fine. If there is a simple one-liner that reads just one
> function or subroutine, that's a bonus, and if I can read a dialogue
> that's even better…

Have you tried:

Sub Test()

        Dim oLibs as Object
        Dim oLib as Object
        Dim sLib as String

        Dim mTmp()
        Dim i as Integer
        Dim s as String
        
        sLib = "Standard"
        oLibs = GlobalScope.BasicLibraries
        If Not oLibs.hasByName(sLib) Then
                MsgBox "Error reading " & sLib
        EndIf

        oLib = oLibs.getByName(sLib)
        
        mTmp() = oLib.getElementNames()
        
        For i = 0 To uBound(mTmp())
                s = s + mTmp(i) & Chr(13)
        Next i  
        MsgBox s

        MsgBox oLib.getByName(mTmp(0))
        
End Sub

Regards
Oliver

-- 

GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45

Attachment: signature.asc
Description: OpenPGP digital signature

Reply via email to