批处理或VBS实现文本内容替换！ 帮帮忙啊。。
'[2010-11-8 13:46] Modified
strPathA = "D:\a.txt"
strPathB = "D:\b.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFileA = objFso.OpenTextFile(strPathA,1,False)
Set objFileB = objFso.OpenTextFile(strPathB,1,True)
If objFileA.AtEndOfStream Then
strA = ""
Else
strA = objFileA.ReadAll
End If
If objFileB.AtEndOfStream Then
strB = ""
Else
strB = objFileB.ReadAll
End If
objFileA.Close
objFileB.Close
Set objFileB = objFso.OpenTextFile(strPathB,2,False)
If strA>=strB Then
objFileB.Write strA
Else
iLenB = Len(strB)
strB = strA & strB
strB = Left(strB, Len(strB)-Len(strA))
objFileB.Write strB
End If
objFileB.Close
Set objFileA = Nothing
Set objFileB = Nothing
如何用vbs替换文件中的包含某些字符的一行的内容
set fso=CreateObject("Scripting.FileSystemObject")Set RegExp = New RegExpfile="1.txt"find="需要剔除的字符"read=fso.opentextfile(file).readallWith RegExp .Global=-1:.ignorecase=-1:.multiline=-1 .pattern="(.*"&find&"*)[\r\n]{0,2}" if .test(read) then read=.Replace(read,empty) fso.createtextfile("new.txt").write readend ifEnd With
汽车从刹车距离45m,用时0.5min,则它从刹车到静止的平均速度为什么m/s
平均速度=45/3=15 m/s
(2)t=3（s）
从开始刹车到停车用了3秒
（3）30/3=10 m/s
从刹车到停车平均每秒车速减少10m/s【摘要】
汽车从刹车距离45m,用时0.5min,则它从刹车到静止的平均速度为什么m/s【提问】
平均速度=45/3=15 m/s
(2)t=3（s）
从开始刹车到停车用了3秒
（3）30/3=10 m/s
从刹车到停车平均每秒车速减少10m/s【回答】
那么45米刹车距离÷5秒，等于9m/s【回答】
