XYplorer Beta Club

Code: Select all

  $A = "text1 text2 http://www.youtube.non/watch?v=vvvvv text3 text4 http://www.youtube.non/watch?v=Zu";
  $A = $A ."Ggm8UQ-7E&feature=g-all-u&context=G202c46eFAAAAAAAAEAA text5 text6";
  $Content = $A; //readfile();
  
  //concatenated lines, glue splitted URLs:
  $String = replace($Content, "<crlf>", " ");


  set $OUT;

  //as long as there is any string "HTTP".... do:
  while (strpos($String, "HTTP") > 0 )
  {
     //find pos of "http":
        $HTTPpos = strpos($String, "HTTP"); 
    //find pos of next space:
       $URLEND  = strpos($String, " ", $HTTPpos); 
    // get the whole URL:
       $URL     = substr($String, $HTTPpos, $URLEND - $HTTPpos); 
    //drop all behind the first found "&":  
        if (strpos($URL, "&") > 0)
        {
            $URL = substr($URL, 0, strpos($URL, "&"));
        }
    //create out array:
       $OUT = $OUT . $URL . "<crlf>";
    //remove URL from $String to get to an end:
       $String = substr($String, $URLEND +1);
  }

  //Test output:
         msg "Rest string: $String";
              //Rest string: text5 text6
         text $OUT;
              //http://www.youtube.non/watch?v=vvvvv
              //http://www.youtube.non/watch?v=ZuGgm8UQ-7E&feature=g-all-u&context=G202c46eFAAAAAAAAEAA
                  // WITH "drop all behind the first found "&""
              //http://www.youtube.non/watch?v=ZuGgm8UQ-7E

Code: Select all

	$files = folderreport("files", "r", , , , "|");

	$re = "";
	foreach($file, "$files", "|"){
		$content = readfile("$file", "t");
		foreach($line, "$content", "<crlf>"){
			$type = regexreplace("$line", ".+?(http.+$)", "$1");
			if($type != $line){
				if(strpos($type, "?v") != -1){
					$type = regexreplace($type, "(.+?(?=&)).*", "$1");
				} else {
					$type = regexreplace($type, "(.+?\?)(.+\&)(.*)", "$1$3");
				}
				$re = "$re" . "$type<crlf>";
			}
		}
	}

	text $re;

Code: Select all

   $files = folderreport("files", "r", , , , "|");

   $re = "";
   foreach($file, "$files", "|"){
      $content = readfile("$file", "t");
      foreach($line, "$content", "<crlf>"){
         $type = regexreplace("$line", ".*?(http.+$)", "$1");
         if(strpos($line, "youtube") != -1){
            if(strpos($type, "?v") != -1){
               $type = regexreplace($type, "(.+?(?=&)).*", "$1");
            } else {
               $type = regexreplace($type, "(.+?\?)(.+\&)(.*)", "$1$3");
            }
            $re = "$re" . "$type<crlf>";
         }
      }
   }

   text $re;

Code: Select all

"Base Name WITH dot"
 $a = "v8.1.315 by PSpad.txt"; $bn = regexreplace($a, "(.+\.).*", "$1"); echo $bn;
"Base Ext - NO dot"
 $a = "v8.1.315 by PSpad.txt"; $bn = regexreplace($a, "(.+\.)(.*)", "$2"); echo $bn;

"Base Ext WITH dot"
 $a = "v8.1.315 by PSpad.txt"; $bn = regexreplace($a, "(.+)(\..*)", "$2"); echo $bn;
"Base Name - NO dot"
 $a = "v8.1.315 by PSpad.txt"; $bn = regexreplace($a, "(.+)(\..*)", "$1"); echo $bn;