fortran读取斜杠等特殊字符

moonding · 发表于 2017-1-13 18:27:19

xyyl 发表于 2016-12-30 16:03
楼主好，想问下，这样读取只能读一行的字符串，如果有很多行呢，到回车的那里，就读不出来了，设置数组的 ...

我觉得用lz的下面这个比较好用，我用index的也是不行，后来改成下面的就可以了
read读入到一个变量入a，
do i=1,len(a)
if a(i:i)=="/" a(i:i)=""
end do

xyyl · 发表于 2017-1-16 09:58:10

moonding 发表于 2017-1-13 18:27
我觉得用lz的下面这个比较好用，我用index的也是不行，后来改成下面的就可以了
read读入到一个变量入a， ...

好的，谢谢，这样读出来啦

明天の雨 · 发表于 2017-1-16 14:01:54

很实用，多些分享

youi66 · 发表于 2017-5-6 20:04:17

不错不错，很实用很强大

youi66 · 发表于 2017-5-8 22:02:52

很好用的，感谢楼主分享

duoduoduo · 发表于 2017-5-24 09:15:43

非常感谢~~~~~~~~~~~~~

elebos · 发表于 2017-5-24 16:22:42

谢谢

{:smile:}{:smile:}

小虹 · 发表于 2017-6-7 22:12:01

好聪明的做法

{:eb502:}{:eb502:}

金色牛神 · 发表于 2017-6-8 09:21:21

錵唂哚发表于 2012-2-21 10:24
还有，do while(设备号) 的判断是什么意思？index函数返回的是子串首次出现的位置，那如果一行记录里面有好 ...

do while(1)，在这里1不再表示设备号了，while的括号内是判断语句，1表示非0，即TRUE，要永远循环下去；
所以循环体内必须要有exit语句，他这里当所有的‘/’被替换完后，就要退出循环了

壮哉我大气 · 发表于 2018-3-17 13:28:01

感谢楼主分享

		自动登录	找回密码
密码			立即注册

[源代码] fortran读取斜杠等特殊字符