system及systemqq的用法

andy8496 · 发表于 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

还请大家不吝赐教！

Jackdaw · 发表于 2018-9-26 09:21:15

你这么写，编译都过不去吧，需要字符串拼接

andy8496 · 发表于 2018-9-26 09:34:21

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

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

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

[求助] system及systemqq的用法