Hallo Liebe Autoit Gemeinde,
ich brauche mal wieder eure Hilfe.
Ich möchte gerne ein kleines Script schreiben was mir zahlen hinzufügt. Also wenn ich jetzt 10,2 habe soll er mir 10,20 daraus machen.
Also so: 10, dann wird daraus 10,00 und aus 10,2 dann 10,20 geht das? Die Zahlen stehen immer an der gleichen Stelle in der TXT.
Ich habe es schon mir StringRegExpReplace versucht aber das wird bei mir nichts 
Sicherlich nicht die schönste Lösung, aber immerhin etwas:
[autoit]$zahl = 10.2
[/autoit][autoit][/autoit][autoit]$hundertfache = Int($zahl * 100)
$dez = StringRight($hundertfache, 2)
$pre = StringTrimRight($hundertfache, 2)
$result = $pre & ',' & $dez
MsgBox(0, '', $result)
[/autoit]oder einfach Stringformat
Hi Leute,
Tweaky meinte bestimmt dies 
$S =StringFormat ( "$String = %.2f")
[/autoit]MfG
Der_Doc
Hallo also ich benutze jetzt diesen Code
[autoit]$FileHandle = FileOpen($read, 1)
$Text = FileRead($read)
$string =StringFormat ("$Text = %,2f",$Text)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$FileHandle = FileOpen($read, 2)
FileWrite($FileHandle, $string)
FileClose($FileHandle)
Leider löscht er mir dann den ganzen inhalt!
In der TXT sind auch buchstaben und Zahlen!
Achso, Du willst das in einem kompletten Text ersetzen?!
Ich habe mal einen Testtext erstellt:
effef 12,3 fefehgh rthtrhtr ewf erfe
hrththtr tthht rgg re 25,9 rgrgrg tg4tegt tzhtz
eferf 34,6 ht thtr trt rgr 56,3 grgrgfvvr 42,
12, eferfwf wgwgr grwgwgw.Und mit diesem Script kannst erhälst Du dann eine formatierte Ausgabe:
$sFile = FileRead(@ScriptDir & '\text.txt')
If Not @error Then
$aNumber = StringRegExp($sFile, '(\d+,\d{0,1})', 3)
For $i = 0 To UBound($aNumber)-1
$sFile = StringReplace($sFile, $aNumber[$i], StringFormat('%.2f', Number(StringReplace($aNumber[$i], ',', '.'))))
Next
EndIf
MsgBox(0,0,$sFile)
Hallo Oscar,
also ich habe dein Script mal genommen es funktioniert auch gut aber wenn ich jetzt eine Zahl habe die 12,32 lautet macht mir dein script daraus 12,302 wie kann ich das ändern? Sonst funktioniert es sehr sehr gut danke für deine Hilfe.
Upps! Zwei Stellen nach dem Komma. Kleiner Bug!
So geht's:
[autoit]
$sFile = FileRead(@ScriptDir & '\text.txt')
If Not @error Then
$aNumber = StringRegExp($sFile, '(\d+,\d{0,2})', 3)
For $i = 0 To UBound($aNumber)-1
$sFile = StringReplace($sFile, $aNumber[$i], StringFormat('%.2f', Number(StringReplace($aNumber[$i], ',', '.'))))
Next
EndIf
MsgBox(0,0,$sFile)
Hallo Oscar,
ich habe die zwei ersetzt, Jetzt macht das Script die ersten paar Zeilen korrekt dann ein paar falsch und dann wieder richtig!
Also aus 20,8 wird dann 20.008 es soll aber 20.80
oder aus 11,11 wurden dann 11.101
Ist dir mein Problem bekannt?
Mit dem Script, was ich um 12:58 Uhr gepostet habe, funktioniert es bei mir einwandfrei.
Kannst Du mir mal eine Testdatei per PN schicken?
Ok, es gab doch noch einen Bug und zwar, wenn mehrere gleiche Zahlen vorhanden waren, dann wurden alle ausgetauscht (StringReplace mit Standard-Einstellung).
So geht es jetzt aber mit Deiner Testdatei:
$sFile = FileRead(@ScriptDir & '\test.csv')
If Not @error Then
$aNumber = StringRegExp($sFile, '(\d+,\d{0,2})', 3)
For $i = 0 To UBound($aNumber)-1
$sFile = StringReplace($sFile, $aNumber[$i], StringFormat('%.2f', Number(StringReplace($aNumber[$i], ',', '.'))), 1)
Next
EndIf
$hFile = FileOpen(@ScriptDir & '\test2.csv', 2)
If $hFile <> -1 Then
FileWrite($hFile, $sFile)
FileClose($hFile)
EndIf
Hammer Geil Oscar,
vielen Dank es klappt 
Gruß
Loco