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" '设定打开的文本