如何在TXT文件顶部追加最新内容？VB代码优化需求

可以用你提到的数组复制移位思路来实现，核心是把文件现有内容读入数组，将新内容放在数组头部，再把更新后的数组写回文件。具体代码如下：

Dim path As String = "C:\Users\Desktop\Test.txt"
' 准备要添加的新条目（注意：把这里的myArray替换成你实际使用的数组变量）
Dim newEntry As String = myArray(0) & Now & Environment.NewLine

Dim existingLines As String() = {}
' 如果文件已存在，读取所有现有内容到数组
If File.Exists(path) Then
    existingLines = File.ReadAllLines(path, Encoding.UTF8)
End If

' 创建新数组，长度比原数组多1（用来放新条目）
Dim updatedLines(existingLines.Length) As String
' 把新条目放在数组的第一个位置
updatedLines(0) = newEntry
' 用Array.Copy实现类似移位的逻辑：把原数组内容复制到新数组的第1位及以后
Array.Copy(existingLines, 0, updatedLines, 1, existingLines.Length)

' 将调整后的数组内容覆盖写入文件
File.WriteAllLines(path, updatedLines, Encoding.UTF8)

' 验证输出（可选）
Dim readText As String() = File.ReadAllLines(path, Encoding.UTF8)
For Each s As String In readText
    Console.WriteLine(s)
Next

关键逻辑说明 #

• 先把文件现有内容读入existingLines数组，对应你提到的Array1
• 创建长度+1的新数组updatedLines，把新条目放在索引0的位置
• 用Array.Copy将原数组内容从索引0开始，复制到新数组的索引1位置，和你之前的数组移位逻辑完全匹配
• 最后用File.WriteAllLines把新数组覆盖写入文件，完成新条目置顶

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