Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Edytor HTML

M4niak

Przez M4niak
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

M4niak Budowniczy

M4niak

Opublikowano
Budowniczy

M4niak

Opublikowano

Nic dodać, nic ująć...

 

Prosty Edytor HTML, z podglądem =d

 

 

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:		 M4niak @ mpcforum.pl

Script Function:
   HTML Editor with view..

   Jeżeli chcesz skopiować kod to umieść notkę, gdzie go znalazłeś i kto go zrobił..

#ce ----------------------------------------------------------------------------

Local $hFile, $FileRead ; dodane zmienne
HotKeySet("{F5}", "_build") ; hotkeye
HotKeySet("{F6}", "_save")
#NoTrayIcon
#include <ButtonConstants.au3> ; includy
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form= ; gui
$Form1 = GUICreate("HTML Editor", 1001, 663, 148, 38)
$edit = GUICtrlCreateEdit("", 12, 48, 977, 305)
GUICtrlSetFont(-1, 9, 400, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("Save (F6)", 120, 12, 99, 25)
$Button2 = GUICtrlCreateButton("Build (F5)", 12, 12, 99, 25)
$Button3 = GUICtrlCreateButton("Load File", 912, 12, 75, 25)
$input = GUICtrlCreateInput("", 516, 12, 385, 21)
$oIE = _IECreateEmbedded()
$GUIActiveX = GUICtrlCreateObj($oIE, 12, 360, 977, 289)
_IENavigate ($oIE, "about:blank")
_load() ; ladowanie wstepne przed wyswietleniem gui
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
	    Exit

    Case $Button1
	    _save()

    Case $Button2
	    _build()

    Case $Button3 ; wybieranie pliku
	    $hFile = FileOpenDialog("Choose File", @ScriptDir, "All (*.*)")

	    If Not @error Then
		    GUICtrlSetData($input, $hFile)
		    IniWrite(@ScriptDir & "\file.ini", "file", "file", $hFile)
		    _load()
	    EndIf
   EndSwitch
WEnd

Func _load()
   If FileExists(@ScriptDir & "\file.ini") Then ; gdy znaleziono cfg wczytuje plik
    GUICtrlSetData($input, IniRead(@ScriptDir & "\file.ini", "file", "file", 0))
       $hFile = FileOpen(GUICtrlRead($input))
       $FileRead = FileRead($hFile)
       GUICtrlSetData($edit, $FileRead)
   Else
       Local $starthtml ; startowe, gdy nie znaleziono cfg
       $starthtml &= '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">' & @CRLF
       $starthtml &= '<html>' & @CRLF
       $starthtml &= ' <head>' & @CRLF
       $starthtml &= '  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">' & @CRLF
       $starthtml &= '  <title> </title>' & @CRLF
       $starthtml &= ' </head>' & @CRLF
       $starthtml &= '   <body>' & @CRLF
       $starthtml &= '    '  & @CRLF
       $starthtml &= '   </body>' & @CRLF
       $starthtml &= '</html>'

       GUICtrlSetData($edit, $starthtml)
   EndIf
EndFunc ;==> Plik

Func _save()
   If GUICtrlRead($input) = "" Then ; jezeli input pusty (lokalizacja nieznana) wtedy msgbox
       MsgBox(16, "", "Wpisz lokalizację pliku z łaski swej..")
   Else ; jezeli jest cos w inpucie wtedy zapis
       $hFile = FileOpen(GUICtrlRead($input), 2)
       FileWrite($hFile, GUICtrlRead($edit))
   EndIf
EndFunc ;==> Zapis

Func _build()
   Local $html ; zmienna

   $hLines = _GUICtrlEdit_GetLineCount($edit) ; ilosc linii w kodzie

   For $Line = 1 to $hLines ; kazda linia do zmiennej
    $ReadHTML = _GUICtrlEdit_GetLine($edit, $Line)
    $html &= $ReadHTML
   Next

   _IEBodyWriteHTML($oIE, $html) ; zmiana kodu HTML
EndFunc ;==> Budowa

 

 

#Dodano nową wersję ^^

Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano

Dobry i przydatny pomysł. Myślę, że można podpiąć do spisu. Nie oceniam kodu, bo na razie nie mam czasu. Oceniam jego działanie i mi się podoba. ;)

Assarelliuss Znawca

Assarelliuss

Opublikowano
Znawca

Assarelliuss

Opublikowano

po co non stop otwierasz plik już otwarty?

Walnij jedno globalne FileOpen...

btw. jak chcesz robić takie rzeczy to pomyśl o kolorowaniu składni, podpowiadaniu etc.

Cytat

 

Orientacja seksualna polega na tym, że jeden mężczyzna lubi blondynki, drugi szatynki, że jedna pani woli umięśnionych mężczyzn a inna chudych intelektualistów. Homoseksualizm nie jest orientacją jest chorobą za którą homoseksualiści nie ponoszą odpowiedzialności. Pewna grupa ludzi rodzi się upośledzona fizycznie, na przykład bez ręki ale czy to znaczy, że wszystkim zdrowym powinniśmy też obcinać ręce? Nie, powinniśmy zapewnić im protezy. Obowiązkiem państwa jest zapewnienie homoseksualistom, jak wszystkim upośledzonym fizycznie czy psychicznie profesjonalnej opieki medycznej.

adoksz Bywalec

adoksz

Opublikowano
Bywalec

adoksz

Opublikowano

A czy kod na pewno twój? W temacie piszesz po polsku, a buttony w programie po angielsku nie uważasz tego za dziwne?

^^

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
A czy kod na pewno twój? W temacie piszesz po polsku, a buttony w programie po angielsku nie uważasz tego za dziwne?

A co w tym dziwnego, że pisze po angielsku? Mi jest dużo prościej niektóre nazwy pisać po angielsku i jakoś nie widzę w tym nic podejrzanego. Każdy pisze jak woli.

ma nazywać zmienne

$przycisk1

$poczatkowyhtml

?

dziwne masz rozumowanie.

981841412442977292370.png
M4niak Budowniczy

M4niak

Opublikowano
Budowniczy

M4niak

  • Autor
Opublikowano

Nowa wersja dodana...

Zmiana paru rzeczy, dodane komentarze i hotkeye ^^

 

po co non stop otwierasz plik już otwarty?

Walnij jedno globalne FileOpen...

 

Nie popatrzyłeś dokładnie na kod to się nie odzywaj ^_^

 

A czy kod na pewno twój? W temacie piszesz po polsku, a buttony w programie po angielsku nie uważasz tego za dziwne?

 

Tak mój..

I can speak english if you want..

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...