Sehr gerne, auch wenn das wahrscheinlich jetzt nicht absolut korrekt ist, aber hauptsache ich habe eine Lösung.
Also mein Ansatz war zunächst einmal natürlich der falsche. Anstatt 4 Ziffern vor dem Ende ein Komma zu setzen, ist es natürlich einfacher jede Zahl durch 10000 zu dividieren.
Habe das Skript von YaeroxXO verwendet und dieses dann ein wenig umgeformt.
#include <File.au3>
[/autoit][autoit][/autoit][autoit]Local $sPathFile = "Dateipfad"
Local $sLine = ''
Local $x = 0
Local $y = 0
Local $hFile = FileOpen($sPathFile, 0); Check if file opened for reading OK
If $hFile = -1 Then
MsgBox(0, "Error1", "Unable to open file.")
Exit
EndIf
Local $hFileEdited = FileOpen($sPathFile & ".edited", 2)
If $hFileEdited = -1 Then
MsgBox(0, "Error2", "Unable to open file.")
Exit
EndIf
; Read in lines of text until the EOF is reached
While 1
$x += 1
$sLine = FileReadLine($hFile)
If @error = -1 Then ExitLoop
$sZeile = StringStripWS($sLine,4)
$sZeile1 = StringStripWS($sZeile,1)
$array = StringSplit ($sZeile1," ")
$Zahl = $array[1] / 10000
$Zahl1 = $array[2] / 10000
$Zahl2 = $array[3] / 10000
FileWriteLine($hFileEdited, $Zahl&" "&$Zahl1&" "&$Zahl2&@CRLF&$Zahl&" "&$Zahl1&" 0")
WEnd
FileClose($hFile)
FileClose($hFileEdited)
Da sind jetzt bestimmt noch ein paar Sachen unnötig bzw. man hätte es auch kürzer fassen können. Aber für das erste Mal bin ich doch sehr zufrieden
Das StringStripWS habe ich jeweils eingefügt um für den Fall, dass ich zwei Leerstellen zwischen zwei Zahlen hatte eine davon zu entfernen bzw. für den Fall, dass die erste Zahl mal positiv war und somit auch dort ein Leerzeichen und kein Minus stand. So dass auch das Leerzeichen dann jeweils wegfiel.