中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 通过固定标志将文本内容分别导入两个不同的文本文件

‹ « [1] [2] »

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 16 楼』:

刚才玩了下游戏没有看到。。。恩，睡觉了。
思路是前面怎么变不管了，后面格式占位固定，
那么它应该是倒数第59位。。。你的数据没有体现
出来，我也不知道对不对。你先试验下吧。

Example3.vbs:

Quote:

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

[ Last edited by slore on 2008-2-2 at 02:13 AM ]

2008-2-2 02:12

dhlmdsnw
初级用户

积分 127
发帖 59
注册 2008-1-29
状态离线

『第 17 楼』:

天哪，，，，大大。。。你可总算来了。。。。我等得快晕过去了。。。有没有QQ啊。。。回头加一个啊，因为随时会有特殊情况出现啊。。。——再说反正我吃定你了！！！。。。。嘿嘿。。。——你一定要教我！——大大你几岁了，还玩游戏？真晕！。。。已经试了。。。搞定！！！——大大出马，一个顶俩！嘿。。。

고 맙 습 니 다 !

终于可以睡觉觉咯。。。。

2008-2-2 02:24

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 18 楼』:

。。。。。。女孩子。。。。真的很可怕。。。

2008-2-2 02:31

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 19 楼』:

我也来一个不知对上不
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (aa.txt) do (
set scr=%%i
set n=!scr:~164,1!
>>a!n!.txt echo %%i
)
pause

简单!简单!再简单!

2008-2-2 19:05

‹ « [1] [2] »

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: