请问各位如何从文本文件中读出指定行列的字符？

2004-11-25 11:49:39 254 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

硬件压力测试工具使用方法 B, --bind host# 绑定到主机的多个地址中的一个。当客户端到服务器端的测试结束时，服务器端通过-l选项指定的端口（或默认为客户端连接到服务器端的端口），反向连接至客户端。-c, --client host#如果Iperf运行在服务器模式，并且用-c参数指定一个主机，那么Iperf将只接受指定主机的连接。-C, --compatibility# 与低版本的Iperf使用时，可以使用兼容模式。-b, --bandwidth #[KM] UDP模式使用的带宽，单位bits/sec。阅读详情

例如有一文本文件qq.txt在c:\下，内容如下：

123456I8901234567890
12345678901234Love90
12345678901234567890
you45678901234567890
45646806434671645644

而我只想把第一行第七字符，第二行的十五至十八的字符，及第四行的第一至第三字符读出。
最后就是读出I 、Love 、you 这几个字符。该如何操作呢？

...全文

深入解析SSD报错“READ FPDMA QUEUED”：从诊断到修复全流程本文深入解析了SSD报错“READ FPDMA QUEUED”的含义、成因与全流程解决方案。该错误通常指示硬盘硬件或健康状态问题。文章详细介绍了如何通过系统日志定位错误、解读关键的S.M.A.R.T.健康报告（重点关注重分配扇区计数等指标），并逐步进行硬件排查（如更换SATA数据线）、软件修复与数据抢救，最终指导用户根据诊断结果做出维修或更换SSD的决策。阅读详情

felixon

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

yqh1314 2004-11-25

打赏
举报

love007(风中的风) 正解

阿泰 2004-11-25

打赏
举报

我想你的意思这样表达更明确些：
取该行中的字母作为一个单词，然后将所有行中的字母连成一句话
<%
'**********************************
' 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
%>

zhangjun 2004-11-25

打赏
举报

方法如下:
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

zhangjun 2004-11-25

打赏
举报

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

honghe1 2004-11-25

打赏
举报

现有的方法不能直接实现你的需求,只能自己写一个函数来实现,而且也不麻烦.你不会告诉我这个也不做不来啊,写程序的,这个都不能实现,那.........,我想你一定能自己写出来的.关注中.....

ygjwjj 2004-11-25

打赏
举报

同意楼上:
只有全部读出来,放到字符串(数组)中,然后用MID定位,操作.

jiank 2004-11-25

打赏
举报

全读出来再处理

felixon 2004-11-25

打赏
举报

谢谢各位!很清楚!

zhangjun 2004-11-25

打赏
举报

完整的写法：
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

请问各位如何从文本文件中读出指定行列的字符？

相关推荐