html - Anzeigeprogramm

aroso261296 · 15.01.2008

Hallo !!

Ich suche ein Programm wo ich einen html-Text anzeigen lassen kann !!
Hintergrund ist der, das ich ein Programm habe wo ich mehrere Artikel im html-Format bearbeiten muss,
diesen aber erst nach dem Hochladen sehen kann. Dies möchte ich aber schon vorher sehen. Welche möglichkeit gibt es da ??

SchUFT_Pinky · 15.01.2008

Jeder Browser kann HTML anzeigen, bearbeiten geht mit jedem Editor.
Komfortable mit Syntax-Highlightning wären z.B. Phase 5 oder Notepad++.

Falls Datenbanken und PHP mit dranhängen, solltest Du Dir gleich mal XAMPP anschaun.

PCDpan_fee · 15.01.2008

für den Hausgebrauch ..... ;D
Im Notepad deinen Artikel schreiben mit HTML-Code und allem drum und dran - abspeichern als TXT-Datei.
Die Textdatei einfach mit der Maus auf das Skript TxTtoHTML.vbs (gezippt) ziehen und du hast eine HTML-Vorschau.
Es geht auch mit Office Word, falls zu es hast - einfach deinen Artikel im Word schreiben und normal (doc) abspeichern - die DOC-Datei mit der Maus einfach auf das Skript WordtoHTML.vbs (gezippt) ziehen.

TxTtoHTML.vbs

Code:

If WScript.Arguments.Count = 0 Then
MsgBox Bitte ein Textdokument auf das Script ziehen! ,16, Fehler
WScript.Quit

Else 
For Each Pfad In WScript.Arguments
doku = Pfad
Next
End If

Set net = CreateObject(WScript.Network) 
user = net.UserName
Set fs = CreateObject(Scripting.FileSystemObject)
Ordner = fs.GetParentFolderName(WScript.ScriptFullName)'Ordnerpfad
filename = fs.GetBaseName(doku)'Dateiname ohne Endung 
Set txt = fs.OpenTextFile(doku)
html = txt.ReadAll
txt.Close

html = Replace(html, Chr(13), &lt;br>)

Set text = fs.OpenTextFile(Ordner &amp; \ &amp; filename &amp; .htm , 2, True)
text.WriteLine &lt;!doctype html public -//W3C//DTD html 4.01 Transitional//EN>
text.WriteLine &lt;html>
text.WriteLine &lt;head>
text.WriteLine &lt;title> &amp; filename &amp; &lt;/title>
text.WriteLine &lt;meta name=author content= &amp; user &amp;>
text.WriteLine &lt;meta name=generator content=text.VBS>
text.WriteLine &lt;/head>
text.WriteLine &lt;body>
text.WriteLine html
text.WriteLine &lt;/body>
text.WriteLine &lt;/html>
text.Close 

Set ws = CreateObject(WScript.Shell)
ws.Run Chr(34) &amp; Ordner &amp; \ &amp; filename &amp; .htm &amp; Chr(34)

WordtoHTML.vbs

Code:

Beschreibung:
' Mit dem Script können per Drag &amp; Drop Word Dokumente (DOC) in .html
' Dateien konvertiert werden. Dabei wird ein neues Html- Dokument mit dem
' Namen des Word Dokuments und der Endung .html 
' in dem Ordner wo das Script liegt erstellt.
' Am original Word Dokument wird dabei nichts verändert.
' Dateien die nicht die Endung .doc haben, werden ignoriert.
' Es können auch mehrere Dokumente auf einmal konvertiert werden
' ***************************************************
Const wdFormatHTML = 8

If WScript.Arguments.Count = 0 Then
MsgBox Ziehen sie ein Worddokument _
&amp; auf das Skript! ,16, Fehler
WScript.Quit
End If

For Each Datei In WScript.Arguments
 Set objFS = CreateObject(Scripting.FileSystemObject)
 bname = objFS.GetBaseName(Datei)
->Dateiname ohnen Endung
 sname = objFS.GetParentFolderName(WScript.ScriptFullName)
->Ordnername/Pfad wo das Script liegt
 pname = objFS.BuildPath(sname, bname)
->Pfad zusammengesetzt Scriptpfad &amp; Doc-Name ohne Endung

 If objFS.GetExtensionName(Datei) = doc Then
->Datei auf Endung .doc prüfen
	Set objWord = CreateObject(Word.Application)
	Set objDoc = objWord.Documents.Open(Datei)
	objDoc.SaveAs pname &amp; .html, wdFormatHTML
	'Doc als *.html speichern
	objWord.Quit

 oeffnen->Das direkte oeffnen der Html- Datei kann 
->deaktiviert werden indem ein Hochkomma'(Raute + Shift Taste) 
->vor dem oeffnen gesetzt wird. 
 
 End If
Next

Sub oeffnen
 Set objShell = CreateObject(WScript.Shell)
 objShell.Run Chr(34) &amp; pname &amp; .html &amp; Chr(34)
End Sub

mir helfen die Skripte für das Tipparchiv.

pan_fee

html - Anzeigeprogramm

aroso261296

SchUFT_Pinky

PCDpan_fee

html - Anzeigeprogramm

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums