如何确定文件中具有相同特征的行数?

主题：如何确定文件中具有相同特征的行数?

gjid369 [专家分：0] 发布于 2005-11-21 07:56:00

一个文本如下:
RH11...ABCD...3880OOOOOOO
HGDF...JY2E...KFKDL976874
JDFN...HGJI...KFL0321OYTP
47HF...ABCD...HGOOLO54234
........................

如何确定具有相同字符"ABCD"的共有几行?要求把行数作为一个变量。

[color=0000FF]加个问题:如果要找出"ABCD"所在每一行的第6个字符,又如何?[/color]

本帖地址： http://bbs.pfan.cn/post/122902.html

回复列表（共3个回复）

沙发

moz [专家分：37620] 发布于 2005-11-21 00:31:00

open "文本文件" for input as #1
do until eof(1)
line input #1,a$
if instr(a$,"ABCD") then b=b+1
loop
close #1

板凳

gjid369 [专家分：0] 发布于 2005-11-21 07:52:00

多谢解答.
再问个问题,如果要找出"ABCD"所在每一行的第6个字符,又如何?

3 楼

moz [专家分：37620] 发布于 2005-11-21 13:51:00

open "文本文件" for input as #1
do until eof(1)
   line input #1,a$
   if instr(a$,"ABCD") then
      b=b+1
     [color=FF00FF] print mid$(a$,6,1) [/color]
   endif
loop
close #1

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：如何确定文件中具有相同特征的行数?

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：如何确定文件中具有相同特征的行数?

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）