文本文件倒序写入文本

skiss10086

附件有两个文本，实际有多个，文本中内容为
1
2
3
6
4

希望使用vba重新在文本中调整为
4
6
3
2
1

砂海

Sub cs()
    Dim arr(1 To 10000, 1 To 1), i&, 路径$, 文件名$
   
    路径$ = ThisWorkbook.Path & "\"
    文件名 = "文本01（原始）.txt"
   
    Open 路径$ & 文件名$ For Input As 1
        Do While Not EOF(1)
            i& = i& + 1
            Line Input #1, arr(i, 1)
        Loop
    Close #1
   
    Open 路径$ & Replace(文件名$, "原始", "倒序2") For Output As 1
        Print #1, arr(1, 1)
        For j& = i& To 2 Step -1
            Print #1, arr(j&, 1)
        Next
    Close #1
   
End Sub

砂海

数量 不多的话 , 直接在表格中 加个辅助列 , 排序就好

roserice

如果数据很多的话，PQ里有个专门的倒序函数

skiss10086

砂海 发表于 2022-9-1 19:50
Sub cs()
    Dim arr(1 To 10000, 1 To 1), i&, 路径$, 文件名$
   

感谢，结果就是这样的，但是现在只能改一个文本，可以改很多文本吗，需要怎么处理。

skiss10086

砂海 发表于 2022-9-1 20:07
数量 不多的话 , 直接在表格中 加个辅助列 , 排序就好

目前就是使用辅助列的方法，但是文本太多就有点头痛了。

skiss10086

roserice 发表于 2022-9-1 22:32
如果数据很多的话，PQ里有个专门的倒序函数

2010的版本，还没有PQ这个功能。目前是使用辅助列排序来完成，但是文本太多了。

砂海

外面 套个 文件名 的循环

skiss10086

砂海 发表于 2022-9-2 10:43
外面 套个 文件名 的循环

试试看，自己不一定能行。

skiss10086

砂海 发表于 2022-9-2 10:43
外面 套个 文件名 的循环

我自己弄，总是改变最后一个文本，且名称总是错误，老师能再帮忙写一下吗。