Fortran Coder

标题: system及systemqq的用法 [打印本页]

作者: andy8496 时间: 2018-9-26 09:04
标题: system及systemqq的用法
本帖最后由 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

还请大家不吝赐教！

作者: Jackdaw 时间: 2018-9-26 09:21
你这么写，编译都过不去吧，需要字符串拼接

作者: andy8496 时间: 2018-9-26 09:34

Jackdaw 发表于 2018-9-26 09:21
你这么写，编译都过不去吧，需要字符串拼接

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

可能理解的不对，因为一直不能成功。如何修改，还请明示！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)