Question

vb如何删除txt文本首行的内容呢。?

vb如何删除txt文本首行的内容呢。？比如原本c:\1.txt内容为：abcdvb读取加入c:\1.txt 之后删除1.txt中首行"a" 并保存，之后1.txt的内容就变成了：bcd恳请帮助。愿好人一生平安………急啊！！求救！！SOS，Help！

Answer 1

'**************************************************
'函数名：FSOFileRead
'作 用：使用FSO读取文件内容的函数
'参 数：filename ----文件名称
'返回值：文件内容
'**************************************************
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

'**************************************************
'函数名：FSOlinedit
'作 用：使用FSO读取文件某一行的函数
'参 数：filename ----文件名称
' lineNum ----行数
'返回值：文件该行内容
'**************************************************
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function

'**************************************************
'函数名：FSOlinewrite
'作 用：使用FSO写文件某一行的函数
'参 数：filename ----文件名称
' lineNum ----行数
' Linecontent ----内容
'返回值：无
'**************************************************
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function

Answer 2

楼上很不负责。。。。具体代码应该如下：Private Sub Command1_Click()
Open App.Path & "\1.txt" For Input As #1
Dim line, file As String
Dim i As Integer
i = 1
Do While Not EOF(1)
Line Input #1, line
If i = 1 Then
file = ""
Else
file = file & line & vbCrLf
End If
i = i + 1
Loop
Close #1
Open App.Path & "\1.txt" For Output As #1
Print #1, file
Close #1
End Sub