change filename after editing image

Diet
Diet
in Image-Pro Automation (Macros, Apps, Reports)
Hi,
I struggle to find a way how to change a file name from "xyz" to "xyz_corrected".
I load image "original", then apply a 2d filter creating a new image.

The .name function allows me to define a string as the new file name, however I delete the original name.... while I actually would like to add the string "_corrected" to the end of the original file name.
.Name = "low_pass"

Best Answer

  • YuriG
    YuriG
    Answer ✓
    Hi Diet,

    You can use doc1.FileName property to get the full file name of the original file and the System.IO function to get the name without extension, like this:

        Sub PrintDocName
        Dim doc1 As IMcDocument=ThisApplication.ActiveDocument
        Dim oldName As String=System.IO.Path.GetFileNameWithoutExtension(doc1.FileName)
        Debug.Print(oldName)
    End Sub

    Yuri

Answers

  • Diet
    Diet
    I found a way using the below, however it calls the "orignal" name with the file type... so the result is "original_jpg_low pass". This works for me... but would there be any other function than doc1.name that only yields the name without file type (jpg)?

    Thanks a lot.
    Dim title1 As String

[...]

With Adjust.ImageCommands.Duplicate(correct_)
            title1 = doc1.name + " low pass"
            .Name = title1

  • mbatchelor
    mbatchelor
    2019-08-15-083714

    Diet --

    Below is a section of CODE from one of the APPS that I have written. 

    I believe if you review this and combine the information within with the information you and YURI have provided, you will have the solution to your challenge.

    I hope this information is helpful.

    -- Matt

    -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

                    'Find the extension on the image name
                    Dim MyIndex1 As Integer = _
                        InStrRev(Trim(textBox_FullExperimentLogFileName.text), ".")

                    'Build the full name for the txt file
                    Dim MyFullFileNameTifFile As String

                    'IF THE CURRENT WELL NAME IS NOT BLANK
                    If _
                        ( _
                        Trim(textBox_CurrentWellName.text) <> "" _
                        ) _
                        Then

                            'USE THE NAME OF THE CURRENT WELL IN THE NAME
                            MyFullFileNameTifFile = _
                                Left(Trim(textBox_FullExperimentLogFileName.text), MyIndex1 - 1) & _
                                " -- " & _
                                AlcesNow () & _
                                " -- " & _
                                "WELL_" & _
                                textBox_CurrentWellName.text & _
                                ".tif"

                        Else

                            'USE 000 IN THE NAME
                            MyFullFileNameTifFile = _
                                Left(Trim(textBox_FullExperimentLogFileName.text), MyIndex1 - 1) & _
                                " -- " & _
                                AlcesNow () & _
                                " -- " & _
                                "WELL_" & _
                                "000" & _
                                ".tif"

                        End If

                    'Save the active image in the appropriate TIF FILE
                    With Application.DocumentCommands.SaveAs(Nothing)
                        .FileName = _
                            MyFullFileNameTifFile
                        .Run(image2)
                    End With

Categories