Webseitenzusammensetztool

Übersicht

BlitzBasic

Codearchiv

	Triton Betreff: Webseitenzusammensetztool	So, Jul 11, 2004 23:56 Antworten mit Zitat
Folgenden Code habe ich mir vor einigen Jahren geschrieben, als die Community noch Jung und das Menü meiner Seite immer länger wurde Wenn man seine Seite Tabellenbasiert kreiert hat und etwas am Menü ändern will, müsste man dies per Hand in allen HTML-Dateien machen, oder PHP können. Ich hatte zu beidem keine Lust. Dieses Tool setzt im Grunde also nur 3 Dateien zusammen: - die Datei mit dem Menü, tabellenanfängen etc (menu1.txt) - die Inhaltsdatei (werden aus files.txt ausgelesen) - der Abschlussdatei (also wo alle Tabellen+html geschlossen wird - menu2.txt) Wichtig ist, dass die inhaltsdateien alle das gleiche "Format" haben, d.h dass der eigentliche inhalt, ohne HTML-Header immer nach der gleichen Zeilenanzahl beginnt (bei mir nach 23 Zeilen). Man muss sich also files.txt mit allen zu bearbeitenden Inhaltsdateien, menu1.txt mit dem Anfang und menu2.txt mit dem Ende der entstandenen Datei anlegen. Verstanden? Ok, hier der Code: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,1 SetBuffer BackBuffer() Delay 1000 aktuellesverz$ = "d:\ablage\zusammensetz\" ; <- individuell anpassen anfangszeilen=23 ;individuell anpassen files1 = OpenFile("files.txt") ;Datei mit allen zu relevanten Dateien öffnen und Zeilenanzahl rauskriegen While Not Eof(files1) anzahl% = anzahl%+1 zeilen$ = ReadLine(files1) Wend CloseFile files1 Dim dateien$(0,anzahl) ;1D Array mit Dateienanzahl erstellen files2 = OpenFile("files.txt") ;Array mit Dateinamen füllen For oft1% = 0 To anzahl-1 dateien$(0,oft1%) = ReadLine(files2) Next CloseFile files2 For oft2% = 0 To anzahl-1 CopyFile aktuellesverz$+"menu1.txt", aktuellesverz$+dateien(0,oft2%) souce = OpenFile("d:\"+dateien$(0,oft2%)) While Not Eof(souce) ;Zeilenanzahl der Quelldatei ermitteln bla1$ = ReadLine(souce) soucez% = soucez% + 1 Wend CloseFile souce souce = OpenFile("d:\"+dateien$(0,oft2%)) For oft3% = 0 To anfangszeilen-1 ;die ersten unwichtigen Zeilen umgehen bla2$ = ReadLine(souce) Locate 1,1 Print "Zeilen/Dateien bearbeitet/gesamt Dateien:"+ soucez%+"/"+oft2%+"/"+anzahl% Next ziel = OpenFile(aktuellesverz$+dateien(0,oft2%)) While Not Eof(ziel) bla4$= ReadLine(ziel) Wend For oft4% = anfangszeilen To soucez%-3 ;Main-content einlesen bla4$ = ReadLine(souce) WriteLine ziel,bla4$ Next CloseFile souce menue2 = OpenFile(aktuellesverz$+"menu2.txt") ;und menu2.txt hinten dranhängen While Not Eof(menue2) bla5$ = ReadLine(menue2) WriteLine ziel, bla5$ Wend CloseFile menue2 CloseFile ziel soucez% = 0 Flip Cls Next End (keine hinweise auf schlechten Code, das ganze ist Jahre alt ) Meine gesamte Webseite (>150 html dateien) wird so in wenigen Sek zusammengesetzt.

Triton

Betreff: Webseitenzusammensetztool

So, Jul 11, 2004 23:56
Antworten mit Zitat

Folgenden Code habe ich mir vor einigen Jahren geschrieben, als die Community noch Jung und das Menü meiner Seite immer länger wurde Wink

Wenn man seine Seite Tabellenbasiert kreiert hat und etwas am Menü ändern will,
müsste man dies per Hand in allen HTML-Dateien machen, oder PHP können. Ich hatte zu beidem keine Lust.

Dieses Tool setzt im Grunde also nur 3 Dateien zusammen:
- die Datei mit dem Menü, tabellenanfängen etc (menu1.txt)
- die Inhaltsdatei (werden aus files.txt ausgelesen)
- der Abschlussdatei (also wo alle Tabellen+html geschlossen wird - menu2.txt)

Wichtig ist, dass die inhaltsdateien alle das gleiche "Format" haben, d.h
dass der eigentliche inhalt, ohne HTML-Header immer nach der gleichen Zeilenanzahl beginnt (bei mir nach 23 Zeilen).

Man muss sich also files.txt mit allen zu bearbeitenden Inhaltsdateien, menu1.txt mit dem Anfang und menu2.txt mit dem Ende der entstandenen
Datei anlegen.

Verstanden? Ok, hier der Code:

BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,16,1
SetBuffer BackBuffer()
Delay 1000
aktuellesverz$ = "d:\ablage\zusammensetz\"     ; <- individuell anpassen
anfangszeilen=23         ;individuell anpassen

files1 = OpenFile("files.txt")		;Datei mit allen zu relevanten Dateien öffnen und Zeilenanzahl rauskriegen
While Not Eof(files1)
	anzahl% = anzahl%+1
	zeilen$ = ReadLine(files1)
Wend
CloseFile files1

Dim dateien$(0,anzahl)				;1D Array mit Dateienanzahl erstellen

files2 = OpenFile("files.txt")		;Array mit Dateinamen füllen
For oft1% = 0 To anzahl-1	
	dateien$(0,oft1%) = ReadLine(files2)
Next
CloseFile files2

For oft2% = 0 To anzahl-1
	CopyFile aktuellesverz$+"menu1.txt", aktuellesverz$+dateien(0,oft2%)
	souce = OpenFile("d:\"+dateien$(0,oft2%))
		While Not Eof(souce)		 ;Zeilenanzahl der Quelldatei ermitteln
			bla1$ = ReadLine(souce)
			soucez% = soucez% + 1
		Wend
	CloseFile souce
	souce = OpenFile("d:\"+dateien$(0,oft2%))
		For oft3% = 0 To anfangszeilen-1			;die ersten unwichtigen Zeilen umgehen
			bla2$ = ReadLine(souce)
			Locate 1,1
			Print "Zeilen/Dateien bearbeitet/gesamt Dateien:"+ soucez%+"/"+oft2%+"/"+anzahl%
		Next
		ziel = OpenFile(aktuellesverz$+dateien(0,oft2%))
		While Not Eof(ziel)
			bla4$= ReadLine(ziel)
		Wend
		For oft4% = anfangszeilen To soucez%-3	;Main-content einlesen
			bla4$ = ReadLine(souce)
			WriteLine ziel,bla4$
		Next
	CloseFile souce
	menue2 = OpenFile(aktuellesverz$+"menu2.txt")	;und menu2.txt hinten dranhängen
	While Not Eof(menue2)
		bla5$ = ReadLine(menue2)
		WriteLine ziel, bla5$
	Wend
	CloseFile menue2
	CloseFile ziel
	soucez% = 0
	Flip
	Cls
Next

End

(keine hinweise auf schlechten Code, das ganze ist Jahre alt user posted image

)

Meine gesamte Webseite (>150 html dateien) wird so in wenigen Sek zusammengesetzt.