联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Const ForReading = 1 '设定打开文本方式为读取 Const ForWriting = 2 '设定打开文本方式为写入 Const ForAppending = 8 '设定打开文本方式为追加 Const InFile = "a.txt" '设定打开的文本 Dim i,Sum Dim StrLine,OutStr1,OutStr2 i = 1:Sum = 0 'On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") '引用FSO对象,读写文件要用到的 Set objFile = objFSO.OpenTextFile(InFile, ForReading) '以读取方式打开InFile Do Until objFile.AtEndOfStream StrLine = objFile.ReadLine '读取一行 If Len(StrLine) Then '如果不是空行 'MsgBox Mid(StrLine,Len(StrLine) - 58,1) 测试用的(已注释掉)。 If Mid(StrLine,Len(StrLine) - 58,1) = "1" Then '倒数应该对的吧? OutStr1 = OutStr1 & StrLine & vbCrLf Else OutStr2 = OutStr2 & StrLine & vbCrLf End If End If Loop objFile.Close '关闭文件对象 Set objFile = objFSO.OpenTextFile("a1.txt", ForWriting,True) objFile.Write OutStr1 objFile.Close Set objFile = objFSO.OpenTextFile("a2.txt", ForWriting,True) objFile.Write OutStr2 objFile.Close Set objFile = Nothing Set objFSO = Nothing