写文本的代码
- <%
- set myfileobject=server.CreateObject("Scripting.FileSystemObject")
- set mytextfile=myfileobject.OpenTextFile(server.MapPath("test.txt"),2,true)
- mytextfile.WriteLine("这是一个测试")
- mytextfile.WriteLine("这是一个测试")
- mytextfile.close
- %>
读文本的代码:
- <%
- set myfileobject=server.createobject("scripting.filesystemobject")
- set mytextfile=myfileobject.opentextfile("c:/mydir/test.txt")
- while not mytextfile.atendofstream
- response.write(mytextfile.readline)
- wend
- mytextfile.close
- %>
上面的读取方式显然有些原始,看下面:
优化后的读取指文本文件定行的函数代码
- Function lines(txtpath As String, ByVal startline As Integer, linenum As Integer) As String '显示 txtpath 文件的从startline 行开始的 linenum 行的内容
- lines = ""
- Dim filetxt As String, x As Variant, i As Integer
- filetxt = String(FileLen(txtpath), " ")
- Open txtpath For Binary As 1
- Get #1, , filetxt
- Close 1
- x = Split(filetxt, vbCrLf)
- 'MsgBox UBound(x) + 1 '行数
- If startline > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
- If startline <= UBound(x) Then
- If startline + linenum <= UBound(x) Then
- For i = startline To startline + linenum - 1
- lines = lines & x(i) & " "
- Next
- Else
- For i = startline To UBound(x)
- lines = lines & x(i) & " "
- Next
- End If: End If
- End Function