GET_COMMAND(command, length, status) 以command 返回调用该程序的整个命令行。 GET_COMMAND_ARGUMENT(number, value, length, status) 以value 返回命令行参数。 GET_ENVIRONMENT_VARIABLE(name, value, length, status, trim_name) 返回环境变量的值。Previous: 4.6.2 IEEE 浮点异常处理 Next: 4.6.4 PROTECTED 属性 © 2010, Oracle Corpo...
GET_COMMAND_ARGUMENT (NUMBER [, VALUE, LENGTH, STATUS]) 返回一个命令参数 GET_ENVIRONMENT_VARIABLE (NAME [, VALUE, LENGTH, STATUS, TRIM_NAME]) 获得环境变量的值。 2.1.22 内子例程通用内函数名 说明 CPU_TIME (TIME) 获取处理器的时间 DATE_AND_TIME ([DATE, TIME, ZONE, VALUES]) ...
|EXECUTE_COMMAND_LINE(COMMAND[,WAIT,EXITSTAT,STATUS,CMDSTAT,CMDMSG]) | 执行命令行 | | GET_COMMAND([COMMAND,LENGTH,STATUS]) | 获取命令行 | | GET_COMMAND_ARGUMENT(NUMBER[,VALUE,LENGTH,STATUS]) | 获取命令行参数 | | GET_ENVIRONMENT_VARIABLE(NAME[,VALUE,LENGTH,STATUS,TRIM_NAME]) | 获取环境...
函数1:COMMAND_ARGUMENT_COUNT()— Get number of command line arguments 这是一个function,有返回值。 Example: program test_command_argument_count integer :: count count=command_argument_count() print*, count end program test_command_argument_count 子程序2:GET_COMMAND_ARGUMENT类似于getarg()子程序 ...
DO CALL get_command_argument(i, arg) IF (LEN_TRIM(arg) == 0) EXIT READ(arg,'(I3)') n WRITE (*,*) n*n i = i+1 END DO END PROGRAM 比如编译后的可执行程序叫testComArg,在终端中输入: ./testComArg 2 3 将得到: 4 9
如果你可以编写源代码，你可以用楼下的方式：program name implicit none character( Len = 50 ) name1,name2 call GET_COMMAND_ARGUMENT( 1 , name1 )name2 = trim(name1)//'.txt'open(4, file=name2 )end 这样，命令行就可以简单的写为 ： name.exe txtfile 此时，name1 就等于 txt...
GET_COMMAND_ARGUMENT (NUMBER [, VALUE, LENGTH, STATUS]) 返回一个命令参数 GET_ENVIRONMENT_VARIABLE (NAME [, VALUE, LENGTH, STATUS, TRIM_NAME]) 获得环境变量的值。 2.1.22内子例程 通用内函数名 说明 CPU_TIME (TIME) 获取处理器的时间 DATE_AND_TIME ([DATE, TIME, ZONE, VALUES]) 获取日期和...
Command_Argument_Count()call Get_Command_Argument( number , str , leng , status )第一个函数用来获得命令行参数的个数第二个函数用来获得某个命令行参数有的编译器扩展有 iArgc , GetArgs 功能相同其他函数获取环境变量call Get_Environment_Variable(name ,value,length,status,trim_name)获取名为 name 的...
GET_COMMAND_ARGUMENT is like the C "getarg", GET_ENVIRONMENT_VARIABLE is like C "getenv". Calling SYSTEM to set an environment variable may not do anything for you, as that typically happens in another process context. There is not yet a corresponding SET_ENVIRONMENT_VARIABLE,...
1 if the command retrieval fails -1 if the COMMAND argument is present and has a value less than the significant length of the command 0 otherwise Examples integer len, status character(7) :: cmd call GET_COMMAND(cmd, len, status) print*, cmd print*, len print*, status end The follow...