CATIA Barcode Generator

VBA macro generates automatically barcode in CATIA drawing

An example of a piece of code:

        

        (...)


        Public fileName As String, textData As String, textRow As String, fileNo As Integer
        Public charPath, ster, b0, b1, b2, b3, b4, b5, b6, b7, b8, b9 As String
        
        
        Function ExtractNum(Phrase As String) As Double
        Dim Length_of_String As Integer
        Dim Current_Pos As Integer
        Dim Temp As String
        Length_of_String = Len(Phrase)
        Temp = ""
        For Current_Pos = 1 To Length_of_String
        If (Mid(Phrase, Current_Pos, 1) = "-") Then
          Temp = Temp & Mid(Phrase, Current_Pos, 1)
        End If
        If (Mid(Phrase, Current_Pos, 1) = ".") Then
         Temp = Temp & Mid(Phrase, Current_Pos, 1)
        End If
        If (IsNumeric(Mid(Phrase, Current_Pos, 1))) = True Then
            Temp = Temp & Mid(Phrase, Current_Pos, 1)
         End If
        Next Current_Pos
        If Len(Temp) = 0 Then
            ExtractNum = 0
        Else
            ExtractNum = CDbl(Temp)
        End If
        End Function
   
        (...)