Einlesen CSV File (bestehend aus 6 Coloums)

ugt100

Hallo zusammen,

da mir irgendwie die zündende Idee fehlt und ich es mit AutoIT nicht gebacken bekomme - wende ich mich hier an die 'Profis' - Danke schon mal im voraus.
(P.S: mittels Powershell hat das relative einfach funktioniert (Code füge ich unten bei)

Problem:
Ich muss (tausende) kleine Textdateien erzeugen, die alle den gleichen Aufbau haben und als Quelle eine csv Datei nutzen (diese werfe ich automatisiert aus).

Quelle:
Format der csv Datei wie folgt:
Header: Redirect,Order, RID, Titel, Ref, Filename
Data: [NRF], Order=Sequential,RID=1111111111122232321,Titel=Angela Merkel,Ref=CN=XXX/OU=YYY/O=ZZ!!abc\n631.xyz, n6361.xyz
.....

Ziel (1 Datei pro Zeile) - wobei der letzte Wert den Dateinamen darstellt

Also:
Datei n6361.nrf mit folgendem Inhalt
[NRF]
Order=Sequential
RID=1111111111122232321
Titel=Angela Merkel
Ref=CN=XXX/OU=YYY/O=ZZ!!abc\n631.xyz

Das Ganze gelingt mir schon - wenn ich im Vorfelde aus den Zeilen der CSV Datei jeweils untereinander stehende einzelne Werte in einer Spalte mache
[NRF]
Order=Sequential
RID=1111111111122232321T
itel=Angela Merkel
Ref=CN=XXX/OU=YYY/O=ZZ!!abc\n631.xyz
n6361.nrf

Daher meine Frage wie gelingt mir das Einlesen der 'Zeilen' und das Umsetzen in untereinander stehende einzelne Werte.
(Anm.: im Script wird auch noch ein batch fürs Kopieren erzeugt - ist aber nicht Teil der Frage)

HIer mein Script

Spoiler anzeigen

#include <Array.au3>
#include <File.au3>
AutoItSetOption('TrayIconDebug', 1)

Local $acdeNRF

$cdeMessage = "Bitte das Quellfile (zwingend Format Textfile) angeben"
$cdeSourceNRF = FileOpenDialog($cdeMessage,@ScriptDir & "\", "Textfile (*.txt;*.csv)",1,"") ;QuellFile angeben für XXX's
If @error = 1 Then Exit ;Cancel-Button

$cdeTargetLW = InputBox("Server Ziel-LW","Gemapptes DominoServer Ziel LW angeben:", "Z:\","",250,140) ;Ziel LW der Maschine
If @error = 1 Then Exit ;Cancel-Button

If Not _FileReadToArray($cdeSourceNRF, $acdeNRF) Then
MsgBox(4096, "Fehler", " Fehler beim Einlesen ins Array (Error:" & @error &")") ;Einlesen Sourcefile mit Errorhandling (Öffnen des Datenfiles)
Exit
EndIf

$CdeRuns = $acdeNRF[0]/6 ;Berechnung der Anzahl zu erzeugender Files (1-6 Zeilen = Dateiinhalt / 6.Zeile Filename)
If Int($CdeRuns) - $CdeRuns <> 0 Then
MsgBox(16,"In der Quelldatei liegt ein Fehler vor","Wahrscheinlichster Fehler: Ein falsche Anzahl an Datenzeilen" & @LF & @LF & "Richtig sind:" & @LF & "5 Zeilen Daten + 1 Zeile für Dateinamen (6 Zeilen/nrf file).")
Else ;Errorhandling (Anzahl Zeilen muss aufgehen / durch 6 teilbar)
$cdeMessage1 = ""
SplashTextOn("Autom. Dateierstellung - Step 1", $cdeMessage1, 300, 70, -1, -1, 16+2, "", 10, 400) ;Splash
For $i = 1 To $CdeRuns ;Schleife .... Start
FileOpen(@ScriptDir & "\nrf_temp.txt",2) ;Temp File erzeugen
For $x = 1 To 5
_FileWriteToLine(@ScriptDir & "\nrf_temp.txt", $x, $acdeNRF[$x], 1) ;Schreiben der 5 Zeilen für NRF in das neues Temp File
If $x = 5 Then
$cdeTestFilenamePos = StringInStr($acdeNRF[$x], "\", 0, -1)
$cdeTestFileLen = StringLen($acdeNRF[$x])
$cdeTestFileonly = $cdeTestFileLen - $cdeTestFilenamePos
$cdeTestFilename = StringRight($acdeNRF[$x],$cdeTestFileonly)
$cdeTestFilenameNoExt = StringTrimRight($cdeTestFilename, 3)
EndIf

Next
FileClose(@ScriptDir & "\nrf_temp.txt")
$cdeFilename = $cdeTestFilenameNoExt & "nrf" ;Dateiname ermitteln (immer die jeweils 6.Zeile)
FileMove(@ScriptDir & "\nrf_temp.txt",@ScriptDir & "\nrf\" & $cdeFilename,9) ;Neues File benamen und ins Verzeichnis 'NRF' schieben
$cdeMessage1 = ($i & " / " & $CdeRuns & " - NRF File(s) erzeugt" & @CRLF & @CRLF & $cdeFilename) ;Splash text
ControlSetText("Autom. Dateierstellung - Step 1", "", "Static1", $cdeMessage1) ;Splash update
Sleep(200)
For $y = 1 To 5
_ArrayDelete($acdeNRF, 1) ;'Abgearbeitete Zeilen' aus dem Array löschen
Next
Next ;Schleife .... Ende
Sleep(500)
_FileReadToArray($cdeSourceNRF, $acdeNRF) ;SourceFile erneut einlesen
$x = 5
SplashTextOn("- @cde/spi (2013) - Step 2", $cdeMessage1, 300, 70, -1, -1, 16+2, "", 10, 400) ;Splash
For $i = 1 To $CdeRuns ; Schleife .... Start
$cdeFileNameNew = $cdeTestFilenameNoExt & ".bat" ;Filename neu ->'Filename.bat'
$z = StringInStr($acdeNRF[$x],"!", 0, -1) ;StringSplit - nach ! -von links- suchen (Ref=CN=XXXXXX/OU=YYYYY/O=ZZZZZ!!123\456\789.xxx)
$cdePath = StringTrimLeft($acdeNRF[$x],$z) ;StringSplit - Anteil nach dem ! ermitteln (databases\EC\a3m.nsf)
$cdeLenPath = StringLen($cdePath) ;StringSplit - Länge des 'Path' Strings ermitteln
$z = StringInStr($cdePath,"\", 0, -1) ;StringSplit - nach \ -von links- suchen
$z = $cdeLenPath - $z ;StringSplit - Ermitteln der Anzahl zeichen des 'Pfades'
$cdePath = StringTrimRight($cdePath, $z+1) ;StringSplit - zusammensetzen Pfad (databases\EC)
$cdeMessage1 = ($i & " / " & $CdeRuns & " - Batch File(s) erzeugt" & @CRLF & @CRLF & $cdeFileNameNew) ;Splash text
ControlSetText("- @cde/spi (2013) - Step 2", "", "Static1", $cdeMessage1) ;Splash update
Sleep(200)
$cdeTemp = FileOpen(@ScriptDir & "\nrf\" & $cdeFileNameNew,2) ;Neues File mit FileNameNew erzeugen
FileWrite($cdeTemp, "Copy " & ".\" & $cdeFilename & " " & $cdeTargetLW & "Notesdat\" & $cdePath) ;Ins File copy Zeile schreiben (copy Quelle - LW+Pfad)
FileClose($cdeTemp)
$x = $x + 6 ;Um 6 Elemente im Array weitergehen (nächster Dateiname)
Next ;Schleife .... Ende
EndIf
Exit

Wahrscheinlich ganz einfach .... für den 'Profi'

und hier die Powershell

Code

param
(
    $CSV,
    $OutputDir
)


$OutputDir = Read-Host "Path for Import File - " "Please enter path for output files."


If( -not (Test-Path $OutputDir) )
{
  $Result = [System.Windows.Forms.MessageBox]::Show("Directory does not exists, should this be created ?","Please choice",3,[System.Windows.Forms.MessageBoxIcon]::Exclamation)
    If ($Result -eq "Yes")
    {
        New-Item $OutputDir -type directory | Out-Null
        $a = "Directory created"
        $a
    }
    elseif ($Result -eq "No")
    {
        $a = "Choice 'No' - Script will be cancelled / no action"
        $a
        Exit  
    }   
    else
    {
        $a = "Quit"
        $a
        Exit
    }
}
    $CSV = ".\*.csv"                #das Importfile MUSS im SricptDir liegen#
    $DataArr = Import-CSV $CSV
    $DataArr | % {
       $Data = $_
       $Filename = "$($Data.Filename).nrf"
       "$($Data.Redirect)" | Out-File -Encoding Default -FilePath "$($OutputDir)\$($Filename)"
       "$($Data.Order)" | Out-File -Encoding Default -FilePath "$($OutputDir)\$($Filename)" -Append
       "$($Data.RepID)" | Out-File -Encoding Default -FilePath "$($OutputDir)\$($Filename)" -Append
       "$($Data.Titel)" | Out-File -Encoding Default -FilePath "$($OutputDir)\$($Filename)" -Append
       "$($Data.Ref)" | Out-File -Encoding Default -FilePath "$($OutputDir)\$($Filename)" -Append
       }
       $a = "NRF files created"
       $a

Alles anzeigen

ugt100

Ich nochmal ... um die Sache z u vereinfachen.

Wie bewerkstellige ich es aus dem CSV File (den Zeilen) ---> die Einzeldateien mit den untereinander stehenden Werten (Zeilen) z u erzeugen
(Im Prinzip könnte man auch sagen wie transponiere ich ich die Zeile(n) in Spalte(n))

Danke schon mal im voraus

**BugFix**

a) Es gibt eine CSV-UDF, wenn ich nicht irre - schau mal im EN-Forum
b) oder ganz einfach: schau dir

[autoit]

StringSplit
; und
FileReadToArray

[/autoit]

an

**chesstiger**

Eine Gegenfrage:
Wenn die Powershell-Lösung doch so einwandfrei funktioniert, wieso willst du das ganze dann in AutoIt nochmal umsetzen?
Der Ausspruch "Never touch a running system" hat schon eine Existenzberechtigung.
Ja, ich kenne den Text, der etwas anderes sagt, aber hier trifft es zu.

ugt100

Hallo Chesstiger,

da hast Du absolut recht.
Aber da ich diese Art von 'Aufbereitung' verschiedenster CSV Files immer wieder machen muss (Analyse Logffiles ... etc),
war/ist mein persönlicher Ehrgeiz das auch mit AutoIT lösen/abbilden zu können (da dieses mir eigentlich mehr zusagt als die Powershell).

Auf Verständnis hoofend

Danke
mfg
ugt100

kra88

so könnte man es machen... quick and dirty...

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <File.au3>