VB.Net - 使用正则表达式过滤文件名

Question

我认为我把一些简单的事情复杂化了，但我正在寻找一个 VB.Net 代码来“过滤”文件名。

场景： 我的公司在服务器上有一个文件夹，里面有超过 65,000 个文件。读取这些文件的新机器区分大小写，只接受“*.S4”文件扩展名。

因此，我需要将所有文件名转换为“*.S4”，但我希望可以选择用我指定的模式替换每个文件。

例如：

查找 > test.s4

替换 > test_1.S4

使用模式：

查找 > *.s4

替换 > *_1.S4

这是我到目前为止的代码（不起作用）：

    'Inputs:
    Dim Filename As String = "ThisIsAnExample.s4"
    Dim Find As String = "*.s4"
    Dim Replace As String = "*.S4"

    Find = Find.Replace("*", "(.*)")
    Replace = Replace.Replace("*", "(.*)")

    Dim rgxExp As New System.Text.RegularExpressions.Regex(Find)

    MsgBox(rgxExp.Replace(Filename, Replace))

我知道这是可能的，我曾经用 Javascript 写过一个类似的脚本。

Answer 1

你不能这样做吗？

  Dim input As String = "ThisIsAnExample.s4"
  Dim pattern As String = "\.s4$"
  Dim replacement As String = ".S4"
  Dim rgx As New Regex(pattern)
  Dim result As String = rgx.Replace(input, replacement)

  Console.WriteLine("Original String: {0}", input)
  Console.WriteLine("Replacement String: {0}", result)    

Answer 2

如果您想使用不带正则表达式的 c# 来执行此操作，您可以使用以下内容

    private void UppercaseExtension(string filepath)
    {
        //ensure the source file exists
        if (!File.Exists(filepath))
            return;

        //get the parts of the filepath
        string filename = Path.GetFileNameWithoutExtension(filepath);
        string extension = Path.GetExtension(filepath).ToUpperInvariant();
        string folderPath = Path.GetDirectoryName(filepath);
        try
        {
            //rename the file using the uppercase extension
            File.Move(filepath, Path.Combine(folderPath, filename + extension));
        }
        catch (Exception ex)
        {
            //failed to rename
        }
    }

如果您想限制文件的类型，您可以在方法中添加一个检查来执行此操作，或者您可以限制传递给它的文件路径。