13. Semikolon pro Zeile in Textdatei mit Leerzeichen ersetzen - geht das?

$old_data = Import-Csv "export.csv" -delimiter ";" -Encoding utf8 # Die Kodierung evtl. anpassen  
foreach($dataset in $old_data) {

   $row = New-Object PSObject -Property @{
   Field1 = "$dataset.field1"  
   Field2 = "$dataset.field2" # und so weiter bis alle Felder verarbeitet wurden. Die Feldnamen musst Du natürlich anpassen.  
   fullname = "$dataset.vorname $dataset.nachname"  
   country = "D" # Sollten da auch andere stehen, dann muss da noch ein if hin.  
   }
   $row | Export-Csv "bearbeitet.csv" -Delimiter ";" -Encoding utf8 -Append  

}

'Alle Variablen müssen vor ihrer Verwendung deklariert werden  
Option Explicit


'*******************************************************************************  
'Deklaration von Konstanten  
'*******************************************************************************  

Const InFileName      = ".\Export.csv"  
Const OutFileName     = ".\Bearbeitet.csv"  

Const ForReading      = 1
Const ForWriting      = 2
Const ForAppending    = 8

Const AsSystemDefault = -2
Const AsUnicode       = -1
Const AsAnsi          = 0


'*******************************************************************************  
'Deklaration von Variablen  
'*******************************************************************************  

Dim objFSO, objInFile, objOutFile
Dim strLine, arrLine, intCnt


'*******************************************************************************  
'Hauptprogramm  
'*******************************************************************************  

'Benötigte Objekte erzeugen  
Set objFSO = CreateObject("Scripting.FileSystemObject")  

'Quell- und Zieldatei öffnen  
Set objInFile  = objFSO.OpenTextFile(InFileName, ForReading, False, AsAnsi)
Set objOutFile = objFSO.OpenTextFile(OutFileName, ForWriting, True, AsAnsi)

'Quelldatei zeilenweise einlesen, bearbeiten und in die Zieldatei schreiben  
Do While Not objInFile.AtEndOfStream
  'Zeile einlesen  
  strLine = objInFile.ReadLine

  'Zeileninhalt anhand der Semikolons zerlegen  
  arrLine = Split(strLine, ";")  
  strLine = ""  

  'Vor- und Nachname zusammenfügen  
  For intCnt = 0 To UBound(arrLine)
    If intCnt <> 13 Then
      If intCnt > 0 Then strLine = strLine & ";"  
      strLine = strLine & arrLine(intCnt)
    Else
      strLine = strLine & " " & arrLine(intCnt)  
    End If
  Next

  'Deutschland durch D ersetzen  
  strLine = Replace(strLine, "Deutschland", "D", 1, -1, vbTextCompare)  

  'Zeile in Ausgabedatei schreiben  
  objOutFile.WriteLine strLine
Loop

'Dateien schließen  
objInFile.Close
objOutFile.Close

$old_data = Import-Csv "export.csv" -delimiter ";" -Encoding utf8 # Die Kodierung evtl. anpassen  
foreach($dataset in $old_data) {

   $row = New-Object PSObject -Property @{
   Field1 = $dataset.field1
   Field2 = $dataset.field2
   fullname = $dataset.vorname + " " + $dataset.nachname  
   }
   $row | Export-Csv "bearbeitet.csv" -Delimiter ";" -Encoding utf8 -Append  

}

Wert1;Zahl1;Wert2;Surname;GivenName

$row = New-Object PSObject -Property @{
   Wert1 = $dataset.Wert1
   Zahl1 = $dataset.Zahl1
   Wert2 = dataset.Wert2
   fullname = $dataset.GivenName + " " + $dataset.Surname  
   }