Board logo

标题: VBS求教 [打印本页]
作者: wangsky100     时间: 2010-10-2 20:42    标题: 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 ]
作者: wangsky100     时间: 2010-10-2 20:46
能不能变成
1:拷贝文本第二行 到 a1.txt
2:拷贝文本 简介:后所有内容到a2.txt

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


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

[ Last edited by wangsky100 on 2010-10-2 at 21:05 ]
作者: wangsky100     时间: 2010-10-2 20:53
Const InFile = "a.txt"     '设定打开的文本

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

[ Last edited by wangsky100 on 2010-10-2 at 20:56 ]
作者: HAT     时间: 2010-10-3 13:03
建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{27314}反面教材：本论坛“精彩”标题小集
{32667}愤怒：那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖