AppleScript would be quite slow for so many lines.
Provided perl is installed on your system, here is an example perl filter.
Copy it to *~/Library/Application Support/BBEdit/Text
Filters/add_w_column.pl*
#!/usr/bin/env perl
use strict;
use warnings;
my $set_number = 1;
my $current_set = "";
while (my $line = <>) {
if (my ($set) = $line =~ /^(\d+-\d+:\d+ # )/) {
if ($current_set eq $set) {
$set_number++;
} else {
$set_number = 1;
$current_set = $set;
}
my $padded_set_number = sprintf("%02d", $set_number);
$line =~ s/^(\d+-\d+:\d+ # )/$1W$padded_set_number # /;
}
print $line;
}
Once installed you should be able to call it from *menu Text > Apply Text
Filter > add_w_column*.
HTH
Jean Jourdain
On Friday, July 12, 2024 at 1:35:21 PM UTC+2 Marsden Broadbent wrote:
> Hi, I have no experience of working with filters or AppleScript and I’m
> not quite sure who to ask to solve my problem, can you help?
>
> The sample below show the problem.
>
> 01-1:2 # τὸν # 3588 # T-ASM
> 01-1:2 # Ἰσαάκ, # 2464 # N-PRI
> 01-1:2 # Ἰσαὰκ # 2464 # N-PRI
> 01-1:2 # δὲ # 1161 # CONJ
> 01-1:2 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:2 # τὸν # 3588 # T-ASM
> 01-1:2 # Ἰακώβ, # 2384 # N-PRI
> 01-1:2 # Ἰακὼβ # 2384 # N-PRI
> 01-1:2 # δὲ # 1161 # CONJ
> 01-1:2 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:2 # τὸν # 3588 # T-ASM
> 01-1:2 # Ἰούδαν # 2455 # N-ASM
> 01-1:2 # καὶ # 2532 # CONJ
> 01-1:2 # τοὺς # 3588 # T-APM
> 01-1:2 # ἀδελφοὺς # 80 # N-APM
> 01-1:2 # αὐτοῦ, # 846 # P-GSM
> 01-1:3 # Ἰούδας # 2455 # N-NSM
> 01-1:3 # δὲ # 1161 # CONJ
> 01-1:3 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:3 # τὸν # 3588 # T-ASM
> 01-1:3 # Φάρες # 5329 # N-PRI
> 01-1:3 # καὶ # 2532 # CONJ
> 01-1:3 # τὸν # 3588 # T-ASM
> 01-1:3 # Ζάρα # 2196 # N-PRI
> 01-1:3 # ἐκ # 1537 # PREP
> 01-1:3 # τῆς # 3588 # T-GSF
> 01-1:3 # Θαμάρ, # 2283 # N-PRI
> 01-1:3 # Φάρες # 5329 # N-PRI
> 01-1:3 # δὲ # 1161 # CONJ
> 01-1:3 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:3 # τὸν # 3588 # T-ASM
> 01-1:3 # Ἑσρώμ, # 2074 # N-PRI
> 01-1:3 # Ἑσρὼμ # 2074 # N-PRI
> 01-1:3 # δὲ # 1161 # CONJ
> 01-1:3 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:3 # τὸν # 3588 # T-ASM
> 01-1:3 # Ἀράμ, # 689 # N-PRI
> 01-1:4 # Ἀρὰμ # 689 # N-PRI
> 01-1:4 # δὲ # 1161 # CONJ
> 01-1:4 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:4 # τὸν # 3588 # T-ASM
> 01-1:4 # Ἀμιναδάβ, # 284 # N-PRI
> 01-1:4 # Ἀμιναδὰβ # 284 # N-PRI
> 01-1:4 # δὲ # 1161 # CONJ
> 01-1:4 # ἐγέννησεν # 1080 # V-AAI-3S
> 01-1:4 # τὸν # 3588 # T-ASM
> 01-1:4 # Ναασσών, # 3476 # N-PRI
> 01-1:4 # Ναασσὼν # 3476 # N-PRI
> 01-1:4 # δὲ # 1161 # CONJ
> 01-1:4 # ἐγέννησεν # 1080 # V-AAI-3S
>
> I have many lines with the same starting pattern of (\d+-\d+:\d+ # )(Word
> etc.) To be exact there are 7957 sets in each file and I have about 25
> files each with about 140000 lines. The shortest set is two lines and the
> longest might be about 50
>
> What I need is a simple way of numbering each set consecutively. So in the
> list above the last 01-1:2 # would be numbered 16 and the first 01-1:3 #
> would be 1 and so one. (Preferably with with the letter W in front of the
> number to give 01-1:2 # W16 # word etc. - although the W can be added later
> f needed.)
>
> I am using BBEdit 12 on an iMac running High Sierra 10.13.6. The files in
> question are currently .csv
>
> If you could point me in the right direction I would find that very
> helpful.
>
--
This is the BBEdit Talk public discussion group. If you have a feature request
or believe that the application isn't working correctly, please email
"[email protected]" rather than posting here. Follow @bbedit on Mastodon:
<https://mastodon.social/@bbedit>
---
You received this message because you are subscribed to the Google Groups
"BBEdit Talk" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/bbedit/38838ee1-8f9d-4a76-bd94-68b42f47e8a9n%40googlegroups.com.
