Ich habe mal auf die Schnelle was mit VB-Script hingeschmuddelt.
Du kannst es ja mal ausprobieren.
Lege bitte unter einem Windows-BS eine Textdatei 'umsetzung.vbs' an, in die du hineinkopierst:
Code:
qname = wscript.arguments.item(0)
set FSO=createObject ( "Scripting.FileSystemObject")
set qfile = FSO.openTextfile(qname,1)
set zfile = FSO.openTextfile(qname&".erg",2,true)
do until qfile.AtEndOfStream
zeile=qfile.readLine
if left(zeile,8)="[Round """ then
p1=instr(8,zeile,".")
zahl1=mid(zeile,9,p1-9)
if zahl1 mod 2 = 1 then
zeile="[Round """ & (zahl1+1)/2 & ".1""]"
else
zeile="[Round """ & zahl1/2 & ".2""]"
end if
end if
zfile.writeline(zeile)
loop
zfile.close
qfile.close
Und eine zweite Textdatei 'umsetzung.bat', die dieses Script aufruft
Code:
set DAT=eingabe1.txt
cscript /Nologo umsetzung.vbs %DAT%
notepad %DAT%.erg
Dann kannst du so die Datei eingabe1.txt einlesen und es wird dir eingabe1.txt.erg erzeugt mit den von dir gewünschten Änderungen. (Doppelklick auf 'umsetzung.bat')
Das Script ist natürlich sehr simpel und fordert Eingaben, genau wie du sie beispielhaft nanntest.
Ansonsten müsste man es noch aufpeppen.
Diese Forderungen sind z.B.
- "[Round" muss immer zu Beginn der betreffenden Zeilen stehen
- keine zusätzlichen Blanks in diesen Zeilen
- nach dem ] keine weiteren Zeichen
- ...
Probiere es doch einfach mal aus.
Vielleicht reicht es dir ja schon.
Benno