| 查看: 2053 | 回复: 12 | ||
[求助]
屏幕输入地址变量 已有1人参与
|
|
请教fortran高手指点，我想要在屏幕上输入地址，如D：\wour\cddlsi\ppt.txt, 用了下面的语句，编译的时候没有报错，但是屏幕输入完不能运行。 character(len=35) address read*,address open(1,file="address"  |
回复此楼» 猜你喜欢
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有7人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有7人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有19人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有8人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有8人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有7人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- lynx 浏览器，黑客都用！！！
已经有11人回复
- Elsevier(SCI) 投稿要求翻译总结
已经有28人回复
- 【sobereva个人文集】自写Link生成Gaussian的IRC任务中每个点的波函数文件
已经有10人回复
- 【原创】将POSCAR转化为cif文件的一个脚本
已经有145人回复
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
709944890: 金币+10, ★★★很有帮助 2016-11-17 20:10:51
感谢参与，应助指数 +1
709944890: 金币+10, ★★★很有帮助 2016-11-17 20:10:51
|
这个明显是错误的，因为你open的文件名称叫address，不是你输入路径的名称。想要实现你的那个功能，可以利用内部文件去实现。比如你在某个路径下建一个txt文档，里面第一行写上一个数字（我传附件中，仅仅为了举例而已）。代码如下： program example implicit none character( len=125 ) str,cstr integer i write( *,* ) 'Input the adress:' read( *,* ) str write( cstr,* ) adjustl(trim(str)) ！//内部文件书写格式，把str赋值给cstr open( 1,file=cstr ) read( 1,* ) i write( *,* ) i end program example PS：给你一个建议，其实路径你是不用自己去输入的，运行时出现黑框后，把那个文件直接拖入黑框中，路径自然产生。 |
» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 1.txt
2016-11-14 18:11:40, 1 bytes
2楼2016-11-14 18:11:45
|
Compiling Fortran... C:\MSDEV\Projects\test\Text2.f90 C:\MSDEV\Projects\test\Text2.f90(7): error FOR1127: internal compiler error Internal Error -- please report this bug Command line error D2013: internal compiler error. Error executing fl32.exe. Text2.obj - 3 error(s), 0 warning(s) 再请问一下，我在编译的时候出现上面的错误，提示 write( cstr,* ) adjustl(trim(str)) ！//内部文件书写格式，把str赋值给cstr，这一行。 因为我不知道 write( cstr,* ) adjustl(trim(str))的具体含义，我就按照自己的意思改了一下 program example implicit none character( len=125 ) str integer i write(*,*) 'Input the adress:' read(*,*) str adjustl(trim(str)) !//内部文件书写格式，把str赋值给cstr open(1,file=str ) read(1,*) i write(*,*) i end program example 然后报错， Compiling Fortran... C:\MSDEV\Projects\test\Text2.f90 C:\MSDEV\Projects\test\Text2.f90(7): error FOR2934: lexical error: Unrecognized statement C:\MSDEV\Projects\test\Text2.f90(7): error FOR3852: syntax error Error executing fl32.exe. Text2.obj - 2 error(s), 0 warning(s) 问题同样出在那一行。 期待您的解答！ |
3楼2016-11-16 21:58:01
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
|
这个怪我了，内部文件那里的注释我是后添加上的，是个中文感叹号，改成英文感叹号就没问题了，sorry。 program example implicit none character( len=125 ) str,cstr integer i write( *,* ) 'Input the adress:' read( *,* ) str str=adjustl( trim ( str ) ) write( cstr,* ) str !//内部文件书写格式，把str赋值给cstr open( 1,file=cstr ) read( 1,* ) i write( *,* ) i end program example |
4楼2016-11-17 08:22:17
5楼2016-11-17 09:09:03
问天阁
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 5173.8
- 红花: 5
- 帖子: 577
- 在线: 434小时
- 虫号: 1198420
- 注册: 2011-01-31
- 性别: GG
- 专业: 物理无机化学
6楼2016-11-17 09:34:36
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
7楼2016-11-17 10:19:06
8楼2016-11-17 15:55:04
9楼2016-11-17 15:56:29
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
10楼2016-11-17 16:07:52
