Benötige Infomaterial für Anfänger - Bearbeiten von Textdateien

#Region 
#AutoIt3Wrapper_Icon=MikroTik.ico
#AutoIt3Wrapper_Compression=3
#EndRegion
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FileContent
Global $fileToUse
Global $newFileName
Global $sourceFileName
Global $path
$newFileName = 0
Opt("GUIResizeMode", $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM+$GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
#Region ### START Koda GUI section ### Form=d:\mikrotik\f_start.kxf
$F_Start = GUICreate("MikroTik Enabled Interfaces", 692, 323, 423, 362)
GUISetIcon("D:\Mikrotik\MikroTik.ico", -1)
GUISetBkColor(0xFFFFFF)
$B_End = GUICtrlCreateButton("Beenden", 480, 153, 137, 40)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$B_FileOpen = GUICtrlCreateButton("Datei wählen", 64, 153, 137, 40)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$B_Start = GUICtrlCreateButton("Start", 274, 153, 137, 40)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$L_Titel = GUICtrlCreateLabel("Aktive Interfaces aus MikroTik Konfiguration filtern", 121, 8, 430, 35)
GUICtrlSetFont(-1, 11, 800, 0, "Verdana")
$L_Version = GUICtrlCreateLabel("V 1.0", 624, 8, 34, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$L_Info1 = GUICtrlCreateLabel("Unterstützt werden MikroTik RSC Files", 16, 72, 271, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$L_Info2 = GUICtrlCreateLabel("Das Tool filtert alle aktivierten Interfaces und speichert diese in einem neuem Konfigurationsfile.", 16, 96, 660, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")


$L_Path = GUICtrlCreateLabel("Dateipfad:", 24, 232, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")


$L_Source = GUICtrlCreateLabel("Quelldatei:", 24, 264, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")


$L_Destination = GUICtrlCreateLabel("Zieldatei:", 24, 296, 75, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


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


		Case $B_FileOpen
			OpenFile()


		Case $B_Start
			Edit()


		Case $B_End
			Exit
	EndSwitch
WEnd


Func OpenFile()


$newFileName = 0
$path = @DesktopDir
$fileToUse = FileOpenDialog("MikroTik Konfigurationsdatei wählen", $path, "MikroTik RSC Datei (*.rsc)", 1  )




If @error Then
    MsgBox($MB_ICONERROR,"Fehler","Keine Datei ausgewählt!")
Else
$sourceFileName = 0
$path = $fileToUse
$split = StringInStr($path, '\', 1, -1)
$sourceFileName = StringMid($path, $split+1)
$path = StringLeft($path, $split)
GUICtrlCreateLabel($path, 100, 232, 562, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
GUICtrlCreateLabel($sourceFileName, 100, 264, 562, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$FileContent = FileRead($fileToUse)


Do


$Input = GUICreate("Ausgabedatei", 400, 200, 423, 362)
$newFileName = GUICtrlCreateInput($sourceFileName, 11, 66, 307, 21)
GUICtrlCreateLabel("Neuer Dateiname", 9, 9, 129, 17)
$B_OK = GUICtrlCreateButton("OK", 100, 94, 112, 26)
GUISetState(@SW_SHOW)




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


	Case $B_OK
	ExitLoop
    EndSwitch
WEnd


if FileExists($path & $newFileName) Then
MsgBox($MB_ICONINFORMATION, "Fehler", "Datei ist schon vorhanden !")
EndIf


Until FileExists($path & $newFileName) = 0


If $newFileName <> "0" Then
GUICtrlCreateLabel($newFileName, 100, 296, 562, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
Endif


EndIf


EndFunc


Func Edit()
If $newFileName == "0" Then
	MsgBox($MB_ICONINFORMATION, "Fehler", "Verarbeitung nicht möglich" & @CRLF & "Quell- und Zieldatei prüfen !")
EndIf
If $newFileName <> "0" Then
$aOut = StringRegExp($FileContent, '(?s)add configuration.+?disabled=no.+?name=\\*\s*(.+?)\s+', 3)
$sOut = ''


ProgressOn("Verarbeite Daten", "Fortschritt")
For $i = 0 To UBound($aOut) - 1
	$sOut &= 'enable ' & $aOut[$i] & @CRLF
 	ProgressSet($i)
 	Sleep(5)
 Next


 ProgressSet(100, "Erledigt, Datei wird gespeichert")
 Sleep(500)


$newFileName = $path & $newFileName
$hFile = FileOpen($newFileName, 2)
If $hFile <> -1 Then
	FileWrite($hFile, "/interfaces" & @CRLF)
	FileWrite($hFile, $sOut)
	FileClose($hFile)


EndIf
ProgressOff()
MsgBox($MB_ICONINFORMATION, "Abgeschlossen", "Datei wurde unter: " & @CRLF & $newFileName & @CRLF & "gespeichert!")
EndIf
EndFunc