Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 读取文件中一个字符串出现的次数

读取文件中一个字符串出现的次数

查看数: 14192 | 评论数: 5 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

18229702011

发布时间: 2020-3-19 00:27

正文摘要:

[Fortran] 纯文本查看复制代码program find_close implicit none integer::i=0,k character(len=512) :: cStr character,parameter::C_define='define ...

18229702011 发表于 2020-3-19 12:17:28

好的，谢谢。继续学习。外加天天逛帖子

楚香饭 发表于 2020-3-19 12:00:50

指从1开始到“C_define”这个字符串长度那么长结束
冒号前面没写数字，默认就是1

18229702011 发表于 2020-3-19 11:57:32

噢！是这样啊，我照着这别人教我的程序来写，都能写错。还有一个问题，我还想知道，
在这个语句描述中if(cStr(:len(C_define))==C_define)then。
cStr(:len(C_define)这个表示的意思，它是指什么？是指从1开始到“C_define”这个字符串长度结束？这个冒号“：”前没写数字，是指从默认1开始？还是从“某一个位置”开始？谢谢你的回复。

18229702011 发表于 2020-3-19 11:55:24

其实我想知道在这个语句描述中if(cStr(:len(C_define))==C_define)then。
cStr(:len(C_define)这个表示的意思，它是指什么？是指从1开始到“C_define”这个字符串长度结束？这个冒号“：”前没写数字，是指从默认1开始？还是从“某一个位置”开始？谢谢你的回复。

kyra 发表于 2020-3-19 09:04:54

本帖最后由 kyra 于 2020-3-19 09:06 编辑

character,parameter::C_define='define'
改为
character(len=*),parameter::C_define='define'

如果不改的话，C_define 没有定义长度，则长度为1。
所以，虽然赋值为 'define'，但实际的值是 'd'
那么程序的作用就变成了：“搜索d开头的行”

而文件中的 dist loads 也满足了要求。
所以 i 就是 4，而不是 3