Moin.
Wer's braucht kann's haben 
Wie so ein Teil arbeitet findet man wirklich alles im Netz. Nur ob man es braucht, das ist eine andere Frage. War so aus SPASS an der FREUDE ist der "METATAG-MAKER" entstanden, nach dem der "INI-Maker" und "Registry-Maker" ein Anfangsprojekt war um sich mit INI & Registry etwas besser zu vertragen
So, viel SPASS beim testen und DANKE an das Forum für die geleistete Hilfe !!!
Spoiler anzeigen
#include <GUIConstants.au3>
$Form1_1 = GUICreate("METATAG-MAKER V 1.0", 811, 684, 205, 122)
GUISetBkColor(0xD8E4F8)
$Input1 = GUICtrlCreateInput("..:: Hier den Seitentitel eintragen ::..", 128, 72, 673, 21)
GUICtrlSetLimit(-1, 200)
$Input2 = GUICtrlCreateInput("Hier die Seitenbeschreibung in Kurzform eintragen", 128, 104, 673, 21)
GUICtrlSetLimit(-1, 170)
$Input4 = GUICtrlCreateInput("Hier die ausführliche Seitenbeschreibung.", 128, 136, 673, 21)
GUICtrlSetLimit(-1, 170)
$Input3 = GUICtrlCreateInput("Hier die ersten KEYWORDS eintragen.", 128, 168, 673, 21)
GUICtrlSetLimit(-1, 250)
$Input5 = GUICtrlCreateInput("Hier die weiteren KEYWORDS eintragen.", 128, 200, 673, 21)
GUICtrlSetLimit(-1, 200)
$Input6 = GUICtrlCreateInput("Hier eintragen, wann erneut die Seite angesteuert werden soll.", 128, 232, 673, 21)
GUICtrlSetLimit(-1, 3)
$start = GUICtrlCreateButton("In die Zwischenablage und unten ins Feld einfügen", 8, 264, 793, 33, 0)
$Edit1 = GUICtrlCreateEdit("", 8, 384, 793, 289)
GUICtrlSetData(-1, StringFormat("<TITLE>..:: Seitentitel ::..</TITLE>\r\n<META HTTP-EQUIV="&Chr(34)&"Content-Type"&Chr(34)&" CONTENT="&Chr(34)&"text/html; charset=iso-8859-1"&Chr(34)&">\r\n\r\n<META NAME="&Chr(34)&"Title"&Chr(34)&" CONTENT="&Chr(34)&"Kurzbeschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Description"&Chr(34)&" CONTENT="&Chr(34)&"Beschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Keywords"&Chr(34)&" CONTENT="&Chr(34)&"1Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Abstract"&Chr(34)&" CONTENT="&Chr(34)&"2Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Revisit-After"&Chr(34)&" CONTENT="&Chr(34)&"Tage days"&Chr(34)&">\r\n\r\n<meta name="&Chr(34)&"distribution"&Chr(34)&" content="&Chr(34)&"global"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Robots"&Chr(34)&" CONTENT="&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Language"&Chr(34)&" CONTENT="&Chr(34)&"deutsch, de"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"pragma"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"cache-control"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-topic"&Chr(34)&" Content="&Chr(34)&"Familie,AutoIt,Forum"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-type"&Chr(34)&" Content="&Chr(34)&"Information,Bild,Foto"&Chr(34)&">\r\n<Meta name = "&Chr(34)&"Robots"&Chr(34)&" content = "&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">"))
$speichern = GUICtrlCreateButton("Speichern", 8, 304, 249, 33, 0)
$neustart = GUICtrlCreateButton("Neustart", 280, 304, 249, 33, 0)
$exit = GUICtrlCreateButton("Exit ", 552, 304, 249, 33, 0)
$Label6 = GUICtrlCreateLabel("Einfach die folgenden Zeilen Code kopieren und zwischen <HEAD> und </HEAD> in Ihrem HTML-Dokument einfügen.", 32, 360, 745, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label4 = GUICtrlCreateLabel(" METATAGS GENERATOR ", 184, 8, 427, 40)
GUICtrlSetFont(-1, 24, 800, 6, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label1 = GUICtrlCreateLabel("Seitentitel", 8, 72, 62, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("Seitenbeschreibung", 8, 104, 118, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Keywords 1", 8, 168, 72, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("Seitenbeschreibung", 8, 136, 118, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label7 = GUICtrlCreateLabel("Keywords 2", 8, 200, 72, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label8 = GUICtrlCreateLabel("Tage", 8, 232, 32, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label9 = GUICtrlCreateLabel("Die Eingabefelder sind auf die maximal zulässige Länge begrenzt.", 208, 48, 384, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $exit
Exit
Case $start
;die Input Felder auslesen
$text = Guictrlread($input1); & @CRLF & Guictrlread($input2) & @CRLF & Guictrlread($input3)
$2text = Guictrlread($input2)
$3text = Guictrlread($input3)
$4text = Guictrlread($input4)
$5text = Guictrlread($input5)
$6text = Guictrlread($input6)
; die Änderungen in Edit1
$etext = StringReplace(GUICtrlRead($Edit1), "Seitentitel", $text)
$etext = StringReplace($etext, "Kurzbeschreibung", $2text)
$etext = StringReplace($etext, "1. Keywords", $3text)
$etext = StringReplace($etext, "Beschreibung", $4text)
$etext = StringReplace($etext, "2. Keywords", $5text)
$etext = StringReplace($etext, "Tage", $6text)
GuictrlsetData($Edit1,$etext)
ClipPut($etext)
; Hier der Neustart und die Inputfelder wieder zurück setzen
Case $neustart
GuiCtrlSetData($Input1, "..:: Hier den Seitentitel eintragen ::..")
GuiCtrlSetData($Input2, "Hier die Seitenbeschreibung in Kurzform eintragen.")
GuiCtrlSetData($Input3, "Hier die ersten KEYWORDS eintragen.")
GuiCtrlSetData($Input4, "Hier die ausführliche Seitenbeschreibung.")
GuiCtrlSetData($Input5, "Hier die weiteren KEYWORDS eintragen.")
GuiCtrlSetData($Input6, "Hier eintragen, wann erneut die Seite angesteuert werden soll.")
GUICtrlSetData($Edit1, StringFormat("<TITLE>..:: Seitentitel ::..</TITLE>\r\n<META HTTP-EQUIV="&Chr(34)&"Content-Type"&Chr(34)&" CONTENT="&Chr(34)&"text/html; charset=iso-8859-1"&Chr(34)&">\r\n\r\n<META NAME="&Chr(34)&"Title"&Chr(34)&" CONTENT="&Chr(34)&"Kurzbeschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Description"&Chr(34)&" CONTENT="&Chr(34)&"Beschreibung"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Keywords"&Chr(34)&" CONTENT="&Chr(34)&"1Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Abstract"&Chr(34)&" CONTENT="&Chr(34)&"2Keywords"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Revisit-After"&Chr(34)&" CONTENT="&Chr(34)&"Tage days"&Chr(34)&">\r\n\r\n<meta name="&Chr(34)&"distribution"&Chr(34)&" content="&Chr(34)&"global"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Robots"&Chr(34)&" CONTENT="&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">\r\n<META NAME="&Chr(34)&"Language"&Chr(34)&" CONTENT="&Chr(34)&"deutsch, de"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"pragma"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"cache-control"&Chr(34)&" CONTENT="&Chr(34)&"NO-CACHE"&Chr(34)&">\r\n<META HTTP-EQUIV="&Chr(34)&"expires"&Chr(34)&" CONTENT="&Chr(34)&"0"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-topic"&Chr(34)&" Content="&Chr(34)&"Familie,AutoIt,Forum"&Chr(34)&">\r\n<META NAME="&Chr(34)&"page-type"&Chr(34)&" Content="&Chr(34)&"Information,Bild,Foto"&Chr(34)&">\r\n<Meta name = "&Chr(34)&"Robots"&Chr(34)&" content = "&Chr(34)&"INDEX,FOLLOW"&Chr(34)&">"))
; Daten speichern aus dem großen Feld (Edit1)
Case $speichern
$szSaveFile = FileSaveDialog( "Bitte Dateiname und Speicherort eingeben.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Textdatei (*.txt)", 2)
If Not @error Then
If StringRight($szSaveFile,4) <> ".txt" Then $szSaveFile &= ".txt"
$hFile = FileOpen($szSaveFile,2)
FileWrite($hFile, Guictrlread($Edit1))
FileClose($hFile)
EndIf
EndSwitch
WEnd