我想你的意思这样表达更明确些:
取该行中的字母作为一个单词,然后将所有行中的字母连成一句话
<%
'**********************************
' Create By Babyt[阿泰]
' Create At 2004-11-25 12:50
'**********************************
Dim strFileName,objFSO,objFile
Dim strCut
Dim strLine
Dim strOut
Dim i
strFileName="c:\qq.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
'判断文件是否存在
If objFSO.FileExists(strFileName)=False Then
Response.Write "文件不存在"
Response.End
End If
'打开文件
Set objFile = objFSO.OpenTextFile(strFileName)
'按行读取文本流
Do While Not objFile.AtEndOfStream
strLine = objFile.ReadLine
strCut=""
'Response.write strLine & "<br>"
If Len(strLine)>0 Then
For i=1 To Len(strLine)
If ASC(Mid(strLine,i,1))>57 OR ASC(Mid(strLine,i,1))<48 Then
strCut= strCut & Mid(strLine,i,1)
End If
Next
strOut=strOut & VBCRLF & strCut
End If
Loop
Response.Write strOut
objFile.Close
Set objFile=Nothing
Set objFSO=NOthing
%>
方法如下:
dim fs,txtfile,str
dim t1,t2,t3,tmp
set fs=server.CreateObject("scripting.filesystemobject")
set txtfile=fs.opentextfile(server.MapPath("qq.txt"))
while not txtfile.AtEndOfStream
TSline=txtfile.line
str = txtFile.readline
select case tsline
case "1"
t1=mid(str,7,1)
case "2"
t2=mid(str,15,4)
case "4"
t3=mid(str,1,3)
end select
wend
tmp=t1&" "&t2&" "&t3
response.write tmp
txtfile.close
set fs=server.CreateObject("scripting.filesystemobject")
set txtfile=fs.opentextfile(server.MapPath("aa.txt"))
while not txtfile.AtEndOfStream
TSline=txtfile.line
if TSline=1 then
txtfile.skipline
....
elseif TSline=7 then '如果要读的行数不是这几行,可以自己修改3和5。
txtfile.skipline
...
else
response.Write(txtfile.readline)
response.Write("<br/>")
end if
wend
txtfile.close
完整的写法:
dim fs,txtfile,str
dim t1,t2,t3,tmp
set fs=server.CreateObject("scripting.filesystemobject")
'判断文件是否存在
If fs.FileExists(server.MapPath("qq.txt"))=False Then
Response.Write "文件不存在"
Response.End
End If
'打开
set txtfile=fs.opentextfile(server.MapPath("qq.txt"))
while not txtfile.AtEndOfStream
TSline=txtfile.line
str = txtFile.readline
select case tsline
case "1"
t1=mid(str,7,1)
case "2"
t2=mid(str,15,4)
case "4"
t3=mid(str,1,3)
end select
wend
tmp=t1&" "&t2&" "&t3
response.write tmp
txtfile.close