Text Datei Editieren

Hallo zusammen

Ich würde gerne via Auto-It die Datei c:\WINDOWS\system32\drivers\etc\services Editieren, bzw da zwei Zeilen anhängen, und / oder löschen. Es ist eine Text-Datei.

Hinzufügen würde ich

appliakationsname 10044/tcp #Applikation 1
applikationsname2 29444/tcp #Applikation 2

oder diese beiden eben löschen wollen / müssen.

Wie kann man das am elegantesten Lösen? Mit Fileopen und Filewriteline? Spätestens beim entfernen der beiden Zeilen, bin ich aber komplett planlos.

Ich hoffe ihr wisst Rat.

Herzlichen Dank für eure Tips!

Leider klemmt Fileopen schon daran, dass die Datei keine Endung hat..

$file = FileOpen("c:\WINDOWS\system32\drivers\etc\services", 0)
FileWriteLine($file, "appliakationsname 10044/tcp #Applikation 1")
FileWriteLine($file, "appliakationsname 10044/tcp #Applikation 1")
FileClose($file)

läuft so ins leere... Muss ich die Datei nun vorher umbenennen? Irgendwie wird alles nicht so elegant, wie ich mir erhofft hatte

Herzlichen Dank! Sass ich auf der Leitung :wacko:

$Pfad = "c:\WINDOWS\system32\drivers\etc\services"

$file = FileOpen($Pfad, 1)
$ifexistos = StringInStr( $file, "appliakationsname")
MsgBox(4096, "Test", $ifexistos, 10)

Sieht vielleicht wo da mein Fehler liegt? Würde gern erst prüfen, ob der Eintrag schon vorhanden ist, oder nicht, bevor ich da schreibe.

Ich danke euch!

Leider finden die Zeilen "appliakationsname" nicht, obwohl es mehrfach eingetragen wurde. Ich habe auch eine Abfrage eingebaut, ob es probleme beim öffnen gab.

$Pfad = "c:\WINDOWS\system32\drivers\etc\services"
$file = FileOpen($Pfad, 1)
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
$ifexistos = FileRead ($file)
If StringInStr( $ifexistos, "appliakationsname") Then
MsgBox(4096, "Test", $ifexistos, 10)
Else
MsgBox (0,"", "nichtvorhanden -> schreib in services")
EndIf

Nun begreife ich grad gar nichts mehr, denn ein Fehler ist dabei nicht erkennbar

Herzlichen Dank an alle Helfer!

Habe den Thread auf closed gesetzt.

Argh, hab da doch noch ein paar Probleme:

Zitat

knetd 2053/tcp #Kerberos de-multiplexor
man 9535/tcp #Remote Man Server

applikation1 10044/tcp #Applikation1
applikation2 29444/tcp #Applikation2

Die Services Datei hat am ende korrekterweise eine Leerzeile, die mein Script dann einfach mitbenutzt :wacko:

Und das Entfernen will gar nicht:

$Pfad = "c:\WINDOWS\system32\drivers\etc\services"
$file = FileOpen($Pfad, 1)
$eingeleseneDatei = StringReplace($file, "applikation1 10044/tcp #Applikation1", "") ; leerer string für entfernen
$eingeleseneDatei2 = StringReplace($file, "applikation2 29444/tcp #Applikation2", "") ; leerer string für entfernen
FileClose($file)

Ich glaube am Modi liegt das nicht alleine? Ohne Flag passiert nichts, mit 1 auch nicht, mit 2 wird die ganze Datei gelöscht

Zitat

[optional]
Modus in dem die Datei geöffnet werden soll.
Kann auch eine Kombination aus folgenden sein:
0 = Lesemodus (Standard)
1 = Schreibmodus (anhängend an das Dateiende)
2 = Schreibmodus (löschen des vorherigen Inhaltes)
8 = Anlegen der Verzeichnisstruktur, wenn sie nicht existiert (siehe Bemerkungen).
16 = Erzwinge den Binärmodus (Siehe Bemerkungen)

Alles anzeigen

Sitze ich heute wirklich sooo auf dem Schlauch?

#include<Array.au3>
#include <File.au3>
$filename = "c:\WINDOWS\system32\drivers\etc\services"
$find = "applikation1 10044/tcp #Applikation1 "
$replace = ""

$retval = _ReplaceStringInFile($filename,$find,$replace)
$find = "applikation2 10044/tcp #Applikation2 "
$replace = ""
$retval = _ReplaceStringInFile($filename,$find,$replace)

Hui, hab das selber hinbekommen Jetzt stören nur noch die zurückbleibenden Leerzeilen

Ich hab jetzt etwas, was mir Leerzeilen aus dem ende einer Textdatei entfernt:

#Include <File.au3>
$open = FileOpen("c:\WINDOWS\system32\drivers\etc\services", 0 )
$text = FileRead($open)
$sString = StringTrimRight($text, 2)
FileClose($open)
FileDelete("c:\WINDOWS\system32\drivers\etc\services")
_FileCreate("c:\WINDOWS\system32\drivers\etc\services")
FileWrite("c:\WINDOWS\system32\drivers\etc\services",$sString)

Aber eleganz ist zum einen nicht gegeben, zum anderen kann ich nicht wissen, wieviele Leerzeilen ich zu entfernen habe

Ich hoffe ihr wisst noch einmal rat