Export MBVA into text files

Carl Stanton — Tue, 15 Feb 2022 16:48:44 GMT

I am attempting to export my MVBA projects as text files. I was able to get the .bas, .cls, and .frm files to export, but I am struggling with how to make the .frx file text, and how to export the project references. (Declaring Dim oRef as Reference throws a user-defined type not defined error) I used this article as a reference: https://communities.bentley.com/products/microstation/w/microstation__wiki/2889/2889

Full code here:

Public oComp As Object
Public index As Integer
Public filePath As String
Public fileName As String
Public fullfileName As String
Public fsoOutputFile As TextStream



Public Sub Finish()
    Dim projName As String
    Dim suffix As String
    Dim filetype As String
    Dim oRef As Reference
    
    filePath = "U:\Carl_Stanton\microstation_vbas"
    
    Set oVBE = Application.VBE
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    For Each oProject In oVBE.VBProjects
        projName = oProject.Name
        If doesFolderExist(filePath & "\" & oProject.Name) = False Then
            MkDir (filePath & "\" & projName)
        End If
       
        Call SetOutputFile(filePath & "\" & projName, projName & "_refs.txt")
        
        Set refsFile = objFSO.OpenTextFile(fullfileName, ForWriting, True)
        
        For Each oRef In oProject.References
        
                refsFile.WriteLine (oRef.FullPath)
            Next
        
        For Each oComp In oProject.VBComponents
                filetype = oComp.Type

                Select Case oComp.Type
                        Case "1"
                            suffix = ".bas"
                        Case "2"
                            suffix = ".cls"
                        Case "3"
                            suffix = ".frm"

                End Select
                Call SetOutputFile(filePath, oComp.Name & suffix)
                fileName = filePath & "\" & projName & "\" & oComp.Name & suffix
                oComp.Export (fileName)
                
            Next
            
        index = 1
    Next
    MsgBox ("extract complete")

        
End Sub

Public Sub Start()
    UserForm1.Show
End Sub

Public Function doesFolderExist(folderPath) As Boolean

doesFolderExist = Dir(folderPath, vbDirectory) <> ""

End Function

Public Sub SetOutputFile(file_path As String, file_name As String)
    fullfileName = file_path & "\" & file_name
    If objFSO.FileExists(fullfileName) Then
        'you delete if you find it'
        objFSO.DeleteFile fullfileName, True
    End If
End Sub

Tags do not hide when created with VBA in CONNECT Edition

Carl Stanton — Tue, 02 Nov 2021 13:57:54 GMT

I am trying to migrate from Microstation V8i to CONNECT Edition, and when I run my custom VBA blocks elements are drawn with all tags visible, even though both the tag configuration settings and t he VBA code both have the tags set to hidden. Is this a bug? Is there another setting somewhere else I am missing?

Ask A Question I

Tue, 02 Nov 2021 07:54:33 GMT

Ask a question in a forum.

Carl Stanton's Activities

Export MBVA into text files

Tags do not hide when created with VBA in CONNECT Edition

Ask A Question I