| 查看: 1673 | 回复: 11 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
yazhouqin木虫 (小有名气)
|
[求助]
fortran如何查找带空格的字符串
|
|
|
请教：如果dat文件中有“NODE FOOT-”字符串，我想用fortran程序查找到它，应该怎么写呢？ 我这样写好像不行 CHARACTER*80 BUFF READ(11,*) BUFF IF(BUFF=="NODE FOOT_"  THEN主要是字符间存在空格，请问怎么办 |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
Aspen 8.4如何使用外接fortran语句
已经有0人回复
- polyrate 安装缺少 compiler
已经有7人回复
- 求解奇异矩阵的问题
已经有6人回复
- 关于towhee 回答zhang_jaj的问题
已经有44人回复
- 【分享】《The Practice of Programming》(应该是编程必备吧，程序设计实践)
已经有147人回复
- 一个天体物理前辈的发文章经验
已经有17人回复
- 半傅立叶变换如何实现
已经有3人回复
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程
7楼2015-11-10 10:32:31
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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
30