system及systemqq的用法

andy8496

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

[Shell] 纯文本查看 复制代码

查看代码

打印?

1	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] 纯文本查看 复制代码

查看代码

打印?

1	program main

2	USE IFPORT

3	implicit none

4	integer :: i

5	! i=system('for /f "skip=3 delims=" %%a in ('find ":\" "D:\LL\桌面\搜狗高速浏览器.lnk" ') do echo %%a > t.txt') ! 编译失败

6	! i=system('for /f ""skip=3 delims="" %%a in ('find "":\"" ""D:\LL\桌面\搜狗高速浏览器.lnk"" ') do echo %%a > t.txt') ! 运行失败

7	i=system("for /f ""skip=3 delims="" %%a in ('find "":\"" ""D:\LL\桌面\搜狗高速浏览器.lnk"" ') do echo %%a > t.txt") ! 运行失败

8

stop

9	end program

另外，system的参数能否包含字符串？比如这样可否：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	USE IFPORT

03	implicit none

04	integer :: i

05	character :: s_lnk*256

06

07	s_lnk = "D:\LL\桌面\搜狗高速浏览器.lnk"

08	i=system("for /f ""skip=3 delims="" %%a in ('find "":\"" """// trim(s_lnk)  //""" ') do echo %%a > t.txt")

09	write(*,*) "for /f ""skip=3 delims="" %%a in ('find "":\"" """// trim(s_lnk)  //""" ') do echo %%a > t.txt"

10

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

12

13

stop

14	end program

还请大家不吝赐教！

Jackdaw

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

andy8496

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

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

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