Hallo,
hab ein kleines Problem und zwar möchte ich im Editor einen Schrägstrich ( / ) suchen und den weiteren Text der Zeile löschen (also mit dem Schrägstich).
Wie mache ich das?
Alles läuft im Notepad ab!
MFG
Hallo,
hab ein kleines Problem und zwar möchte ich im Editor einen Schrägstrich ( / ) suchen und den weiteren Text der Zeile löschen (also mit dem Schrägstich).
Wie mache ich das?
Alles läuft im Notepad ab!
MFG
ich würds so machen.
#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Global $file
$pfad = FileOpenDialog("Welche Datei", @ScriptDir, "All (*.*)")
_FileReadToArray($pfad, $file)
If IsArray($file) Then
For $i = 1 To $file[0]
If StringInStr($file[$i], "/") Then
_FileWriteToLine($pfad, $i, "", 1)
EndIf
Next
EndIf
Hallo keboard-freak,
Lösung für eine Zeile:
[autoit]$sText = "Das ist ein String mit Slash /und das fällt alles weg"
$sNeu = _StringLeftToSlash($sText)
MsgBox(0, "Ergebnis", $sNeu)
Func _StringLeftToSlash($sOld)
Local $ipos = StringInStr($sText, "/")
Local $sNew = StringLeft($sText, $ipos - 1)
Return ($sNew)
EndFunc ;==>_StringLeftToSlash
du musst die Funktion für jede Zeile aufrufen,
mfg (Auto)Bert
ICh würds so machen:
[autoit]$sRead = FileRead("Datei.txt")
$sRead = StringRegExpReplace($sRead,"\/.+","")
$hFile = FileOpen("Datei.txt",2)
FileWrite($hFile,$sRead)
FileClose($hFile)
Gefragt war doch, wie das mit Notepad geht (warum auch immer?).
Also vielleicht so:
Run("notepad.exe")
WinWait("[CLASS:Notepad]")
ControlSetText("[CLASS:Notepad]", "", "Edit1", "Script-Dir = " & @ScriptDir & @CRLF & "Windows-Dir = " & @WindowsDir)
Sleep(1000)
$iLines = ControlCommand("[CLASS:Notepad]", "", "Edit1", "GetLineCount", "")
For $i = 1 To $iLines
$sLine = ControlCommand("[CLASS:Notepad]", "", "Edit1", "GetLine", $i)
$sLeft = StringLeft($sLine, StringInStr($sLine, '\') - 1)
MsgBox(0, "Nach dem ersten '\' löschen", $sLeft)
Next
Vielen Dank für eure Hilfe,
bekomme es aber noch nicht ganz hin. Also ich habe die Datei: C:\woerterbuch.txt
Und dort soll er jede Zeile nach einem / durchsuchen und gegebenenfalls dieses Zeichen löschen und den restlichen Inhalt der Zeile, dass nach dem / steht, auch.
Danach soll er die zweite Zeile Zeile durchsuchen,...
Bis irgendwann keine Zeilen mehr vorhanden sind und die Arbeit gemacht hat.
$sRead = FileRead("C:/Woerterbuch.txt")
$sRead = StringRegExpReplace($sRead,"\/.+",@CRLF)
$hFile = FileOpen("C:/Woerterbuch.txt",2)
FileWrite($hFile,$sRead)
FileClose($hFile)