中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
« [1] [2] [3] »
作者:
标题: 文件夹中所有文件内容求和 上一主题 | 下一主题
fbwolf
初级用户





积分 56
发帖 22
注册 2006-12-13
状态 离线
『楼 主』:  文件夹中所有文件内容求和

我的想法是
LOG这个文件夹中有USER1——USER99的文件
每个文件中都有不同的数据,每个文件中的数值相加,然后全部导入到FILES.TXT这个文件中,
排列方式,
为USER1 后面跟上这个文件中的和
USER2 后面跟上这个文件中的和
求高手设计

2007-2-5 03:15
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 2 楼』:  

用VBS写的,把下面的文件保存到LOG文件夹下。
Set ws=CreateObject("wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
For i=1 To 99
n=sam("user" & i)
m=m & "user" & i & vbtab & n & vbcrlf
Next
Set file=fso.createtextfile("FILES.TXT")
file.write m
file.close
ws.run "notepad.exe FILES.TXT"
Function sam(a)
Set file=fso.opentextfile(a)
s=0
Do While file.atendofstream<>true
        h=file.readline
        s=s+h
loop
file.close
sam=s
End Function


2007-2-5 03:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 3 楼』:  

有没有人,难为楼主写出一个纯的p来?
我想学习一下。

2007-2-5 07:26
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
fbwolf
初级用户





积分 56
发帖 22
注册 2006-12-13
状态 离线
『第 4 楼』:  

编了好多次了,没有成功,希望版主帮下忙!

2007-2-5 08:30
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 5 楼』:  

有不同的文件,比如txt1-txt99
这里指定了99个文件,也有可能不指定文件,比如一天生成一个txt文件
比如,到今天已经有55个txt文件了,这55个txt文件中,含有数字和对应的名称
比如:水电费:55.55
         流动资金:56963
这些都是当天存在txt文件中的。
明天,还有类似的txt批处理生成
,这个bat类似于set /p 请输入今天的水电费:
楼主要求的是求和,我想说,能不能今天的减去昨天的,然后生成一个新的差的txt文件
由于和楼主的想法有点类似,就在这帮顶和发了!!!

2007-2-5 09:30
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 6 楼』:  

  在没看到txt1——txt99的具体内容之前,写出的任何代码都是徒劳的,请楼主为写代码的人想一想。



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-2-5 11:32
查看资料  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 7 楼』:  

1.txt
内容如下:
水电费:569
合同金:658
外援费:56666
这是昨天的生成的,当然是由一个p生成的:这个bat类似于set /p 请输入今天的水电费:
今天生成2.txt,内容如下:
水电费:985
合同金:985
外援费:633336
想让第二个txt减去第一个txt文件,重新生成一个差的txt
但名称还用哪些 比如,生成的新的txt内容如下
水电费:”这里是差“
依此类推,就是每一天减去前一天的数,生成一份新的报表

2007-2-5 11:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 8 楼』:  



  Quote:
Originally posted by anqing at 2007-2-4 22:57:
但名称还用哪些

  名称到底用的是什么?如果还使用1~99的话,那当天和上一天的文件如何确定?哎,问了半天都还在问条件,这个帖子挤一点,那个帖子吐一点,来来去去,解决一个问题恐怕得开个讨论会了——如果在下一个回帖中还没有完整的描述的话,我只好把这个帖子锁了。



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-2-5 12:28
查看资料  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 9 楼』:  

但名称还用哪些,是指:
水电费:
合同金:
外援费:
其实,就是一个算今天和昨天的差的p?
就是今天的水电费-昨天水电费后,生成一个txt,里面两天的水电费的差,具体格式为:
水电费:(这里今天-昨天的数字差)
因为,每天都要输入一次当天的水电费,外援费等,这些都是每天必须产生的,目地是算一下,当天的支出。算法就是今天-昨天的支出,生成一个txt文件,方便打印。

2007-2-5 12:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 10 楼』:  

没人理呀?

2007-2-5 23:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ccwan
金牌会员




积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
『第 11 楼』:  

建议用excel完成!简单、直接的攻击才是最好、最有效的攻击。



三人行,必有吾师焉。   学然后知不足,教然后知困,然后能自强也。
2007-2-5 23:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qingfushuan
高级用户





积分 502
发帖 327
注册 2006-12-30
状态 离线
『第 12 楼』:  同感

看到一半就有同感了--坚决支持楼上的

2007-2-6 00:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 13 楼』:  

这个p是有难度,还要计算时间,有时一月是30天,有时31天。
主要是如何提取出前一天的txt,进行减差。

2007-2-6 00:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 14 楼』:  

帮 anqing 兄到某个帖子上找了一段儿:)

(存成 例如: GDATE.VBS 文件)
wscript.echo dateadd("d",-7,date)
上面是取7天前的日期(论坛检索中可以找到原帖)

如果兄要提取1天前的日期,就把7改为1即可~:)


执行调用方法:   CSCRIPT   GDATE.VBS

也可以在 FOR 中调用上面指令:)
CSCRIPT是VBS脚本解释器:)



    Redtek,一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2007-2-6 01:19
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 15 楼』:  

我对vbs不太懂,望兄给出完整代码

2007-2-6 02:12
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


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



论坛跳转: