Fortran Coder

查看: 214|回复: 2

[求助] system及systemqq的用法

[复制链接]

86

帖子

22

主题

0

精华

大师

F 币
1162 元
贡献
615 点
发表于 2018-9-26 09:04:58 | 显示全部楼层 |阅读模式
本帖最后由 andy8496 于 2018-10-6 10:41 编辑

VS2012+IVF2015
因为要在Fortran中用到批处理的功能,所以考虑用system及systemqq将批处理代码写到Fortran中。以下批处理代码可以获取快捷方式  “D:\LL\桌面\搜狗高速浏览器.lnk”  的目标,并写入文本 t.txt:

[Shell] 纯文本查看 复制代码
for /f "skip=3 delims=" %%a in ('find ":\" "D:\LL\桌面\搜狗高速浏览器.lnk" ') do echo %%a > t.txt


在 t.txt中获取的目标为: C:\Program Files (x86)\sougou\SogouExplorer\SogouExplorer.exe

但是,当时将这一句写入Fortran中的时候,一直不能成功:


[Fortran] 纯文本查看 复制代码
program main
USE IFPORT
implicit none
integer :: i
 ! i=system('for /f "skip=3 delims=" %%a in ('find ":\" "D:\LL\桌面\搜狗高速浏览器.lnk" ') do echo %%a > t.txt') ! 编译失败
 ! i=system('for /f ""skip=3 delims="" %%a in ('find "":\"" ""D:\LL\桌面\搜狗高速浏览器.lnk"" ') do echo %%a > t.txt') ! 运行失败 
  i=system("for /f ""skip=3 delims="" %%a in ('find "":\"" ""D:\LL\桌面\搜狗高速浏览器.lnk"" ') do echo %%a > t.txt") ! 运行失败
  stop 
end program


另外,system的参数能否包含字符串?比如这样可否:

[Fortran] 纯文本查看 复制代码
program main
USE IFPORT
implicit none
integer :: i
character :: s_lnk*256

s_lnk = "D:\LL\桌面\搜狗高速浏览器.lnk"
  i=system("for /f ""skip=3 delims="" %%a in ('find "":\"" """// trim(s_lnk)  //""" ') do echo %%a > t.txt") 
 write(*,*) "for /f ""skip=3 delims="" %%a in ('find "":\"" """// trim(s_lnk)  //""" ') do echo %%a > t.txt" 

 ! 此时write得到的字符串与写在.bat文件中能正常执行的代码一模一样!编译也没有问题,但是在system函数中就是不能运行。郁闷啊!!!

  stop 
end program


还请大家不吝赐教!





回复

使用道具 举报

44

帖子

6

主题

0

精华

专家

超凡脱俗

F 币
319 元
贡献
169 点
发表于 2018-9-26 09:21:15 | 显示全部楼层
你这么写,编译都过不去吧,需要字符串拼接
天下英雄出我辈,一入江湖岁月催。

鸿图霸业谈笑间,不胜人生一场醉。

86

帖子

22

主题

0

精华

大师

F 币
1162 元
贡献
615 点
 楼主| 发表于 2018-9-26 09:34:21 | 显示全部楼层
Jackdaw 发表于 2018-9-26 09:21
你这么写,编译都过不去吧,需要字符串拼接

这俩函数,对于没有引号的常量字符串表示的命令,确实能够正常执行。
对于常量字符串中引号,我理解是两个引号可以表示一个引号。
所以,我认为带有变量才需要拼接。

可能理解的不对,因为一直不能成功。如何修改,还请明示!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-12-17 11:18

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表