如何运用VBA将文本文件中的数字排序后写入新的文本文件呢？

作者：绿色风分类：时间：2022-08-17 浏览：131

楼主 0Mouse	Q：如何运用VBA将文本文件中的数字排序后写入新的文本文件呢？问题描述：原文本文件为“待排序”，将其中的数字串按其数字小大排序后，放置在新生成的文本文件“排序后”中。问题图示： A：可以分成“读-排-写”三个过程，代码如下： Sub 运用VBA将文本文件中的数字排序后写入新的文本文件() Dim sTxt$, S$, Arr, i%, j%, N& '读取 sTxt = ThisWorkbook.Path & "\待排序.txt" Open sTxt For Input As #1 '以只读方式打开文本文件 With CreateObject("Scripting.FileSystemObject") S = .opentextfile(sTxt).readall '读取文本文件的所有内容 End With Close #1 '关闭文本文件 Arr = Split(S, vbCrLf) S = "": sTxt = "" '排序 For i = 0 To UBound(Arr) For j = i + 1 To UBound(Arr) If Len(Arr(j)) And Arr(i) > Arr(j) Then N = Arr(i) Arr(i) = Arr(j) Arr(j) = N End If Next j Next i '输出 For i = 0 To UBound(Arr) If Len(Arr(i)) Then S = S & vbCrLf & Format(Arr(i), "000") Next i sTxt = ThisWorkbook.Path & "\排序后.txt" Open sTxt For Output As #1 '生成文本文件 Print #1, Mid(S, 3) '写入结果数据 Close #1 '关闭文本文件 MsgBox "任务完成！", vbInformation, "xqoa" End Sub 附件：运用VBA将文本文件中的数字排序后写入新的文本文件.rar
2楼水星钓鱼	感谢分享
3楼芐雨	学习了
4楼老糊涂	感谢分享
5楼 0Mouse	今天看来，05和09行代码多余了。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表