怎样能将N个记事本中同一位置的不同数值对调

来源：百度知道 编辑：UC知道 时间：2024/06/09 22:32:23
个记事本中记录了大量格式相同的数值，但数的值不相同。现在想请教一下，为了节约时间，有没有什么办法或小程序能将这些所有记事本中的同一位置处的不同数值进行对调。

如：每个记事本的第一行的第6个数值与第7个数值对调，每个记事本中记录的数值不一样，前提是能不能就操作一下，就能将N个记事本完成对调！
谢谢各位高手了，如果能解决问题，绝对追加高分
用VB 可以吗？

用TC编一段小程序，只要你是有规律的就行。

用VB绝对可以。
你主要的难点是“打开一个文件夹下的很多文件”还是“数值的对调”？
下面的代码可以计算某个文件夹下所有文件的总数，稍微改一下就可以仅计算txt文件。得到文件总数后，用for挨个打开即可。
Sub Scan(a As String)
'递归目录
Dim FileName As String
Dim nd As Integer
Dim fold() As String
Dim n As Integer
On Error GoTo 1:
FileName = Dir(a)
Do While FileName <> ""
s = a & FileName

DoEvents
debug.pring s'你要的文件名
FileName = Dir
i = i + 1
Loop
FileName = Dir(a, vbDirectory)
Do While FileName <> ""

If FileName <> "." And FileNam