'rsrc' 不是内部或外部命令,也不是可运行的程序
时间: 2023-10-26 16:05:59 浏览: 60
根据提供的引用内容,可能是由于找不到 'rsrc' 命令导致出现此错误。 'rsrc' 是一个第三方工具,用于将资源嵌入Windows可执行文件中。 请确保您已正确安装了此工具,并且已将其添加到系统路径中,以便在任何位置都可以使用它。 您可以尝试在命令行中运行 'rsrc' 命令,以确保它已正确安装并可用。 如果问题仍然存在,请检查您的环境变量和路径设置是否正确。
--相关问题--:
相关问题
windows intel编译器编写一个Fortran主程序,读写这个文件,将该文件作为资源嵌入到主程序中
下面是一个使用Intel Fortran编写的示例程序,演示如何将文件作为资源嵌入到主程序中:
```fortran
program main
implicit none
integer :: i
character(len=20) :: filename = "data.txt"
integer :: file_unit, file_size, res_unit, res_size
character(len=20) :: res_filename = "data_res.txt"
character(len=50) :: res_path
character(len=100) :: line
! 打开文件并读取内容
open(newunit=file_unit, file=filename, status="old")
file_size = 0
do
read(file_unit, '(A)', iostat=i) line
if (i /= 0) exit
file_size = file_size + len(line)
end do
close(file_unit)
! 获取资源文件路径
call get_res_path(res_path)
! 将文件作为资源嵌入到主程序中
call embed_res(filename, res_filename, res_path)
! 打开嵌入的资源文件并读取内容
open(newunit=res_unit, file=res_path//res_filename, status="old")
res_size = 0
do
read(res_unit, '(A)', iostat=i) line
if (i /= 0) exit
res_size = res_size + len(line)
end do
close(res_unit)
! 输出文件和资源文件的大小
write(*,*) "File size:", file_size
write(*,*) "Resource size:", res_size
end program main
subroutine get_res_path(res_path)
implicit none
character(len=100), intent(out) :: res_path
integer :: i, res_len
character(len=100) :: exe_path
! 获取可执行文件路径
call get_exec_path(exe_path)
! 根据可执行文件路径确定资源文件路径
res_len = len_trim(exe_path)
do i=res_len, 1, -1
if (exe_path(i:i) == "\") then
res_path = trim(exe_path(1:i))//"res\"
return
end if
end do
end subroutine get_res_path
subroutine get_exec_path(exe_path)
implicit none
character(len=100), intent(out) :: exe_path
integer :: i
character(len=100) :: arg
! 获取可执行文件路径
call get_command_argument(0, arg)
do i=len_trim(arg), 1, -1
if (arg(i:i) == "\") then
exe_path = trim(arg(1:i))
return
end if
end do
end subroutine get_exec_path
subroutine embed_res(filename, res_filename, res_path)
implicit none
character(len=*), intent(in) :: filename, res_filename, res_path
integer :: res_size
character(len=100) :: cmd
! 将文件作为资源嵌入到主程序中
res_size = file_size(filename)
write(cmd, "(A, I0, A, A, A, A)") "objcopy -I binary ", trim(filename), " -O elf64-x86-64 -B i386 --rename-section .data=.rsrc,", trim(res_filename), " ", trim(res_path)//trim(res_filename)
call system(cmd)
end subroutine embed_res
```
这个示例程序中,首先打开一个名为"data.txt"的文件并读取其内容,然后调用子程序"embed_res"将该文件作为资源嵌入到主程序中,最后打开嵌入的资源文件并读取其内容。子程序"embed_res"中使用了"objcopy"命令将文件转换成一个ELF格式的目标文件,并将其作为一个名为".rsrc"的数据段嵌入到主程序中。
在子程序"get_res_path"中,使用了"get_exec_path"子程序获取可执行文件所在的路径,然后根据该路径确定资源文件所在的路径。在Windows平台上,资源文件通常被放在一个名为"res"的子目录下。
请注意,这个示例程序中的代码仅适用于Windows平台和Intel Fortran编译器,并且可能需要根据实际情况进行调整。
这段代码的作用是在字符串 ch1 中查找字符串 ch2 的位置,并返回该位置的指针(即 gsrc)。具体实现是通过两个指针 rsrc 和 gsrc 遍历原字符串 ch1,当找到与目标字符串 ch2 首字符相同的字符时,记录下此时的两个指针位置 gsrc 和 gdest,然后继续比较两个指针所指的字符是否相同,直到找到目标字符串 ch2 或者原字符串 ch1 遍历完毕。如果找到目标字符串,则返回 gsrc,否则返回 NULL。 代码实现上存在一些问题,比如: 在比较字符时,应该使用 *gdest 而不是 gdest。 在返回结果时,应该判断 gdest 是否为 '\0' 而不是 /0。 另外,该函数的参数命名不太合理,应该将 src 改为 target 或者 ch2,将 dest 改为 source 或者 ch1,以便更好地理解函数的作用。
以下是修改后的代码:
```c
char* find_str(char* source, char* target) {
char* gsrc = source;
char* rsrc = source;
char* gdest = target;
while (*rsrc != '\0') {
if (*gsrc == *gdest) {
if (gdest == target) {
gsrc = rsrc;
}
gdest++;
}
else if (gdest != target) {
gdest = target;
gsrc = rsrc;
}
rsrc++;
if (*gdest == '\0') {
return gsrc;
}
}
return NULL;
}
```
在修改后的代码中,参数命名更加清晰易懂,同时修复了比较字符和返回结果时的错误。