PureBoard

Verfasst: **11.09.2006 22:27**

@al90: die Blumen hab ich Dir gern überreicht.

Neue Codes kannst Du gern in Code Tips&Tricks posten, da haben erstens alle sofort etwas davon und zudem werden diese Unterforen (im deutschen + englischen Forum) die ersten Quellen sein, woraus ich neue Codes ins Archiv aufnehme.

@hardfalcon: wie ich schon weiter oben geschrieben habe - die Ideen rund um technische Verbesserungen sind alle nicht schlecht, es mangelt aber an wirklichen Mitmachern. Siehe PureWiki oder auch hier, wo ich bisher auch keine/kaum Unterstützung sehe...

@Mods: evtl. könntet ihr ja mal diesen Thread nach "Allgemein" verschieben und sticky machen, damit er besser gefunden wird als in der Laberecke. Danke.

Verfasst: **11.09.2006 23:18**

Andre hat geschrieben:@al90: die Blumen hab ich Dir gern überreicht.

Andre hat geschrieben:Neue Codes kannst Du gern in Code Tips&Tricks posten, da haben erstens alle sofort etwas davon und zudem werden diese Unterforen (im deutschen + englischen Forum) die ersten Quellen sein, woraus ich neue Codes ins Archiv aufnehme.

OK dann werde ich zukünftig auch Headers anhängen damits für die integration ins CAV leichter wird.

Verfasst: **11.09.2006 23:20**

al90 hat geschrieben:OK dann werde ich zukünftig auch Headers anhängen damits für die integration ins CAV leichter wird.

Schön

Zur Übersicht hier gleich nochmal die Header-Zeilen im aktuellen Format:

Code: Alles auswählen

; German forum: 
; Author: 
; Date: 
; OS: Windows
; Demo:

Verfasst: **11.09.2006 23:22**

Wow das war schnell. genau das war ich gerade am suchen.

Verfasst: **03.10.2006 11:03**

Ich möchte diesen Thread mal wieder "hochholen", da immer noch Unterstützung gefragt ist.

Leider habe ich bisher noch gar nichts gesehen, selbst wo dies wie von Ground0 angekündigt wurde.

Schon etwas enttäuschend...

Das stellt zwar das neue Release vom CodeArchiv nicht in Frage, aber es dauert eben wesentlich länger.

Verfasst: **03.10.2006 13:31**

Kannst du denn vielleicht nochmal sagen, was noch zu konverteiren ist? Wollte gerade den Code nach PB4 übersetzen, der die Größe eines Directories in Bytes zurückgibt.

Wie müssten dann die Header-Zeilen lauten? Ich würde es sonst so machen:

Code: Alles auswählen

; Author: AND51
; Date: 3. October 2006

Verfasst: **03.10.2006 13:47**

AND51 hat geschrieben:Kannst du denn vielleicht nochmal sagen, was noch zu konverteiren ist? Wollte gerade den Code nach PB4 übersetzen, der die Größe eines Directories in Bytes zurückgibt.

Wie müssten dann die Header-Zeilen lauten? Ich würde es sonst so machen:
Code: Alles auswählen
; Author: AND51
; Date: 3. October 2006

Noch zu konvertierende Codes gibt es komplett mit Link auf den Seiten 1 und 2 dieses Threads in meinen Posts aufgelistet.

Die Headerzeilen eines konvertierten Codes sehen z.B. so aus:

Code: Alles auswählen

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1566&highlight=
; Author: Dennis (updated for PB4.00 by blbltheworm + Andre)
; Date: 01. July 2003
; OS: Windows
; Demo: Yes

Das heißt, dass der originale Autor und das Datum erhalten bleiben. Beim Autor in Klammern dahinter kann sich der "Konverter" verewigen....

Verfasst: **03.10.2006 13:55**

OK, habe hier ein Beispiel. Leider fällt mir das mit dem Author und dem Forum Link schwer, denn ich habe den Code ja komplett neu geschrieben (statt angepasst, es ist z. B. kein ASM mehr nötig) und gepostet habe ich es (außer in diesem Thread) auch noch nicht.

Edit: Diesen Link habe ich überarbeitet: http://www.purearea.net/pb/CodeArchiv/F ... e_Bytes.pb

Schauen wir mal, was draus wird:

Code: Alles auswählen

; Forum: (no link available)
; Author: AND51
; Date: 3. October 2006
; Version: PB 4.00
; OS: Windows
; Demo: Yes

Procedure.q GetDirectorySize(path.s, size.q=0)
	Protected dir.l=ExamineDirectory(#PB_Any, path, "")
	If dir
		While NextDirectoryEntry(dir)
			If DirectoryEntryType(dir) = #PB_DirectoryEntry_File
				size+DirectoryEntrySize(dir)
			ElseIf Not DirectoryEntryName(dir) = "." And  Not DirectoryEntryName(dir) = ".."
				GetDirectorySize(path+DirectoryEntryName(dir)+"\", size)
			EndIf
		Wend
		FinishDirectory(dir)
	EndIf
	ProcedureReturn size
EndProcedure

; If you call this procedure, leave out the second parameter!
; Returning value will be a quad; this value is the size of the directory and its subdirectories in bytes.
Debug GetDirectorySize("C:\")

Ich benutze TABs zum Einrücken anstelle von Leerzeichen; daher der Platzverbrauch.

Bin gern für weitere Diskussionen offen.

Verfasst: **03.10.2006 16:59**

@AND51: das passt schon so, wenn Du den Code komplett neugeschrieben hast. Dann werden diese ausgetauscht.

@Alle: damit dieses Thema hier nicht in der Laberecke verkümmert, habe ich im Ankündigungs-Forum einen neuen Thread erstellt:
CodeArchiv für PB v4 - aktueller Status & Mithelfer gesucht

Dort werde ich auf fortlaufend eine aktualisierte Liste der noch zu konvertierenden Codes veröffentlichen.

PureBoard

PB Codearchiv - Übersetzer gesucht (nach PB 4)