中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-13 22:32 		共 47,812 主题排行 / 349,916 发帖 / 今日 0 篇 / 48,268 会员排行
论坛回收站 » VBS求教
可打印版本 　2,360 / 5
第1楼　wangsky100 发表于 2010-10-02 20:42
新手上路　发帖 5　积分 5
VBS求教
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 wangsky100 on 2010-10-2 at 20:43 ]
第2楼　wangsky100 发表于 2010-10-02 20:46
新手上路　发帖 5　积分 5
能不能变成
1:拷贝文本第二行 到 a1.txt
2:拷贝文本 简介:后所有内容到a2.txt

[ Last edited by wangsky100 on 2010-10-2 at 20:48 ]
第3楼　wangsky100 发表于 2010-10-02 20:50
新手上路　发帖 5　积分 5
楼顶内容为网站精华索引内容 作者: slore 请有会的同学帮忙解决下 感激不尽！！！
第4楼　wangsky100 发表于 2010-10-02 20:51
新手上路　发帖 5　积分 5
导演：导演
主演:西恩·威廉·斯科特 周润发 杰米·金
类型:动作
地区:欧美地区地区
语言:分类
年份:上映
片长:
简介:　　在本片中，发哥饰演一位没有名字的神秘僧侣，他来自中国西藏，60年来，一直担负着重任——保护一卷神秘的古经卷轴，那是以中国古代经文刻写而成的武功秘籍，蕴藏无比强大的奇异力量，只要得到这种力量，就可以无敌于天下，无数心怀叵测的人都曾经或正在觊觎着它。为了不让卷轴落入奸恶之徒的手里，为祸人间，无名武僧避而出走，足迹遍及大江南北。 brbr　　如今无名武僧自觉岁月流逝，于是积极物色高徒，想将保护卷轴的任务传承下去。事有凑巧，一个终日无所事事的街头混混卡尔(西恩·威廉·斯科特)，居然阴错阳差地从一群歹徒手中救下了无名武僧，也许真的是冥冥中命运的安排，武僧坚信这个看起来嬉皮笑脸、完全没有责任感的小痞子卡尔就是自己最好的传人，于是决定把自己深不可测的传奇武功尽数传授给卡尔，但是卡尔对这个天下掉下来的“师傅”显然嗤之以鼻，在卡尔对自己今生注定的使命觉醒之前，无名武僧必须带领他，再加上一名美貌性感还有那么点正义感的女神偷(洁美·金)的相助，联手对抗企图强取抢夺神秘经卷、


能不能变成
1:拷贝文本第二行 到 a1.txt
2:拷贝文本 简介:后所有内容到a2.txt

[ Last edited by wangsky100 on 2010-10-2 at 21:05 ]
第5楼　wangsky100 发表于 2010-10-02 20:53
新手上路　发帖 5　积分 5
Const InFile = "a.txt" '设定打开的文本

红字的地方 最好能不限制文本名 因为每个文本名都不一样 如果能作到最好
（文本比如a.txt ,b.txt 123.txt 电影.txt ........）

[ Last edited by wangsky100 on 2010-10-2 at 20:56 ]
第6楼　HAT 发表于 2010-10-03 13:03
版主　发帖 5,017　积分 9,023
建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{27314}反面教材：本论坛“精彩”标题小集
{32667}愤怒：那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023