; pcdmis2csv00.au3.au3
#include-once
#include <\Archiv\Prg\AutoIt\Include\rexx02.au3>
#include <\Archiv\Prg\AutoIt\Include\tools00.au3>
#include <\Archiv\Prg\AutoIt\Include\stack00.au3>

; Grundeinstellungen
HotKeySet("{PAUSE}", "MeinExit")

; Hilfsfunktionen
Func MeinExit()
    Exit
EndFunc

; init
$n_s1 = inistack() ; init stack 1

$search = FileFindFirstFile(@WorkingDir&"\*.rtf")
If $search = -1 Then
    MsgBox(0, @ScriptName&": Fehler!", "Keine RTF Dateien in >"&@WorkingDir&"< gefunden")
    Exit
EndIf
While 1
    $dummy = FileFindNextFile($search)
    If @error Then ExitLoop
    push($n_s1,$dummy)
WEnd
FileClose($search)

; send("^n")

while eos($n_s1)
   $datei_r = pop($n_s1)
   $datei_w = changestr('.rtf',$datei_r,'.csv')
   $fh_r = fileopen($datei_r,0) ; Quelle lesend geöffnet
   $fh_w = fileopen($datei_w,2) ; Ziel überschreibend geöffnet
   tooltip(@ScriptName&"- Datei: "&$datei_r&" wird bearbeitet", )
   $zeile = "Name;SOLL x;SOLL y;SOLL z;i;j;k;IST x;IST y;IST z;T"
   FileWriteLine($fh_w,$zeile)
   While 1
      $zeile = FileReadLine($fh_r)
      if @error = -1 Then ExitLoop ; Ende des RTF
      if pos('SCN',$zeile) > 0 then
         $rl = length($zeile) - pos('SCN',$zeile) + 1
         $zeile = right($zeile,$rl)
         $ele = word($zeile,1)
      endif
      if pos("MESSPKT/VEKTOR;",$zeile) > 0 then
         $rl = length($zeile) - pos("MESSPKT/VEKTOR;",$zeile) + 1
         $zeile = right($zeile,$rl)
         $zeile = changestr("MESSPKT/VEKTOR;",$zeile,"")
         $zeile = changestr(" ",$zeile,"")
         $zeile = changestr(".",$zeile,",")
         $zeile = changestr("T=",$zeile,"")
         $zeile = changestr("\par",$zeile,"")
         FileWriteLine($fh_w,$ele&";"&$zeile)
      endif
   Wend

   fileclose($datei_r)
   fileclose($datei_w)
wend