RE: Using a MACRO to change specific reference file logical names

I forgot to remove the file extension, so one extra function is required:

Private Function StripLeadingNumbers(inputText As String) As String
    Dim textLength As Long
    textLength = Len(inputText)

    Dim position As Long
    For position = 1 To textLength
        If Not IsNumeric(Mid(inputText, position, 1)) Then
            Exit For
        End If
    Next

    StripLeadingNumbers = Mid(inputText, position, textLength - position + 1)
End Function

Private Function ConvertToUpperCase(inputText As String) As String
    ConvertToUpperCase = UCase(inputText)
End Function

Private Function RemoveFileExtension(inputText As String) As String
    RemoveFileExtension = Mid(inputText, 1, Len(inputText) - 4)
End Function

Public Sub ExampleStripAndConvert()
    Dim text As String
    text = "314159268MyReference.dgn"

    Dim outputText As String
    outputText = StripLeadingNumbers(text)
    outputText = RemoveFileExtension(outputText)
    outputText = ConvertToUpperCase(outputText)

    MsgBox "Striped and uppercased: " & outputText
End Sub

With regards,

  Jan