Find All command

[dag20k]

I would like a "Find All" command that will put all the lines with a the searched text found in a seperate window, like "Search Results", maybe call it "Find Results". And by clicking the lines in the Find Results window the Text Editor will go to that line for editing.

[kengrubb]

As a workaround, do a "Find In Files".

Click "Defaults" which selects the current folder.

Click the contents of "In files", then "Browse" to the current file.

I too would like to see a "Find In Current File" option which could be a simplified clone of "Find In Files".

[polebridge]

If you have perl installed then this following script will work. It will find all instances of the selected text in the current file.

#
# TP-Find-All-In-Current-File.pl
#
# Purpose: TextPad tool to FindAll in current file for the current selected text
# This is like the built-in TextPad Find-In-Files, but limited to current file.
# It produces a new window with the results of the find operation. You click
# on a line in that window to go to to the line and column in the file.
#
# Requirements: perl
#
# Caution: TextPad automatically saves the current file before running the tool. That's good
# because you can search the most up-to-date version, but bad because you may
# not have been ready to save intermediate edits.
#
# Notes: 1) Currently this tool does not allow you to regex search. In the next incarnation
# in might pop-up a "Find what:" box to allow you to provide a regex search string.
# 2) The search is case insensitive
# 3) The final "$nFound matches" lies! It is actually number of lines.
# 4) bug: won't find patterns containing " quotation mark
#
# TextPad configuration:
# Put this file on your path to allow the perl -S option to find it.
# Or under the TextPad installation directory and use the fully qual'ed form.
# Then, in TextPad:
# Configure / Preferences / Tools / Add / DOS Command
# DOS command:
# perl -S TP-Find-All-In-Current-File.pl "$File" "$SelWord" "$Line"
# (or perl "c:\Program Files\TextPad 4\bin\TP-Find-All-In-Current-File.pl" "$File" "$SelWord" "$Line" )
# Capture output, Regex should be (depending on whether you have default or POSIX RE's):
# ^([0-9]+):([0-9]+): or ^\([0-9]+\):\([0-9]+\):
# Set Line to 1, and Col to 2, leave File blank
#
# rjm June 2008
# 10jul08 rjm - added * to show the current line, the one you started on. Handy to get back.
# 03jun10 rjm - fixed install comments, \Q the pattern to find special chars
#==================================================================================================+

use strict;

my $filename = $ARGV[0]; # the name of the file we're in
my $selection = $ARGV[1]; # the selected text we're looking for
my $inline = $ARGV[2]; # the line number where the text was selected

#($!=0,die "Selection is empty or whitespace (Select some text and try again).\n") if ($selection =~ /^\s*$/ );
if ($selection =~ /^\s*$/ ) {
print "Selection is empty or whitespace (Select some text and try again).\n";
exit 0;
}
else {
print "$filename\n";
print "Searching for \"$selection\" (file $filename line $inline)\n";
print "\n";
}

open (INFILE, "<$filename") || die "Failed to open file '$filename'";
my @lines = (<INFILE>);
close INFILE;

my $linenum = 1;
my $colnum;
my $nFound=0;
my $line;
foreach $line (@lines) {
if ( $line =~ /\Q${selection}/gi ) {
$colnum = length($`) + 1; # the len of the $PREMATCH is also the colnum, yes?
my $lincol = sprintf( "%04u:%03u:%s", $linenum, $colnum, ($linenum==$inline? "*" : " ") );
print "$lincol $line"; # $line already has a \n
++$nFound;
}
$linenum = $linenum + 1;
}

print ("\nFound $nFound matches for \"$selection\"\n");