AT-BookMarker - AppleScript für die Genervten

Auf vielfachen Wunsch einzelner User (Hallo, landplage!) hierhin ausgelagert:

Dann versuch es mit diesem AppleScript. Es erstellt eine URL um neue Beiträge in allen Foren, außer den hiermit ausgewählten, zu erstellen.

Code:

(*
	ApfelTalk BookMarker v0.1
	© 2008 by BookMarker.Question.Skeeve at xoxy.net
	Kleines Tool zum Erstellen einer
	"Neueste Beiträge außer in den Foren …"
	URL zur Verwendung in den Lesezeichen.
	
	Aufrufen
	Foren Wählen die nicht berücksichtigt werden sollen
	OK klicken
	die URL wird angezeigt und kann mit
	OK
	ins Clipboard übernommen werden
*)
property search_url : "http://www.apfeltalk.de/forum/search.php"
property bookmark_url : "http://www.apfeltalk.de/forum/search.php?do=getnew&exclude="

on run
	set the_forums to get_forum_names(search_url)
	set the_list to {}
	repeat with the_name in every paragraph of the_forums
		set o to offset of tab in the_name
		copy text 1 thru o of the_name to the end of the_list
	end repeat
	set my_excludes to choose from list the_list with title "ApfelTalk Neue Beiträge" with prompt "Welche Foren sollen NICHT berücksichtigt werden?" with multiple selections allowed and empty selection allowed
	if my_excludes is not false then
		set the_list to {}
		repeat with the_name in my_excludes
			set o to offset of the_name in the_forums
			copy first paragraph of text (o + (length of the_name)) thru -1 of the_forums to the end of the_list
		end repeat
		set oastid to AppleScript's text item delimiters
		set AppleScript's text item delimiters to ","
		set my_excludes to the_list as text
		set AppleScript's text item delimiters to oastid
		display dialog "Die URL" & return & bookmark_url & my_excludes & return & "ins clipboard kopieren?"
		set the clipboard to bookmark_url & my_excludes
	end if
end run

to get_forum_names(the_url)
	return do shell script "/usr/bin/curl -s " & quoted form of search_url & " | /usr/bin/perl -e " & quoted form of ("
	use strict;
	use warnings;
	use Encode qw/decode/;
	binmode STDOUT,':utf8';
	my $html;
	{	local $/;
		$html= <>;
	}
	if ($html=~ m#<meta\\s+http-equiv=\"Content-Type\"\\s+content=\"text/html;\\s+charset=([^\"]+)\"#) {
		$html= decode($1, $html);
	}
	foreach ( $html=~ m#(<option[^>]+class=\"fjdpth\\d+\"[^>]*>[^<]+)#g) {
		next unless /value=\"(\\d+)\"/;
		my $value= $1;
		next unless /([^<>]+)$/;
		my $forum= $1;
		for ($forum) {
			s/ / /g;
			s/&/&/g;
		}
		print qq/$forum\\t$value\\n/;
	}
	")
end get_forum_names

Anleitung:

• Vorbereitung (einmalig)
  1. Script Editor starten (Programm ➣ AppleScript ➣ Script Editor)
  2. Obigen Code reinkopieren
  3. Sichern als Programm, Name "AT-BookMarker"
• Benutzung (jederzeit wenn man online ist)
  1. Aufrufen
  2. Foren Wählen die nicht berücksichtigt werden sollen
  3. OK klicken
  4. die URL wird angezeigt und kann mit
     OK
     ins Clipboard übernommen werden
  5. URL in die Lesezeichen reinkopieren (Browserabhängig)

 

Nicht von mir außer dem Workaround, Dir das, auf dem Mac generierte Lesezeichen auf XP zu übertragen.

 

Vielleicht hilft Dir ja mein neuestes Opus? Favelets - AT-Bookmark in einer neuen Dimension! - VBulletin Bookmark Helper