リモートファイル取得機能（Linux、Windows共通）

ウィンドウ|関数

リモート ファイルを取得するために、基本的にすべての側面が考慮された次の小さな関数を作成しました。
function getpic($url,$dir,$name){
//URL ファイルを取得します。 dir ディレクトリに保存します。name はファイル名です。
//デフォルトのファイル名が使用される場合、元のファイル名が保持されます。 = $ Tmp = split ("/", $ url);
$ FNAME = $ tmp [Count ($ TMP) -1] // ファイル名を取得
iF (Empty ($ name)) {
$ name = $ fname; // ファイル名を設定します
}else{// ファイルの拡張子が変更されているかどうかを確認し、変更されている場合は、ファイル自体の拡張子に変更します。
$tmp1=split(".",$fname);
$tmp2=split(".",$name);
$ name=$tmp2[0].".".$tmp1[1];
}
if(strstr($dir,"\")){//Windows環境のディレクトリの説明です
if(substr($dir ,-2)=="\") $file=$dir.$name; else $file=$dir."\".$name;
}else{ {//説明はLinux環境のディレクトリです
if(substr($dir,-1)=="/") $file= $ dir。$ name; else $ file = $ dir。 "/"。$ fname; $file,"wb");
if(!$fpo){
echo "申し訳ありませんが、file:$file の作成に失敗しました! 正しいことを確認してください!";
return ;
}
$num=0;
do{
$ NUM ++;
$ fpi = FOPEN ($ url, "r");
if (! $ FPI) Echo "リモート ファイルを開くエラーです... 再試行してください! RN"; $ fpi && $ num & lt; ); //ファイルのオープンを 3 回まで試行し、それを超えた場合は終了します。
if(!fpi){
echo "ネットワークが混雑しているか、URL が間違っています!";
return ;
}else echo "ファイルを開いてOK!今転送....";
while(!feof($fpi)) {CONT = FREAD ($ FPI, 128);
fclose ($ fpi)
echo "成功!";