system及systemqq的用法
本帖最后由 andy8496 于 2018-10-6 10:41 编辑VS2012+IVF2015
因为要在Fortran中用到批处理的功能，所以考虑用system及systemqq将批处理代码写到Fortran中。以下批处理代码可以获取快捷方式“D:\LL\桌面\搜狗高速浏览器.lnk”的目标，并写入文本 t.txt：
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中的时候，一直不能成功：
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的参数能否包含字符串？比如这样可否：
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
你这么写，编译都过不去吧，需要字符串拼接
这俩函数，对于没有引号的常量字符串表示的命令，确实能够正常执行。
对于常量字符串中引号，我理解是两个引号可以表示一个引号。
所以，我认为带有变量才需要拼接。
可能理解的不对，因为一直不能成功。如何修改，还请明示！
页:
[1]