我有一个由服务器生成的文件 - 我无法控制该文件是如何生成或格式化的。我需要检查每一行都以设定长度的字符串开头(在本例中为 21 个数字字符)。如果一行与该条件不匹配,我需要将其连接到上一行,并在读取并更正整个文件后,保存它。我正在为目录中的很多文件执行此操作。
到目前为止,我有:
Dim rgx As New Regex("^[0-9]{21}$")
Dim linesList As New List(Of String)(File.ReadAllLines(finfo.FullName))
If linesList(0).Contains("BlackBerry Messenger") Then
linesList.RemoveAt(0)
For i As Integer = 0 To linesList.Count
If Not rgx.IsMatch(i.ToString) Then
linesList.Concat(linesList(i-1))
End If
Next
End If
File.WriteAllLines(finfo.FullName, linesList.ToArray())[code]
在该代码块之前和之后有一个 for 语句来循环遍历源目录中的所有文件,它工作正常。
希望这不是太糟糕的阅读:/