让VBA从下到上追加txt

Question

我想向后附加一个文本 (.txt) 文件，这可能吗？

我所说的向后是指从下到上书写文本，而不是从上到下标准书写。

为什么是因为我要编译的txt文件被读取，以便列表顶部的项目优先于底部的项目。

Answer 1

每当您想在顶部插入数据，然后删除/重命名旧文件并将新文件重命名为新文件时，除了创建一个新文件之外，我想不出任何其他方法。

Answer 2

不确定您的具体要求，但 VBA 中最简单的方法是
1. 添加对 Microsoft Scripting Runtime 的引用。

Public Sub Reverse()
    Dim lReverseString As String
    Dim lFSO As FileSystemObject
    Set lFSO = New Scripting.FileSystemObject
    With lFSO.OpenTextFile("SourceName", ForReading)
        While Not .AtEndOfStream
            ' Note if you are looking to read a line at at a time use .ReadLine Instead of .Read
            lReverseString = .Read & lReverseString
        Wend
    End With
    ' now you have a string in reverse
    With lFSO.CreateTextFile("TargetName", True, False)
        .Write lReverseString
        .Close
    End With

End Sub

这是一个基本的表格，应该可以帮助您前进。

Answer 3

数组怎么样？它不适合非常大的文件：

Dim fs As Object
Dim ts As Object
Dim AllTextArray As Variant

''Late binding, no reference required
Set fs = CreateObject("Scripting.FileSystemObject")
''ForReading=1
Set ts = fs.OpenTextFile("c:\docs\BookX.csv", 1)
AllTextArray = Split(ts.ReadAll, vbCrLf)

For i = UBound(AllTextArray) To 0 Step -1
    Debug.Print AllTextArray(i)
Next

Answer 4

如果只是按照与显示顺序相反的顺序编写每个段落或句子：

Sub Test()
    Dim currentDocument As Document
    Set currentDocument = ActiveDocument

    Dim sourceDocument As Document
    Set sourceDocument = Documents.Add("c:\words.txt")

    Dim i As Long
    For i = sourceDocument.Paragraphs.Count To 1 Step -1
        currentDocument.Range.InsertAfter sourceDocument.Paragraphs(i).Range.Text
        DoEvents
    Next

    sourceDocument.Close wdDoNotSaveChanges
End Sub