Doppelte Zeilen in Text-Datei löschen
Hallo
ich schreibe lange Übersetzungsprogramme in FoxPro in unten folgender Text-Datei-Form.
Die Datei ist allerdings durch Zusammenführung verschiedener Versionen voller Duplikate, welche gelöscht werden sollen.
Die Reihenfolge und alle Zeichen müssen unbedingt eingehalten werden.
Was für ein batch kommt da infrage ?
*
...
update papworth set deut = STRTRAN(deut,"cantoned", "bewink.")
update papworth set deut = STRTRAN(deut, 'waved & ', " gewellt u. ")
RETURN
Function frut
update papworth set deut = STRTRAN(deut,"cantoned", "bewink.")
RETURN
Function Klammer
*update papworth set deut = STRTRAN(deut,"]", "")
*update papworth set deut = STRTRAN(deut,"{ ", "{")
*update papworth set deut = STRTRAN(deut," }", "}")
*update papworth set deut = STRTRAN(deut,"( ", "(")
*update papworth set deut = STRTRAN(deut," )}", ")")
*update papworth set deut = STRTRAN(deut," ", " ")
*update papworth set deut = STRTRAN(deut," ", " ")
update papworth set deut = STRTRAN(deut," ;", ";")
update papworth SET deut = STRTRAN(deut,' &;',';')
RETURN
*
ich schreibe lange Übersetzungsprogramme in FoxPro in unten folgender Text-Datei-Form.
Die Datei ist allerdings durch Zusammenführung verschiedener Versionen voller Duplikate, welche gelöscht werden sollen.
Die Reihenfolge und alle Zeichen müssen unbedingt eingehalten werden.
Was für ein batch kommt da infrage ?
*
...
update papworth set deut = STRTRAN(deut,"cantoned", "bewink.")
update papworth set deut = STRTRAN(deut, 'waved & ', " gewellt u. ")
RETURN
Function frut
update papworth set deut = STRTRAN(deut,"cantoned", "bewink.")
RETURN
Function Klammer
*update papworth set deut = STRTRAN(deut,"]", "")
*update papworth set deut = STRTRAN(deut,"{ ", "{")
*update papworth set deut = STRTRAN(deut," }", "}")
*update papworth set deut = STRTRAN(deut,"( ", "(")
*update papworth set deut = STRTRAN(deut," )}", ")")
*update papworth set deut = STRTRAN(deut," ", " ")
*update papworth set deut = STRTRAN(deut," ", " ")
update papworth set deut = STRTRAN(deut," ;", ";")
update papworth SET deut = STRTRAN(deut,' &;',';')
RETURN
*
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 281259
Url: https://administrator.de/contentid/281259
Ausgedruckt am: 14.11.2024 um 23:11 Uhr
15 Kommentare
Neuester Kommentar
Moin,
welche Zeilen sollen als Doppelt betrachtet werden ? Die bei deinen der String "update" im Text vorkommt ?
Denn die RETURN sind ja auch doppelt aber die willst du sicherlich nicht entfernen oder ?
Wobei dann bei deinem Beispiel die Funktion frut leer werden würde . Ist also vieles noch ziemlich unsicher in deiner Beschreibung.
Gruß jodel32
p.s. Bitte nutze Code-Tags für deinen Quellcode:
welche Zeilen sollen als Doppelt betrachtet werden ? Die bei deinen der String "update" im Text vorkommt ?
Denn die RETURN sind ja auch doppelt aber die willst du sicherlich nicht entfernen oder ?
Wobei dann bei deinem Beispiel die Funktion frut leer werden würde . Ist also vieles noch ziemlich unsicher in deiner Beschreibung.
Gruß jodel32
p.s. Bitte nutze Code-Tags für deinen Quellcode:
<code> Quellcode </code>
.ich bin hier offensichtlich ganz falsch gelandet
Nein wieso ? Hier gibts genug Scripter ... Mit Powershell könntest du es so machen:$file = 'C:\datei.txt'
$clean = @()
$arr = @()
(gc $file) | %{
if($_ -notlike '*update*'){
$clean += $_
}else{
if($_ -notin $arr){
$clean += $_
$arr += $_
}else{
if ((Read-Host "Folgende Zeile ist doppelt: '$_' . Soll sie gelöscht werden ? (j/n)") -eq 'n'){
$clean += $_
}
}
}
}
$clean | set-content $file
habe ich sofort genau so probiert:
es kommt blitzartig eine schwarze undeutliche Erscheinung, die sofort wieder weg ist .
Sonst passiert nichts.
Powershell Execution Policy in einer administrativen Powershell-Konsole freischalten !es kommt blitzartig eine schwarze undeutliche Erscheinung, die sofort wieder weg ist .
Sonst passiert nichts.
Set-ExecutionPolicy RemoteSigned -Force
Gruß grexit
Falsch !
Das mus separat in einer administrativen Powershell Konsole ausgeführt werden !!!!
Und außerdem öffne einfach eine Konsole und führe das Skript darin aus dann schließt sich das Fenster auch nicht gleich wieder und du siehst die Ausgaben oder eventuelle Fehlermeldungen.
Du musst die powershell als Administrator starten -> Rechtsklick
Danach die Zeile von Grexit einfügen und bestätigen. Dann solltest du das Skript verwenden können.
Och mönsch,
lesen und verstehen...
https://www.windowspro.de/andreas-kroschel/powershell-scripts-ausfuehren
lesen und verstehen...
https://www.windowspro.de/andreas-kroschel/powershell-scripts-ausfuehren
Hmm, unsere Antworten lesen aber anscheinend doch noch ?? Nutzt du keine Lesehilfen im Betriebsystem, Lupe, Schriftvergrößerung im Browser oder braille ?
Möglich ist alles man muss nur wollen, das Ergebnis musst du ja trotzdem noch sehen können.
Gruß jodel
Möglich ist alles man muss nur wollen, das Ergebnis musst du ja trotzdem noch sehen können.
Gruß jodel
Dann auf gelöst setzen ,bitte nicht vergessen.Danke.