[RESOLVED] Assembly Version Formatting

[RussellBishopSr]

I have a quick question about the Assembly Version Formatting... (referring to lblRev.Text)

I'm putting together an about screen that has the App information like the version, up time, date, etc.

I would like for it to format all of the numbers I include (including zeros before the number).

Here's my code.

' Add any initialization after the InitializeComponent() call.
        Dim dt As Date = File.GetLastWriteTime(Application.ExecutablePath)
        lblLastdate.Text &= dt.ToString("MMM d, yyyy h:mm tt")

        lblRev.Text &= My.Application.Info.Version.ToString

        lblLastBoot.Text &= started.ToString("MMM d, yyyy h:mm:ss tt")
        lblCopyRight.Text &= My.Application.Info.Copyright

My Assembly Version Information is 2.2.2023.0309 (Version 2.2: YYYY:MMDD) is how I am naming the version so that I can keep track of things for my personal info.
I've included an image of the settings below.



But when it formats it, it removes the zero before the 3 (2.2.2023.309). I know it's not a huge deal, but if I can keep the zero, I'd prefer it. Is there any way to format this so that it keeps the zero or does Visual Studio just remove it?

Thanks for anyone who can help me with this.

[Niya]

You can create a function to do this yourself:-

    Private Function FormatVersion(ByVal version As String) As String

        Return String.Join(".", From s In version.Split(".").Select(
                                    Function(value, index)
                                        If index = 2 OrElse index = 3 Then Return value.PadLeft(4, "0"c)

                                        Return value
                                    End Function))

    End Function

Tested with this:-

Debug.WriteLine(FormatVersion("1.2.430.20"))

Produces this output:-

1.2.0430.0020

[Niya]

Here's a slightly more simplified version:-

    Private Function FormatVersion(ByVal version As String) As String

        Return String.Join(".", version.Split(".").
                           Select(Function(value, index) If(index = 2 OrElse index = 3, value.PadLeft(4, "0"c), value)))

    End Function

[jmcilhinney]

The My.Application.Info.Version property is type Version and the Major, Minor, Build and Revision properties of that are type Integer. Numbers don't have leading zeroes, so you have to add them yourself if you want your string representation to contain them, e.g.

Dim v = My.Application.Info.Version
Dim versionText = $"{v.Major}.{v.Minor}.{v.Build}.{v.Revision:0000}"

[RussellBishopSr]

The My.Application.Info.Version property is type Version and the Major, Minor, Build and Revision properties of that are type Integer. Numbers don't have leading zeroes, so you have to add them yourself if you want your string representation to contain them, e.g.

Dim v = My.Application.Info.Version
Dim versionText = $"{v.Major}.{v.Minor}.{v.Build}.{v.Revision:0000}"

jmcilhinney,

Thanks for the help! So here's my new code and it works perfectly how I wanted it to. I'm going to do some other stuff now hahaha! That was brilliant and I appreciate it very much.

Thanks to everyone else who responded as well. I love this site and everyone who takes the time to reach out and help others in need. Hopefully one day I'll get to the point where I'm helping others as well haha.

Marking this as [Resolved]

[RussellBishopSr]

You can create a function to do this yourself:-

    Private Function FormatVersion(ByVal version As String) As String

        Return String.Join(".", From s In version.Split(".").Select(
                                    Function(value, index)
                                        If index = 2 OrElse index = 3 Then Return value.PadLeft(4, "0"c)

                                        Return value
                                    End Function))

    End Function

Tested with this:-

Debug.WriteLine(FormatVersion("1.2.430.20"))

Produces this output:-

1.2.0430.0020

Not exactly what I was looking for, but thanks for reaching out. I do appreciate it.

[RussellBishopSr]

Here's a slightly more simplified version:-

    Private Function FormatVersion(ByVal version As String) As String

        Return String.Join(".", version.Split(".").
                           Select(Function(value, index) If(index = 2 OrElse index = 3, value.PadLeft(4, "0"c), value)))

    End Function

Now this may be something more practical, but jmcilhinney's response is exactly what I was looking for.

I am going to give your suggestion on this option a try as I may be able to use it for my other application where I'm doing something a bit different. Thank you so much Niya for always looking out on my posts haha you have helped me in the past a great deal!!! So I'm always looking for your replies for sure! Thanks again.

[Niya]

jmc's solution is better than mine. Use that instead

[dbasnett]

Because we did not have a versioning system and are relatively small I used this

Major - year
Minor - month
Build - day
Revision - a number or 24 hour time