pl/sql传入路径和文件以及操作系统 获得相应的文件完整路径

主要就是针对不同的操作系统，才必须要注意这个情况，对于在数据库中保存相应的文件路径有很大的作用 PL/SQL 文件路径 –获得解析文件路径 ：传入路径，文件名，操作系统标识 w,ufunction resolve_filename (p_dir in varchar2,本文来源gaodaimacom搞#^代%!码网@ p_file_name in varchar2, p_o

主要就是针对不同的操作系统，才必须要注意这个情况，对于在数据库中保存相应的文件路径有很大的作用 PL/SQL 文件路径 <style> .CodeEntity .code_pieces ul.piece_anchor{width:25px;position:absolute;top:25px;left:-30px;z-index:1000;} .CodeEntity .code_pieces ul.piece_anchor li{width:25px;background: #efe;margin-bottom:2px;} .CodeEntity .code_pieces ul.piece_anchor li{border-left:3px #40AA63 solid;border-right:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li:hover{border-right:3px #40AA63 solid;border-left:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li a{color: #333;padding: 3px 10px;} .CodeEntity .code_pieces .jump_to_code{visibility:hidden;position:relative;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code{visibility:visible;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code a{text-decoration:none;} .CodeEntity .code_pieces h2 i{float:right;font-style:normal;font-weight:normal;} .CodeEntity .code_pieces h2 i a{font-size:9pt;background: #FFFFFF;color:#00A;padding: 2px 5px;text-decoration:none;} </style> <!—ecms

–> <!—ecms
• $velocityCount

–> <!—ecms

–>

--获得解析文件路径 ：传入路径，文件名，操作系统标识 w,ufunction resolve_filename (p_dir in varchar2,                           p_file_name in varchar2,                           p_os in varchar2 := g_os_windows) return varchar2as  l_returnvalue t_file_name;begin  /*  Purpose:      resolve filename, ie. properly concatenate dir and filename  Remarks:  Who     Date        Description  ------  ----------  --------------------------------  MBR     01.01.2005  Created  */  --如果是 是 windows  if lower(p_os) = g_os_windows then    --如果最后一位字符时 \    if substr(p_dir,-1) = g_dir_sep_win then      --设定返回值为 路径+文件名称      l_returnvalue:=p_dir || p_file_name;    else      --如果没有 \ 则自己加一个上去      if p_dir is not null then        l_returnvalue:=p_dir || g_dir_sep_win || p_file_name;      else        l_returnvalue:=p_file_name;      end if;    end if;  --如果是unix 就为 / 思路和上面一致  elsif lower(p_os) = g_os_unix then    if substr(p_dir,-1) = g_dir_sep_unix then      l_returnvalue:=p_dir || p_file_name;    else      if p_dir is not null then        l_returnvalue:=p_dir || g_dir_sep_unix || p_file_name;      else        l_returnvalue:=p_file_name;      end if;    end if;  --如果都不是 就无返回值  else    l_returnvalue:=null;  end if;  return l_returnvalue;END resolve_filename;

喜欢 (0)赏

[搞代码]

分享 (0)