| 查看: 1749 | 回复: 11 | ||
yazhouqin木虫 (小有名气)
|
[求助]
fortran如何查找带空格的字符串
|
|
|
请教:如果dat文件中有“NODE FOOT-”字符串,我想用fortran程序查找到它,应该怎么写呢? 我这样写好像不行 CHARACTER*80 BUFF READ(11,*) BUFF IF(BUFF=="NODE FOOT_" THEN主要是字符间存在空格,请问怎么办 |
» 猜你喜欢
今年审到国自然15份,谈谈感受
已经有15人回复
国自然上会要求
已经有5人回复
面上本子正文33页,违规吗?会被低分嘛?
已经有7人回复
上海大学实验技术岗位非升即走
已经有8人回复
考博自荐
已经有6人回复
青C资助名额大幅增加!
已经有16人回复
重磅!青年科学基金项目(C类)资助增幅预计超过50%
已经有10人回复
我在等一个没有答案的答案
已经有3人回复
半夜喝咖啡
已经有5人回复
售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐,对您同样有帮助:
Aspen 8.4如何使用外接fortran语句
已经有0人回复
polyrate 安装缺少 compiler
已经有7人回复
求解奇异矩阵的问题
已经有6人回复
关于towhee 回答zhang_jaj的问题
已经有44人回复
【分享】《The Practice of Programming》(应该是编程必备吧,程序设计实践)
已经有147人回复
一个天体物理前辈的发文章经验
已经有17人回复
半傅立叶变换如何实现
已经有3人回复

【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
yazhouqin: 金币+20 2015-11-10 09:54:13
感谢参与,应助指数 +1
yazhouqin: 金币+20 2015-11-10 09:54:13
|
按你的描述,应该是“NODE FOOT-”字符串的位置固定在该行的最左端。 这样的话,你的判断条件改成以下格式就行了: if(buff(1:10)=='NODE FOOT-')then 也就是截取字符串的1-10个字符进行判断,而非整个字符串进行判断。因为buff这个字符串长度为80,肯定不等于一个长度为10的字符串。 如果NODE FOOT-在行中的位置不固定就稍微麻烦点,先用index函数定位NODE FOOT-在字符串中的位置,然后从返回值位置开始往后推9个字符,以这个长度为10的子串来判断。 |
2楼2015-11-09 18:13:18
3楼2015-11-09 18:14:52
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程

4楼2015-11-10 10:10:47
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程

5楼2015-11-10 10:28:25
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程

6楼2015-11-10 10:31:27
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程

7楼2015-11-10 10:32:31
8楼2015-11-10 12:04:47
9楼2015-11-10 12:07:59
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程

10楼2015-11-10 12:17:39












THEN
回复此楼
