VBS--谁写个txt文件删除添加某行的调用啊 - 中国DOS联盟论坛


DeleteLine "c:\1.txt", 2
InsertLine "c:\1.txt", 2, "*"

Sub DeleteLine(filespec, rownum)
	Dim fso, f, temp, i
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(filespec, 1)
	temp = ""
	i = 0
	While Not f.AtEndOfStream
		i = i + 1
		If Not i = rownum Then
			temp = temp & f.ReadLine & vbCrLf
		Else
			f.SkipLine
		End If
	WEnd
	f.Close
	Set f = fso.OpenTextFile(filespec, 2)
	f.Write temp
	f.Close
End Sub


Sub InsertLine(filespec, rownum, oneline)
	Dim fso, f, temp, i
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(filespec, 1)
	temp = ""
	i = 0
	While Not f.AtEndOfStream
		i = i + 1
		If i = rownum Then temp = temp & oneline & vbCrLf
		temp = temp & f.ReadLine & vbCrLf
	WEnd
	f.Close
	Set f = fso.OpenTextFile(filespec, 2)
	f.Write temp
	f.Close
End Sub

第1楼　sexfio	发表于 2010-01-20 17:17
社区乞丐　发帖 45　积分 -27
VBS--谁写个txt文件删除添加某行的调用啊比如c:\1.txt a b c 我要删除第2行返回 a c 或我要添加第2行，添加数据是,返回 a b c 谁给写个简洁点的Function吧

第2楼　qinchun36	发表于 2010-01-21 10:53
高级用户　发帖 400　积分 609
DeleteLine "c:\1.txt", 2 InsertLine "c:\1.txt", 2, "*" Sub DeleteLine(filespec, rownum) Dim fso, f, temp, i Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(filespec, 1) temp = "" i = 0 While Not f.AtEndOfStream i = i + 1 If Not i = rownum Then temp = temp & f.ReadLine & vbCrLf Else f.SkipLine End If WEnd f.Close Set f = fso.OpenTextFile(filespec, 2) f.Write temp f.Close End Sub Sub InsertLine(filespec, rownum, oneline) Dim fso, f, temp, i Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(filespec, 1) temp = "" i = 0 While Not f.AtEndOfStream i = i + 1 If i = rownum Then temp = temp & oneline & vbCrLf temp = temp & f.ReadLine & vbCrLf WEnd f.Close Set f = fso.OpenTextFile(filespec, 2) f.Write temp f.Close End Sub

第3楼　HAT	发表于 2010-01-21 13:36
版主　发帖 5,017　积分 9,023
sed很好很简洁