VB.NETのバージョン管理で、実行ファイルのフォルダ内のファイル名が固定ではない場合の取得方法を教えてください。

Question

表題の件で困っているところが下記のコードになります。
正規表現を使えばできるのかなと思っています。

        Dim test1 As String = System.IO.Path.GetFileName(System.IO.Directory.GetCurrentDirectory + "test_v" + "^[0-9][.0-9]$" + ".xlsx")
        Console.WriteLine(test1)

結果
test_v^[0-9][.0-9]$.xlsx

test1の文字列に、
実行ファイルが格納されているファイルパスを取得し、
その格納ファイル内の「test_v1.01.xlsx」のようなファイル名に直接バージョン管理をしている際の
このファイルパスの取得方法があれば、教えてください。

System.IO.Directory.GetCurrentDirectory　: exeファイルが格納されているフォルダパスを取得
System.IO.Path.GetFileName("A.xlsx") : "A.xlsx"ファイル名と拡張子のパスを取得

上記のv_2.00など、ファイル名が変更する場合、
"^[0-9][.0-9]$"このような正規表現方法で、実現できないかと考えています。

ただ、現在では、
結果にある通り、正規表現が使えていない？かなと思っています。

やりたいこととしては、
今後v_1.05でもv3.03でもv5.00でも好きなヴァージョでのファイル名を記載しても、
そのファイルのパスを取得することです。

よろしくお願いいたします

Answer 1

前提として、
・バージョン番号は数字のみで、メジャー・マイナーのみが設定されている。
（「v○.○○」の形式）
・バージョン番号は、メジャー・マイナー番号ともに1個以上の数字である。
（v10.01等も考慮して）
・対象フォルダーには必ず「test_v○.○○.xlsx」の形式のファイルが存在する。
・対象フォルダー内の「test_v○.○○.xlsx」名ファイルは1つである。
（仮に複数あった場合であってもどれか一つが抽出される。）

の条件であれば、以下の方法で、対象フォルダ内の「test_v○.○○.xlsx」のファイル名を取得できます。

１．対象フォルダ内の「test_v*.xlsx」に該当するファイルを検索する。
２．上記１．の結果の中で、「test_v○.○○.xlsx」の形式にマッチするファイルを選択する

そのコードは、例えば以下の通りとなります。
≪補足≫
RegEx.Matchの第3引数を追加して大文字・小文字を無視するようにしました。
（ファイル名の大文字・小文字はWindows側では区別しないため）

Imports System.IO
Imports System.Text.RegularExpressions
'↑それぞれDirectoryクラスとRegexクラスの名前空間です。

'（クラス定義は省略）

    Private Function GetVerExcelFileName() As String
        Dim verFile As String = Nothing
        For Each f As String In Directory.GetFiles(System.AppDomain.CurrentDomain.BaseDirectory(), "test_v*.xlsx")
            If Regex.IsMatch(Path.GetFileName(f), "test_v[0-9]+.[0-9]+.xlsx", RegexOptions.IgnoreCase) Then
                Return f
            End If
        Next

        Return Nothing

        'Linqを使って1行で書くとこんな感じ（.Netのバージョンによって書き方が変わるかも知れない）
        'Return (From f As String In Directory.GetFiles(System.AppDomain.CurrentDomain.BaseDirectory(), "test_v*.xlsx") _
        '        Where Regex.IsMatch(Path.GetFileName(f), "test_v[0-9]+.[0-9]+.xlsx")).FirstOrDefault
    End Function

なお、exeのあるパスを取得する際にDirectory.GetCurrentDirectory()を使わなかったのは、作業フォルダーの変更があると、これがexeのあるパスを指さない場合があるためです。

Comments

[rara]

ありがとうございます！

すごく勉強になりました。
頂きました回答で、ちゃんと動くこともできました＾＾
本当にありがとうございます！

Answer 2

dim path as string = IO.Path.Combine(Application.StartupPath,"test_v[0-9][.0-9].xlsx")
dim m as match = System.Text.RegularExpressions.Regex.Match (path)
Console.WriteLine(m.value)

該当するファイルが複数存在する場合など、色々考慮していませんが。

Comments

[rara]

ありがとうございます。

こちらも試してみました。
色々と方法があるんですね。
この方法でもできそうと思ってやってみました。
該当するファイルは複数ある場合ではないので、こちらもすごくいいと思って高評価させていただきました＾＾
ありがとうございます。

Answer 3

C#のコード例になってしまいますが、こんな感じでいけると思います。
Linqを使って、正規表現で一致するファイル名を、test1の変数に格納しています。
また、正規表現が一部謝っていましたので、一部修正しました。

using System.Linq;
using System.IO;
using System.Text.RegularExpressions;

var test1 = Directory.GetFiles(Directory.GetCurrentDirectory())
             .Select(p => Path.GetFileName(p))
             .FirstOrDefault(f => Regex.IsMatch(f, "test_v[0-9]\.[0-9]+\.xlsx"));

Comments

[rara]

C#も表現が似ているので、すごく助かりました。
ありがとうございます。