类型匹配的值不能转换为字符串

Question

我目前正在尝试遍历一个包含文本文件的文件夹并阅读它们。在我阅读它们之后，我想使用正则表达式提取文件名的一部分，但是我收到了错误Value of Type Match Cannot Be Converted To String。

我尝试过使用Cstr，但这似乎不能解决我的问题。

我正在使用的代码：

 Dim fileentries As String() = Directory.GetFiles("D:\User\BackUp\Project\bin\Debug\Orders")
 For Each entry In fileentries
        Dim match As New List(Of String)
        Dim regexmatch As Match = Regex.Match(entry, "Order_\d\d-\d\d-[\d]{4}_[\d]{6}")
        match.Add(CStr(regexmatch))

    Next

这里的正则表达式部分正在工作，它似乎提取了我想要的文件名的正确部分，但特别是 match.Add(Cstr(regexmatch)) 行，我收到了我所描述的错误。

感谢您的帮助，谢谢。

Answer 1

您需要访问Match对象的.Value属性，但建议检查是否完全匹配：

Dim regexmatch As Match = Regex.Match(entry, "Order_\d\d-\d\d-\d{4}_\d{6}")
If regexmatch.Success Then
    match.Add(regexmatch.Value)
End If

见VB.NET demo：

Imports System.Collections.Generic
Imports System.Text.RegularExpressions
' ... 
Dim match As New List(Of String)()
Dim entry As String = "XXXX_Order_12-12-1234_123456_irrelevant.txt"
Dim regexmatch As Match = Regex.Match(entry, "Order_\d\d-\d\d-\d{4}_\d{6}")
If regexmatch.Success Then
    match.Add(regexmatch.Value)
End If
Console.WriteLine(match(0)) ' => Order_12-12-1234_123456

注意[\d]{4} 等于\d{4}，不需要将单个原子放入字符类中。