IWEG Datacom

Ordner in HTML umwandeln

Björn Morawitz — Thu, 05 Aug 2010 22:42:24 +0000

Folgendes Problem: eine bestehende Ordnerstruktur auf eine CD brennen und eine index.html dazupacken.

kurzes Googlen brachte zwar allerlei PHP-Skripte zu Tage, aber kein wirkliches Programm. Nur der Tipp wie man es in WYSIWYG Editor XYZ macht.

Nach einiger Zeit habe ich dann hier ein Visual Basic Script gefunden welches vielversprechend aussah. Leider war es defekt und musste noch angepasst werden. Kurzerhand hier ist das Ergebnis:

dim gesamt
Set MyFiles = CreateObject(“Scripting.FileSystemObject”)
Set MyShell = CreateObject(“WScript.Shell”)

Set args=wscript.arguments
if args.count=0 then
install
else
start = args(0)
end if

if asc(right(start,2)) = 126 then start=inputbox(“Anfangsverzeichnis mit kurzem Dateinamen ok?”,,start)
if start = “” then wscript.quit
Set Verz = MyFiles.GetFolder(start)

DateiFilter = ucase(InputBox(“Welchen Dateityp wollen Sie auflisten? Geben Sie die Dateierweiterung ein ( * für ALLE).”,,”*”))
If DateiFilter = “” Then WScript.Quit

Do
i=instr(start,”\”)
start=mid(start,i+1)
loop while instr(start,”\”)

if start = “” then start = left(args(0),1)
typ=DateiFilter
if typ=”*” then typ = “ALLE”
Index = typ & ” Dateien” & ” unter ” & start & “.htm”
IndexFile = Verz &”\” & Index
IndexFile = replace(indexfile,”\\”,”\”)

Set TextFile = MyFiles.CreateTextFile(IndexFile, True)
TextFile.Writeline “”
TextFile.Writeline “”
Subsearch Verz
TextFile.Writeline “
” & string(60, “*”) & “
”
TextFile.Writeline “
Dateien insgesamt unter ” & start & “: ” & gesamt & “
”
TextFile.Writeline “”
TextFile.WriteLine “”
TextFile.Close
i=myshell.run(chr(34) & indexfile & chr(34))

Sub SubSearch(Byval Verz)
filesearch verz
Set Weitere = Verz.SubFolders
For Each AktuellerOrdner In Weitere
i=instr(AktuellerOrdner,”Temporary Internet Files”)
if i = 0 then SubSearch AktuellerOrdner
Next
End Sub

Sub Filesearch(Byval AktuellerOrdner)
Set Dateien=AktuellerOrdner.Files
z = 0
For Each Datei in Dateien
If DateiFilter = “*” OR ucase(MyFiles.GetExtensionName(Datei.Path)) = DateiFilter Then
z = z + 1
if z = 1 then TextFile.Writeline “
” & typ & ” Dateien unter ” & AktuellerOrdner & “
”
Pfad = Replace(Datei, “\”, “/”, 1)
TextFile.Writeline “” & ucase(datei.name) & “
”
End If
Next
if z > 0 then
gesamt = gesamt + z
if z = 1 then
TextFile.Writeline “
” & z & ” Datei

”
else
TextFile.Writeline “
” & z & ” Dateien

”
end if
end if
End Sub

sub install()
On Error Resume Next
installed=MyShell.RegRead(“HKEY_CLASSES_ROOT\folder\Shell\HTML-Index\Command\”)
if installed = “” then
Set c = MyShell.Environment(“PROCESS”)
winverz=c(“WINDIR”)
neu=”wscript.exe ” & winverz & “\index.vbs ” & chr(34) & “%1″ & chr(34)
MyShell.RegWrite(“HKEY_CLASSES_ROOT\folder\Shell\HTML-Index\Command\”),neu
PCWScript = WScript.ScriptFullName
set pcwcopy=MyFiles.Getfile(PCWScript)
installpath=winverz & “\index.vbs”
pcwcopy.copy(installpath)
msgbox “Script ist jetzt installiert, siehe ==> HKEY_CLASSES_ROOT\Folder\SHELL\HTML-Index.” & chr(10) & chr(13) & “Aufruf über Ordner-Kontextmenü ‘HTML-Index’”
wscript.quit
Else
m=myshell.popup(“HTML-Index deinstallieren?”,,”Uninstall”,4)
if m=6 then MyShell.RegDelete(“HKCR\Folder\Shell\HTML-Index\”)
end if
wscript.quit
end sub

Das Skript installiert sich beim ersten Aufruf automatisch im System und ist danach über das Kontextmenü im Explorer aufzurufen. Die HTML-Datei wird im ersten Unterordner erstellt und enthält neben den Dateien in den Unterverzeichnissen auch sich selbst als Link.

Dazu kommt noch der Fehler, dass die Links nicht relativ sondern absolut angeben werden. Sollte ich das Skript noch einmal benötigen werd ich das noch anpassen, aber fürs Erste hat es mir gut geholfen und ich denke auch allen die das hier lesen.

BTW: sollte jemand nicht wissen wie man mit VBS-Skripten umgeht: obigen Quelltext in eine Datei mit der Endung .vbs speichern und einmalig ausführen. Das Skript installiert sich dann von selber. Danach kann das Skript an der Stelle gelöscht werden.

Quickie: Targa Wlan Router WR 500 VOIP

Björn Morawitz — Sun, 11 Jul 2010 17:59:26 +0000

Grad herausgefunden: wenn man NAT bei einem Targa WR 500 VOIP einrichten möchte und sich wundert warum der betreffende Zielrechner nich in der Übersicht erscheint: einfach einen Ping vom PC auf den Router absetzen und schon ist er identifiziert.
Das hat mich fast den ganzen Tag gekostet das rauszufinden :)

Notebook Servicemanuals

Björn Morawitz — Thu, 13 May 2010 12:30:05 +0000

Wer einen defekten Laptop hat kann sich heut meist nur noch fürs Wegschmeißen entscheiden. Die Reparaturpauschalen übersteigen schnell den Wert eines neuen Notebooks und selber machen ist meist nicht.

Es sei denn man hat eine sogenannte Service Manual. Dort werden alle notwendigen Schritte erklärt um das ein oder andere Teil tauschen zu können. Meist ist schon der Ausbau der Tastatur ein Abenteuer für sich wenn man nicht weiß welche Schraube wo zu lösen ist. Wer also mal die CMOS-Batterie tauschen oder die Tastatur reinigen möchte findet hier eine kleine (noch wachsende) Sammlung von Anleitungen.

Hier der Versuch einer kleinen Liste:

Apple

Nichts offizielles, aber eine engagierte Fangemeinde: applerepairmanuals.com

Dell

Dell bietet selber Service Manuals an: dell.com

Gericom

Gericom Reparaturanleitungen gibt es sinnvollerweise bei…. Uniwill! =;) Dieser ungarische Hersteller zeichnet für die Gericom Modelle. Zu finden sind die Anleitungen hier.

IBM/Lenovo

IBM war bekannt für seine Hardware Maintenance Manuals. Lenovo führt diese Tradition fort. Zu finden sind sie unter http://www-307.ibm.com/pc/support/site.wss/product… oder unter thinkwiki.org.

Diverse

eine große Auswahl an Manuals (nicht nur für Laptops) bietet auch eserviceinfo.com an. Und zwar nicht nur reine Ausbauanleitungen. Wer will kann sich auch technische Zeichnungen zum Bus-Aufbau seines Laptop suchen und zum Lötkolben greifen!

und zu guter Letzt auch noch diplodocs.de. Zwar keine Service Manuals, aber dafür die größte Datenbank an Handbüchern und Bedienungsanleitungen im deutschsprachigen Raum. Nachtrag: den gleichen Service gibts auch unter http://de.nodevice.com/

Opera Passwörter auslesen

Björn Morawitz — Thu, 22 Apr 2010 21:59:55 +0000

Wer kann sich schon noch alle Logins für alle Seiten merken bei denen er sich je angemeldet hat? Kaum jemand, oder?

Aus diesem Grund gibt es auch immer mehr Password-Safes, also Programme in denen man seine Passwörter und Logins speichert und bei Bedarf abrufen kann. Auch Opera kommt mit einer solchen Funtkion: früher Wand (Zauberstab) heute schlicht Passwort-Manager genannt.

Das ganze hat nur einen Haken: einmal eingegeben kann man das Passwort zwar immer wieder automatisch einfügen lassen, aber sehen kann man es standardmäßig nicht.

Vor einigen Jahren habe ich mir deshalb schon einen Button geholt um diese Funktion nachzurüsten. Aus aktuellem Anlass habe ich den auch mal wieder hervorgekramt und hier gefunden:

http://operawiki.info/PowerButtons#retrievewand

Will man aber mal alle Passwörter auf einmal wissen (z.B. um ein neues System aufzusetzen) ist es etwas umständlich. Zumal man nur schwer nachschauen kann wofür man überhaupt alles ein Passwort gespeichert hat.

Dafür habe ich folgendes gefunden:

opera_passwoerter_auslesen

Einfach irgendwo entpacken, wand.dat reinkopieren und in der Eingabeaufforderung (Windows!) wie folgt aufrufen

unwand.exe wand.dat

Die Ausgabe erfolgt in der Konsole, kann aber mit

undwand.exe wand.dat >> output.txt

einfach in eine Datei umgeleitet werden.

Das Programm ist übrigens nicht von mir, sondern von hier. Ist vielleicht nicht mehr ganz taufrisch und eventuell gibt es auch schon schöneres, aber es funktioniert. Getestet u.a. mit Opera 10.51 und Windows 7 Pro 32 Bit. Außerdem ist der Quellcode offen verfügbar und erlaubt auch eine Kompilierung auf anderes Systemen.

Bildschirmgrößen II

Björn Morawitz — Wed, 21 Apr 2010 19:56:42 +0000

Passend zum Artikel Bildschirmgrößen jetzt auch einige grafische Darstellungen:

Die Bilder sind so eher schlecht zu erkennen, deshalb gibt es hier die Bilddateien auch gepackt zum Download. Und hier gibt es die dazugehörige Excel-Tabelle.

Bildschirmgrößen

Björn Morawitz — Wed, 21 Apr 2010 09:16:49 +0000

Oder: was sind 19 Zoll?

Ganz oft taucht die Frage auf, wie groß denn so ein Bildschirm ist. Besonders beim Umstieg von 4:3 auf 16:9. Da arbeiten Leute jahrelang mit einem 14 Zöller in 4:3 und sehen sich gezwungen mit dem neuen Laptop auf 16:9 oder 16:10 umzusteigen. Da stellt sich immer die Frage: “Wie hoch ist denn 17″ in 16:9?”

Die Formeln dafür ergeben sich aus dem Satz des Pythagoras: a² + b² = c²

Bei 16:9 gilt zudem a = 16x und b = 9x

Durch Umstellung ergeben sich dann folgende Formeln:

Für 16:9
Breite = 16·√(16²+9²):c
Höhe = 9·√(16²+9²):c

Für 4:3
Breite = 4·√(4²+3²):c
Höhe = 3·√(4²+3²):c

Für 16:10
Breite = 16·√(16²+10²):c
Höhe = 10·√(16²+10²):c

Für einige Diagonalen habe ich das mal in Excel ausrechnen lassen. Die Diagonalen sind nicht willkürlich sondern entstammen der Detailsuche eines Notebookshops.


		16:09
Zoll	cm	Breite	Höhe
8,9	22,606	19,7028366	11,0828456
10	25,4	22,1380186	12,4526355
11,6	29,464	25,6801016	14,4450572
12,1	30,734	26,7870026	15,0676889
13,1	33,274	29,0008044	16,3129525
13,3	33,782	29,4435648	16,5620052
14	35,56	30,9932261	17,4336897
14,1	35,814	31,2146063	17,558216
15,4	39,116	34,0925487	19,1770586
16	40,64	35,4208298	19,9242168
17	43,18	37,6346317	21,1694803
18,6	47,244	41,1767147	23,161902
19	48,26	42,0622354	23,6600074
20	50,8	44,2760373	24,905271
21	53,34	46,4898392	26,1505345
22	55,88	48,703641	27,3957981
22,3	56,642	49,3677816	27,7693771
22,6	57,404	50,0319221	28,1429562
24	60,96	53,1312447	29,8863252
32	81,28	70,8416597	39,8484336

		4:3
Zoll	cm	Breite	Höhe
8,9	22,606	17,4021069	13,0515802
10	25,4	19,5529291	14,6646968
11,6	29,464	22,6813978	17,0110483
12,1	30,734	23,6590442	17,7442832
13,1	33,274	25,6143371	19,2107529
13,3	33,782	26,0053957	19,5040468
14	35,56	27,3741008	20,5305756
14,1	35,814	27,5696301	20,6772225
15,4	39,116	30,1115108	22,5836331
16	40,64	31,2846866	23,4635149
17	43,18	33,2399795	24,9299846
18,6	47,244	36,3684482	27,2763361
19	48,26	37,1505653	27,862924
20	50,8	39,1058582	29,3293937
21	53,34	41,0611511	30,7958634
22	55,88	43,0164441	32,262333
22,3	56,642	43,6030319	32,7022739
22,6	57,404	44,1896198	33,1422149
24	60,96	46,9270299	35,1952724
32	81,28	62,5693732	46,9270299

		16:10
Zoll	cm	Breite	Höhe
8,9	22,606	19,1698497	11,981156
10	25,4	21,5391569	13,4619731
11,6	29,464	24,985422	15,6158888
12,1	30,734	26,0623799	16,2889874
13,1	33,274	28,2162956	17,6351847
13,3	33,782	28,6470787	17,9044242
14	35,56	30,1548197	18,8467623
14,1	35,814	30,3702113	18,981382
15,4	39,116	33,1703017	20,7314385
16	40,64	34,4626511	21,5391569
17	43,18	36,6165668	22,8853542
18,6	47,244	40,0628319	25,0392699
19	48,26	40,9243982	25,5777488
20	50,8	43,0783138	26,9239462
21	53,34	45,2322295	28,2701435
22	55,88	47,3861452	29,6163408
22,3	56,642	48,0323199	30,0202
22,6	57,404	48,6784946	30,4240592
24	60,96	51,6939766	32,3087354
32	81,28	68,9253021	43,0783138

Ganz nebenbei: die Formeln habe ich mit dem HTML-Formeleditor von mathe-online.at erstellt.

Skype in Taskleiste unter Windows 7

Björn Morawitz — Sun, 18 Apr 2010 11:21:55 +0000

Neue Netbooks kommen meist mit einer Kamera. Und auch meist mit Windows 7. Da bietet es sich ja an, Videtelefonie mit Skype zu betreiben. Leider hat Skype unter Windows 7 einen kleinen Nachteil: es minimiert sich in die Taskleiste und nicht in den System-Tray!

Ein kleiner Trick kann da Abhilfe schaffen: einfach Skype im Kompatibilitätsmodus ausführen! Da zu Skype erst einmal beenden, die Skype Verknüpfung im Startmenü mit der rechten Maustaste anklicken und auf “Eigenschaften” gehen.

Unter “Kompatibilität” muss man dann den Haken bei “Programm im Kompatibilitätsmodus ausführen für” machen und bei den Systemen dann “Windows Vista (Service Pack 2)” auswählen. Alle Angaben dann mit OK bestätigen. Fertig!

Wenn man Skype jetzt startet wird es in den Tray minimiert und nicht mehr in die Taskleiste.

Laptop mit TV verbinden

Björn Morawitz — Wed, 31 Mar 2010 21:37:32 +0000

Vor einiger Zeit habe ich eine Übersicht erstellt die zeigt wie man einen Laptop mit einem TV-Gerät verbinden kann. Da wieder aktuelles Interesse daran bestand habe ich die Übersichtsmatrix mal hier hochgeladen: Laptop-TV

Natürlich eignet sich die Übersicht auch für alle anderen Gerätearten, es werden nur die verschiedenen Ein- und Ausgänge gegenüber gestellt.

Die Matrix ist schon etwas älter und bedarf eigentlich einer Frischzellenkur. Auch das Format könnte mal von PDF auf irgendwas updatefreundlicheres umgestellt werden. Sollte Bedarf daran bestehen oder auch wenn jemand einen Fehler findet: einfach einen Kommentar schreiben

Menüleiste bei Opera 10.51 wieder herstellen

Björn Morawitz — Sun, 28 Mar 2010 19:05:00 +0000

Wenn man Opera auf die Version 10.51 aktualisiert bemerkt man so einige Veränderungen. Manche sind erfrischend, andere nur verwirrend. So fehlt z.B. die obere Menüleiste mit Datei, Bearbeiten, Ansicht, etc… Wenn man unter Extras -> Erscheinungsbild schaut sucht man vergebens. Das Menü versteckt sich oben links und ist auch da wieder herzustellen:

Opera nach dem Update auf 10.51

Die Menüleiste ist oben links versteckt

Mit "Menü zeigen" lässt sie sich wieder herstellen

Opera 10.51 mit gewohnter Menüleiste

Smarty (und xt:commerce)

Björn Morawitz — Thu, 25 Mar 2010 08:17:42 +0000

Für die neue Suchmaschine apnoti.com musste eine Schnittstelle für xt:commerce erstellt werden. Da die Ausgabe über das Template erfolgt, die Daten aber (unformatiert) vorher in den PHP-Dateien generiert werden erfolgt die Ausgabe xtc-typisch über Smarty-Tags.

Da ich jedes mal wieder überlegen und probieren muss habe ich mich mal auf die Suche nach einigen guten Übersichten gemacht und diese hier gefunden:

http://www.waaza.eu/07/02/2008/smarty-grundlagen/ beschreibt die Basics. Also wirklich so eine Art Cheat-Sheet für Smarty

http://www.gunnart.de/tipps-und-tricks/sma… ist schon etwas detaillierter und geht mehr auf die Modifier ein. Aber immer noch recht einfach zu verstehen.

http://www.smarty.net/crashcourse.php Crashkurs in Sachen Smarty auf einer der umfangreichsten Seiten zu dem Thema: smarty.net selber