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
Text suchen und weiteres Text löschen
-
- [ offen ]
-
keybaord-freak -
16. Februar 2010 um 08:29 -
Geschlossen -
Erledigt
-
-
ich würds so machen.
Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Global $file
[/autoit]
$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"
[/autoit][autoit][/autoit][autoit]
$sNeu = _StringLeftToSlash($sText)
MsgBox(0, "Ergebnis", $sNeu)Func _StringLeftToSlash($sOld)
[/autoit]
Local $ipos = StringInStr($sText, "/")
Local $sNew = StringLeft($sText, $ipos - 1)
Return ($sNew)
EndFunc ;==>_StringLeftToSlashdu musst die Funktion für jede Zeile aufrufen,
mfg (Auto)Bert
-
ICh würds so machen:
[autoit]$sRead = FileRead("Datei.txt")
[/autoit]
$sRead = StringRegExpReplace($sRead,"\/.+","")
$hFile = FileOpen("Datei.txt",2)
FileWrite($hFile,$sRead)
FileClose($hFile) -
- Offizieller Beitrag
Gefragt war doch, wie das mit Notepad geht (warum auch immer?).
Also vielleicht so:
Spoiler anzeigen
[autoit]
[/autoit]
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.
-
[autoit]
$sRead = FileRead("C:/Woerterbuch.txt")
[/autoit]
$sRead = StringRegExpReplace($sRead,"\/.+",@CRLF)
$hFile = FileOpen("C:/Woerterbuch.txt",2)
FileWrite($hFile,$sRead)
FileClose($hFile)