Leinwandliebe Community Top-100

[Munin]

Hä also Kolle, du weißt schon, dass du nicht 100 Filme nennen musst oder?

[diceman]

Top-30 war's immer.
Eine Liste mit 30 Filmen schafft man aber locker.

[Dr. Fu Manchu]

Sind ja eh schon 10 Votes ? Wann geht es los lol?

[Con Trai]

Bin startbereit.

[diceman]

Habe heute Bereitschaftsdienst, morgen kommt der offizielle Startschuss.
Prinzipiell könnt ihr aber schon eure Listen "kompilieren."

- 30 Filme (keine Serien).
- Reihenfolge egal.
- Jeder Film in eine eigene Zeile.
- Hinter den Filmtitel den imdb-Link (wichtig ist eigentlich nur die "tt"-ID-Number in der URL).

Beispiel:

RAMPAGE 2: CAPITAL PUNISHMENT - https://www.imdb.com/de/title/tt3448226
ROBIN HOOD: GHOSTS OF SHERWOOD - https://www.imdb.com/de/title/tt1572503
LE MEPRIS - https://www.imdb.com/de/title/tt0057345

Schickts mir am liebsten als PM hier im Forum.
Wer mir als erstes seine Liste schickt, wird bekommt die meinige im Gegenzug. Bevor ich meine Liste fertig habe, werde ich aber auch in keine PM schauen, um mich nicht beeinflussen zu lassen. Also lasst euch Zeit. <3
//EDIT:
Con Trai war erster.

Am Ende werden wieder alle Einzel-Listen veröffentlicht.

[Munin]

Gibts ne Frist? Bin grad noch viel unterwegs, aber ich schau mal ob ich es innerhalb von 7 Tagen schaffe.

[diceman]

Geht schon los, die ersten Listen sind bereits eingetrudelt, und Con Trai hat sich zum "Keeper" der meinigen qualifiziert.
Eine Frist gibt es erstmal nicht. Ich warte jetzt, bis ich zumindest 11 zusammen habe (vong Poll-Ergebnis her), und dann gucken wir weiter.
Vielen Dank fürs Mitmachen. <3

Nochmal zum Mitschreiben:
- 30 Filme für die Insel (ohne Ranking)
- Nicht 29 Filme, nicht 31. Genau 30.
- Schickt's mir als PM hier im Forum
- Unbedingt imdb-Link beifügen!

Einreichungen von frisch angemeldeten Usern (nach Datum dieses Postings) können leider nicht berücksichtigt werden.
Es sei denn ihr gehört zur "schwarz/gelben Gang".




//Aktualisierte Teilnehmer-Liste
• Con Trai
• Blaupause
• Nahaufnahme
• diceman
• Dr. Fu Manchu
• Flynn91

[Dejin]

Bei mir hoffentlich in den nächsten 3-5 Tagen...

[diceman]

Wir haben bereits 7 Mehrfach-Nennungen. Der aktuelle erste Platz wurde 3x genannt; nein, es ist (noch) nicht ALIEN.
Habe mir außerdem ein schönes persönliches "Geschenk" überlegt, für jeden Teilnehmer, der eine Liste einreicht. <3
Ihr dürft gespannt sein (und werdet euch ärgern, wenn ihr nicht teilnehmt) ...

Wen es interessiert, hier das Script (in PureBasic):
Der Ordner wird gescannt nach Textfiles. imdb-IDs werden aus dem File extrahiert, "gesäubert", und mit allen bislang gescannten IDs im pool verglichen. Falls keine Übereinstimmung, wird ein neuer Eintrag im Pool generiert. Falls schon vorhanden, wird der Counter für den entsprechenden Eintrag um +1 erhöht. Anschließend wird die Liste gemäß der Nennungen sortiert und als funktionierende Links angezeigt.

Code: Select all

EnableExplicit
Declare readList(this$)

Structure _MOVIE
	movieID.s
	count.i
EndStructure
Global NewList movieTitle._MOVIE()


If ExamineDirectory(0, "", "*.txt*")
	While NextDirectoryEntry(0)
		readList(DirectoryEntryName(0))
	Wend
	FinishDirectory(0)
EndIf

SortStructuredList(movieTitle(), #PB_Sort_Descending, OffsetOf(_MOVIE\count), TypeOf(_MOVIE\count))
ForEach movieTitle()
	Debug "https://www.imdb.com/title/"+movieTitle()\movieID+"  x"+movieTitle()\count
Next

End





Procedure readList(this$)
	Protected NewList readLine$()
	Define pos, exists
	
	If ReadFile(1, this$)
		Repeat
			AddElement(readLine$())
			readLine$() = ReadString(1)
		Until Eof(1)
		CloseFile(1)
	EndIf
	
	ForEach readLine$()
		pos = FindString(UCase(readLine$()), "/TT")
		If pos
			readLine$() = Right(readLine$(), Len(readLine$())-pos)
			readLine$() = Trim(readLine$(), "/")
			readLine$() = Trim(readLine$(), " ")
			exists = #False
			ForEach movieTitle()
				If movieTitle()\movieID = readLine$()
					exists = #True
					movieTitle()\count +1
					Break
				EndIf
			Next
			If Not exists
				AddElement(movieTitle())
				movieTitle()\movieID = readLine$()
				movieTitle()\count = 1
			EndIf
		EndIf
	Next
EndProcedure

[Con Trai]

Wen es interessiert, hier das Script (in PureBasic):
Der Ordner wird gescannt nach Textfiles. imdb-IDs werden aus dem File extrahiert, "gesäubert", und mit allen bislang gescannten IDs im pool verglichen. Falls keine Übereinstimmung, wird ein neuer Eintrag im Pool generiert. Falls schon vorhanden, wird der Counter für den entsprechenden Eintrag um +1 erhöht. Anschließend wird die Liste gemäß der Nennungen sortiert und als funktionierende Links angezeigt.

Code: Select all

EnableExplicit
Declare readList(this$)

Structure _MOVIE
	movieID.s
	count.i
EndStructure
Global NewList movieTitle._MOVIE()


If ExamineDirectory(0, "", "*.txt*")
	While NextDirectoryEntry(0)
		readList(DirectoryEntryName(0))
	Wend
	FinishDirectory(0)
EndIf

SortStructuredList(movieTitle(), #PB_Sort_Descending, OffsetOf(_MOVIE\count), TypeOf(_MOVIE\count))
ForEach movieTitle()
	Debug "https://www.imdb.com/de/title/tt"+movieTitle()\movieID+"  x"+movieTitle()\count
Next

End





Procedure readList(this$)
	Protected NewList readLine$()
	Define pos, exists
	
	If ReadFile(1, this$)
		Repeat
			AddElement(readLine$())
			readLine$() = ReadString(1)
		Until Eof(1)
		CloseFile(1)
	EndIf
	
	ForEach readLine$()
		pos = FindString(UCase(readLine$()), "/TT")
		If pos
			readLine$() = Right(readLine$(), Len(readLine$())-pos)
			readLine$() = Trim(readLine$(), "/")
			readLine$() = Trim(readLine$(), " ")
			readLine$() = Trim(UCase(readLine$()), "T")
			exists = #False
			ForEach movieTitle()
				If movieTitle()\movieID = readLine$()
					exists = #True
					movieTitle()\count +1
					Break
				EndIf
			Next
			If Not exists
				AddElement(movieTitle())
				movieTitle()\movieID = readLine$()
				movieTitle()\count = 1
			EndIf
		Else
			DeleteElement(readLine$())
		EndIf
	Next
EndProcedure

[Sylvio Constabel]

Der Würfelmann ist Steve Urkel.

[Dejin]

Wen es interessiert, hier das Script (in PureBasic):
Der Ordner wird gescannt nach Textfiles. imdb-IDs werden aus dem File extrahiert, "gesäubert", und mit allen bislang gescannten IDs im pool verglichen. Falls keine Übereinstimmung, wird ein neuer Eintrag im Pool generiert. Falls schon vorhanden, wird der Counter für den entsprechenden Eintrag um +1 erhöht. Anschließend wird die Liste gemäß der Nennungen sortiert und als funktionierende Links angezeigt.

Code: Select all

EnableExplicit
Declare readList(this$)

Structure _MOVIE
	movieID.s
	count.i
EndStructure
Global NewList movieTitle._MOVIE()


If ExamineDirectory(0, "", "*.txt*")
	While NextDirectoryEntry(0)
		readList(DirectoryEntryName(0))
	Wend
	FinishDirectory(0)
EndIf

SortStructuredList(movieTitle(), #PB_Sort_Descending, OffsetOf(_MOVIE\count), TypeOf(_MOVIE\count))
ForEach movieTitle()
	Debug "https://www.imdb.com/de/title/tt"+movieTitle()\movieID+"  x"+movieTitle()\count
Next

End





Procedure readList(this$)
	Protected NewList readLine$()
	Define pos, exists
	
	If ReadFile(1, this$)
		Repeat
			AddElement(readLine$())
			readLine$() = ReadString(1)
		Until Eof(1)
		CloseFile(1)
	EndIf
	
	ForEach readLine$()
		pos = FindString(UCase(readLine$()), "/TT")
		If pos
			readLine$() = Right(readLine$(), Len(readLine$())-pos)
			readLine$() = Trim(readLine$(), "/")
			readLine$() = Trim(readLine$(), " ")
			readLine$() = Trim(UCase(readLine$()), "T")
			exists = #False
			ForEach movieTitle()
				If movieTitle()\movieID = readLine$()
					exists = #True
					movieTitle()\count +1
					Break
				EndIf
			Next
			If Not exists
				AddElement(movieTitle())
				movieTitle()\movieID = readLine$()
				movieTitle()\count = 1
			EndIf
		Else
			DeleteElement(readLine$())
		EndIf
	Next
EndProcedure

[Nahaufnahme]

Sieht schöner aus als Python oder Javaskript. Aber wirklich ohne { am Anfang und } am Ende?

[Con Trai]

[diceman]

Sieht schöner aus als Python oder Javaskript. Aber wirklich ohne { am Anfang und } am Ende?

Und sogar ohne ; am Ende jeder Zeile.
PureBasic ist vong functionality her ein Hybrid aus BASIC und C, mit wahlweise C oder Assembler als backend.
Hat sicher seine quirks, und ist im Vergleich mit Python ausgesprochen verbose, aber macht großen Spaß, läuft rasend schnell, ist ein all-inklusive Paket mit Compiler, IDE, diversen Libraries, und Debugging Tools, und geeignet für jedwede Anwendung - sei es Business Applications, Games, oder kleine Skripte. Macht BASIC-typisch keinen Unterschied zwischen Vergleichs- und Assignment-Operatoren. e.g. gibt kein ==, nur =.

Mit geschweiften Klammern kann man custom foldings kreieren, um den Code lesbarer zu machen.