regex - VB.Net 删除第三个连字符后的所有内容

Question

这是我要修改的字符串： 170-0175-00B -BEARING PLATE MACHINING.asm:2

我想保留“ 170-0175-00B ”。所以我需要删除第三个连字符以及它之后的任何内容。

Answer 1

快速解决方案

string test = "170-0175-00B-BEARING PLATE MACHINING.asm:2";
int num = 2;
int index = test.IndexOf('-');
while(index > 0 && num > 0)
{
    index = test.IndexOf('-', index+1);
    num--;
}
if(index > 0)
    test = test.Substring(0, index);

当然，如果您正在搜索最后一个连字符，那么执行起来更简单

int index = test.LastIndexOf('-');
if(index > 0)
    test = test.Substring(0, index);

Answer 2

一些LINQ呢？

Dim str As String = "170-0175-00B-BEARING PLATE MACHINING.asm:2"
MsgBox(String.Join("-"c, str.Split("-"c).Take(3)))

使用这种方法，您可以在第 N 个连字符之后取出任何内容，其中 N 很容易控制（一个 const）。

Answer 3

像这样的东西？

regex.Replace(sourcestring,"^((?:[^-]*-){2}[^-]*).*","$1",RegexOptions.Singleline))

不过，您可能不需要 Singleline 选项，具体取决于您如何使用它。

Answer 4

非常感谢这么快的回复。

这是我采取的路径：

FormatDessinName("170-0175-00B-BEARING PLATE MACHINING.asm:2")


Private Function FormatDessinName(DessinName As String)
    Dim match As Match = Regex.Match(DessinName, "[0-9]{3}-[0-9]{4}-[0-9]{2}[A-Za-z]([0-9]+)?") 'Matches 000-0000-00A(optional numbers after the last letter)
    Dim formattedName As String = ""

    If match.Success Then 'Returns true or false
        formattedName = match.Value 'Returns the actual matched value
    End If

    Return formattedName
End Function

效果很好！