Un sencillo Editor de páginas Web
Publicado: 23 Nov 2006, 17:25
Ideal para que tus amigos hagan alguna pagina con este editor, con vista preliminar de como queda la página.
Es una versión de ejemplo para demostrar la potencia de Autoit.
link en http://www.emesn.com:8888/mas/
fichero Ejemplo_Editor_Web(1).au3
Es una versión de ejemplo para demostrar la potencia de Autoit.
link en http://www.emesn.com:8888/mas/
fichero Ejemplo_Editor_Web(1).au3
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.1.12 (beta)
Script de ejemplo para un editor/generador Web
Author: Basicos http://www.autoit.es
Puede crear una pequeña página web con Autoit este es un ejemplo para ver la potencia de este
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <IE.au3>
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("GUI menu", 880, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 420, 0, 450, 370)
$savemenu = GUICtrlCreateMenu("Archivo")
$abre = GUICtrlCreateMenuitem("Abrir", $savemenu)
$save = GUICtrlCreateMenuitem("Guardar", $savemenu)
$vor = GUICtrlCreateMenuitem("Vista Previa", $savemenu)
$zuruck = GUICtrlCreateMenuitem("Deshacer", $savemenu)
$filemenu = GUICtrlCreateMenu("Archivo")
$headmenu = GUICtrlCreateMenu("Html Básico", $filemenu)
$head = GUICtrlCreateMenuitem("Inserta Página Básica", $headmenu)
$bear = GUICtrlCreateMenuitem("Otro", $headmenu)
$url = GUICtrlCreateMenuitem("Link", $filemenu)
$mail = GUICtrlCreateMenuitem("E-Mail-link", $filemenu)
$separator1 = GUICtrlCreateMenuitem("", $filemenu)
$exititem = GUICtrlCreateMenuitem("Salir", $filemenu)
$schriftmenu = GUICtrlCreateMenu("Tipos")
$ub = GUICtrlCreateMenu("Títulos", $schriftmenu)
$h1 = GUICtrlCreateMenuitem("h1", $ub)
$h2 = GUICtrlCreateMenuitem("h2", $ub)
$h3 = GUICtrlCreateMenuitem("h3", $ub)
$h4 = GUICtrlCreateMenuitem("h4", $ub)
$h5 = GUICtrlCreateMenuitem("h5", $ub)
$h6 = GUICtrlCreateMenuitem("h6", $ub)
$big = GUICtrlCreateMenuitem("Negrita", $schriftmenu)
$unter = GUICtrlCreateMenuitem("Subrrayado", $schriftmenu)
$durch = GUICtrlCreateMenuitem("Tachado", $schriftmenu)
$kur = GUICtrlCreateMenuitem("Cursiva", $schriftmenu)
$blink = GUICtrlCreateMenuitem("Intermitente", $schriftmenu)
$lauf = GUICtrlCreateMenuitem("Corrector", $schriftmenu)
$edit = GUICtrlCreateEdit("", 10, 0, 400, 370, $ES_MULTILINE + $ES_WANTRETURN)
GUISetState()
$context = GUICtrlCreateContextMenu()
Dim $saves = @MyDocumentsDir&"\mi_pagina.html", $ausgabe
GUICtrlSetData($edit, FileRead($saves))
$actEdit = GUICtrlRead($edit)
While 1
$msg = GUIGetMsg()
$a_sel = _GUICtrlEditGetSel($edit)
$actEdit = GUICtrlRead($edit)
If Not ($a_sel == $EC_ERR) Then $actSel = StringMid($actEdit, $a_sel[1], $a_sel[2] - $a_sel[1])
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $head
$grund = '<html>' & @CRLF & '<head>' & @CRLF & '<title></title>' & @CRLF & '<meta name="author" content=">' & @CRLF & '</head>' & @CRLF & '<body>' & @CRLF& @CRLF& @CRLF& @CRLF & '</body>' & @CRLF & '</html>'
_GUICtrlEditReplaceSel($edit, 1, $grund)
send("{UP 6}")
Case $msg = $url
$link = '<a></a>'
_GUICtrlEditReplaceSel($edit, 1, $link)
Case $msg = $mail
$email = '<a></a>'
_GUICtrlEditReplaceSel($edit, 1, $email)
Case $msg = $h1
$h1s = '<h1>' & $actSel & '</h1>'
_GUICtrlEditReplaceSel($edit, 1, $h1s)
Case $msg = $h2
$h2s = '<h2>' & $actSel & '</h2>'
_GUICtrlEditReplaceSel($edit, 1, $h2s)
Case $msg = $h3
$h3s = '<h3>' & $actSel & '</h3>'
_GUICtrlEditReplaceSel($edit, 1, $h3s)
Case $msg = $h4
$h4s = '<h4>' & $actSel & '</h4>'
_GUICtrlEditReplaceSel($edit, 1, $h4s)
Case $msg = $h5
$h5s = '<h5>' & $actSel & '</h5>'
_GUICtrlEditReplaceSel($edit, 1, $h5s)
Case $msg = $h6
$h6s = '<h6>' & $actSel & '</h6>'
_GUICtrlEditReplaceSel($edit, 1, $h6s)
Case $msg = $big
$bigs = '<b>' & $actSel & '</b>'
_GUICtrlEditReplaceSel($edit, 1, $bigs)
Case $msg = $durch
$durchs = '<s>' & $actSel & '</s>'
_GUICtrlEditReplaceSel($edit, 1, $durchs)
Case $msg = $unter
$unters = '<u>' & $actSel & '</u>'
_GUICtrlEditReplaceSel($edit, 1, $unters)
Case $msg = $kur
$kurs = '<i>' & $actSel & '</i>'
_GUICtrlEditReplaceSel($edit, 1, $kurs)
Case $msg = $blink
$blinks = '<blink>' & $actSel & '</blink>'
_GUICtrlEditReplaceSel($edit, 1, $blinks)
Case $msg = $lauf
$laufs = '<marquee>' & $actSel & '</marquee>'
_GUICtrlEditReplaceSel($edit, 1, $laufs)
Case $msg = $abre
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$saves = FileOpenDialog("Elige un nombre.", $MyDocsFolder, "(*.*)", 3, "mi_pagina.html")
If @error Then
MsgBox(4096, "", "Salvado Cancelado.")
Else
GUICtrlSetData($edit, FileRead($saves))
EndIf
Case $msg = $save
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$saves = FileSaveDialog("Elige un nombre.", $MyDocsFolder, "(*.*)", 3, "mi_pagina.html")
If @error Then
MsgBox(4096, "", "Salvado Cancelado.")
Else
$ausgabe = GUICtrlRead($edit)
FileMove($saves,$saves&".bak",1)
FileWrite($saves, $ausgabe)
EndIf
Case $msg = $vor
$ausgabe = GUICtrlRead($edit)
FileMove($saves,$saves&".bak")
FileWrite($saves, $ausgabe)
$oIE.navigate ($saves)
Case $msg = $zuruck
_GUICtrlEditUndo($edit)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
GUIDelete()
Exit