XYplorer Beta Club

Code: Select all

	WriteFile("<xyscripts>\LongPath.txt","$LongCat",a,tu);
	Open "<xyscripts>\LongPath.txt";
	//Text $LongCat;

Code: Select all

/*
Long Path Finder 0.1 (March 29, 2013) by Enternal
Files: LongPathFinder.xys, LongPathRun.xys
*/

	If Exists("<xyscripts>\LongPathLength.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathLength.txt"; }
	If Exists("<xyscripts>\LongPathItems.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathItems.txt"; }
	If Exists("<xyscripts>\LongPathRaw.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathRaw.txt"; }
	If Exists("<xyscripts>\LongPath.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPath.txt"; }

	$Length = Input("Long Path Finder","Files With Path Longer Than The Specified Length Will Be Listed.<crlf>Recommend Above 150. Anything Lower Could Freeze XYplorer<crlf>If There Are Many Files.","256",s,0);
	$NTest = RegExMatches("$Length","\D"); // \D Same As [^0-9]. http://gskinner.com/RegExr/
	If ($NTest == "") {
		Continue; }
	Else {
		Msg "$Length Is NOT A Valid Numerical Value."; }
	End ($Length == 0);
	WriteFile("<xyscripts>\LongPathLength.txt","$Length",,t);
	$SelectedItems = Get("SelectedItemsPathNames","|");
	WriteFile("<xyscripts>\LongPathItems.txt","$SelectedItems",,tu);
	Run """<xypath>\<xyexe>"" /ini=""<xyini>"" /win=min /script=""LongPathRun""";

Code: Select all

/*
Long Path Finder 0.1 (March 29, 2013) by Enternal
Files: LongPathFinder.xys, LongPathRun.xys
*/

	Global $Files;
	$Length = ReadFile("<xyscripts>\LongPathLength.txt",t);
	$LongCat = "";
	$SelectedItems = ReadFile("<xyscripts>\LongPathItems.txt",t);
	ForEach($Item,$SelectedItems,"|") {
		If Exists($Item) == 1 {
			$Files = "$Files"."|"."$Item"; }
		ElseIf Exists($Item) == 2 {
			$FFiles = FolderReport("files","r",$Item,"r",,"|");
			$Files = "$Files"."|"."$FFiles"; } }
	$Files = FormatList("$Files","e");
	ForEach($Item,$Files,"|") {
		If Report("{Len}",$Item) > $Length {
			$LongCat = "$Item"."|";
			WriteFile("<xyscripts>\LongPathRaw.txt","$LongCat",a,tu);
			$LongCat = ""; } }
	If Exists("<xyscripts>\LongPathRaw.txt") == 0 {
		Msg "No Files With Path Longer Than $Length Found.";
		Exit "n"; }
	$LongCat = ReadFile("<xyscripts>\LongPathRaw.txt",t);
	$LongCat = Replace(FormatList("$LongCat","enq","|"),"|","<crlf>");
	WriteFile("<xyscripts>\LongPath.txt","The Following Items Have Path Longer Than $Length:<crlf><crlf>",a,tu);
	WriteFile("<xyscripts>\LongPath.txt","$LongCat",a,tu);
	Open "<xyscripts>\LongPath.txt";
	//Text $LongCat;

	If Exists("<xyscripts>\LongPathLength.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathLength.txt"; }
	If Exists("<xyscripts>\LongPathItems.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathItems.txt"; }
	If Exists("<xyscripts>\LongPathRaw.txt") == 1 {
		Delete 0,0,"<xyscripts>\LongPathRaw.txt"; }

	Exit "n";

Code: Select all

$limit = input("Choose the character limit:", , 256, "s", , 200, 100);
	goto "?len: > $limit /r";

	$Result = report("{Path}\{Name}<crlf>");
	if ($Result != "") {
		text $Result;
	}
	else {
		status "No file(s) / folder(s) found, that exceed the limit of $limit characters", "009900", "ready";
	}

Code: Select all

	$limit = input("Choose the character limit:", "If left empty, the default of 256 will be used", 256, "s", , 200, 100);
	$folderList = "";
	foreach ($item, <get SelectedItemsPathNames |>, "|") {
		if (exists($item) == 2) {
			$folderList = $folderList . $item . ";";
		}
	}

	$folderList = ($folderList == "") ? $folderList = "?len: > " : regexreplace($folderList, ";$", "") . "?len: > ";
	goto "$folderList $limit /r";

	$Result = report("{Path}\{Name}<crlf>");
	if ($Result != "") {
		text $Result;
	}
	else {
		status "No file(s) / folder(s) found, that exceed the limit of $limit characters", "009900", "ready";
	}

Code: Select all

//ReportPathsGreater259 v2.0.xys
//Report folder and filename lengths which are larger than 259 characters
   //setting('BackgroundFileOps', 0);
   $iter=0;

   foreach($line, $filelist, "<crlf>") {

   incr $iter; incr $files;
   

   
	if ($iter > 99){
	   wait 500;
	   status "processing files: $files","FF0000",,;
	   $iter=0;
	}

    goto "?len: > 259 /r";
	//text report ("{Path}\{Name}<crlf>");
	//writefile("Report.htm", 
	$text = report("<tr>
	<td>{Name}</td>
	<td {Path}</td>
	<td {Len}</td>
	</tr><crlf>", ,
	"<table cellpadding=4>", "</table>"));
	tab ("lock", ,0);
	#351;  
	}
*/
   if ($text!="") {
      echo $text;
   }
   else {
      msg "No excessive paths / files found.";
   }


/*
Perhaps you like to implement this POC (prove of concept) code?


to show status like "In process \ - / |


Code:
 $Loop=0;
 $amount=30;
 while($Loop < $amount)
 {

 //--------------------------------
 $SBT="/"; if($SBL >4){$SBL=1;}
 if($SBL==1){$SBT="/"}; if($SBL==2){$SBT="-"};
 if($SBL==3){$SBT="\"}; if($SBL==4){$SBT="|"};
 status "In process $SBT"; wait 100; incr $SBL;
 //--------------------------------


 incr $Loop;
 }
 status "Done.";





or to show "In process ..."


Code:
 $s="";
 $Loop=0;
 $amount=30;
 while($Loop < $amount)
 {
 
    if (strlen($s)>3){$s="";}
    $s = $s.".";
    status "In process$s";
    wait 1000;
    incr $Loop;
 }
 status "Done.";
*/

Code: Select all

  goto "?len: > 259 /r";
  //text report ("{#} - {Len} caractères - {Path}\{Name}<crlf>");
  writefile("Rapport fichiers supérieurs à 259 caractères.html",report("<tr><td>{#}</td><td>{Len} caractères</td><td>{Path}\{Name}</td><td align=right>{Size MB} {dir [DIR]|}</td></tr><crlf>", , "<table border=1 style='font-family:Verdana; font-size:8px;'><TR ALIGN=CENTER><td><b>Numéro</b></td><td><b>Longueur</b></td><td><b>Fichiers</b></td><td><b>Taille</b></td></TR>", "</table>"));
  tab ("lock", ,0);
  #351;