VB.NET实现按文件65-67列特征插入新行的技术求助

核心思路 #

要实现需求，不能直接在遍历原文件时插入行（文件流只读且插入会打乱后续行位置），正确流程是：

• 先把文件所有行加载到内存列表，方便动态插入操作
• 跟踪上一行的65-67列子串，逐行对比当前行对应列内容
• 发现差异时，在当前行的上方两行位置插入指定字符串（处理边界情况避免索引越界）
• 最后将修改后的列表写回原文件

完整代码实现 #

Protected Sub UploadFile(sender As Object, e As EventArgs)
    ' 先判断是否选择了文件
    If Not FileUpload1.HasFile Then
        ' 可添加提示逻辑，比如用Label显示"请选择文件"
        Return
    End If

    Dim fileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
    Dim filePath As String = Server.MapPath("~/Files/") & fileName
    FileUpload1.SaveAs(filePath)

    ' 将文件所有行加载到列表，便于插入操作
    Dim lines As New List(Of String)(IO.File.ReadAllLines(filePath))
    Dim previousSubstring As String = String.Empty
    Dim insertText As String = "你的指定字符串" ' 替换为实际需要插入的内容

    ' 从后往前遍历，避免插入行影响后续索引
    For i As Integer = lines.Count - 1 To 0 Step -1
        Dim currentLine As String = lines(i)
        
        ' 检查行长度是否足够67列，防止越界错误
        If currentLine.Length >= 67 Then
            ' 获取65-67列的字符（注意VB.NET字符串索引从0开始，65列对应索引64，取3个字符）
            Dim currentSubstring As String = currentLine.Substring(64, 3)
            
            ' 非第一行时，对比与上一行的子串差异
            If i > 0 AndAlso currentSubstring <> previousSubstring Then
                ' 计算插入位置：当前行上方两行，若位置小于0则插在文件开头
                Dim insertIndex As Integer = i - 2
                If insertIndex < 0 Then insertIndex = 0
                lines.Insert(insertIndex, insertText)
            End If
            
            ' 更新上一行的子串记录
            previousSubstring = currentSubstring
        Else
            ' 行长度不足时，重置上一子串（可根据实际需求调整逻辑）
            previousSubstring = String.Empty
        End If
    Next

    ' 将修改后的内容写回文件
    IO.File.WriteAllLines(filePath, lines)
End Sub

关键细节说明 #

• 索引计算：Substring(64, 3)是因为VB.NET字符串索引从0开始，65列对应索引64，取3个字符正好覆盖65-67列
• 从后往前遍历：插入行会增加列表长度，反向遍历不会因为前面的插入操作打乱后续行的索引
• 边界处理：当当前行是前两行时（索引0或1），插入位置自动修正为文件开头，避免索引越界
• 异常防护：增加了文件选择判断、行长度检查，防止空文件或短行导致的运行错误

内容的提问来源于stack exchange，提问作者Martha