07.05.2013, aktualisiert am 09.05.2013

3743

CSV Datei per Batch erweitern

Hallo an das Forum, vielleicht kann mir einer von Euch weiterhelfen.

Ich habe eine CSV Datei mit ";" getrennten Zeichen

Diese hat u.a. folgenden "Spaltenüberschriften"

Service & ISBNNummer

Test;Test2;Test3;.....;Service;...;Test20;ISBNNummer;Test23
2;aaa;123;.....;C22222;...;11111;10000;Test23
3;bbb;456;.....;C33333;...;22222;20000;Test23

Nun möchte ich erreichen, dass eine weitere Spalte hinzugefügt wird "Steuersatz"

Test;Test2;Test3;.....;Service;...;Test20;ISBNNummer;Test23;Steuersatz

darunter sollen die Werte aus Service & ISBNNummer zusammengefasst werden, getrennt mit einem "-"

Test;Test2;Test3;.....;Service;...;Test20;ISBNNummer;Test23;Steuersatz
2;aaa;123;.....;C22222;...;11111;10000;Test23;C22222-10000
3;bbb;456;.....;C33333;...;22222;20000;Test23;C33333-20000

manuell in Excel ist dieses für mich kein Problem, nur soll dieses per VBS Script oder Batch laufen
ohne das ein anderes Problem noch manuell eingegriffen werden muss.

Ich kenne mich in der Programmierung nicht aus, vielleicht kann mir hier jemand helfen.

Schönen Gruß

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 206191

Url: https://administrator.de/forum/csv-datei-per-batch-erweitern-206191.html

Ausgedruckt am: 07.05.2025 um 16:05 Uhr

18 Kommentare

Neuester Kommentar

Hallo christiankarl und willkommen im Forum!

Grundsätzlich sollte das mit einem VBScript keine große Sache sein - allerdings bräuchte ich dazu eine Satzbeschreibung (bzw zumindest die Spaltennummern der beiden relvanten Felder - diese werden ja wohl immer gleich bleiben) ...

Grüße
bastla

Hallo christiankarl, willkommen im Forum.

Wie bastla schon angemerkt hat, ist das recht gut per VBScript zu lösen.

*.vbs

Option Explicit

Const strCSVPath = "test.csv"  
Const strColSrv  = "Service"  
Const strColISBN = "ISBNNummer"  
Const strColNew  = "Steuersatz"  

Const ForReading = 1
Const ForWriting = 2

Dim objFSO, objFile, objStream, aLine, i, idxService, idxISBN, sNewContent

Set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FileExists(strCSVPath) Then
  Set objFile = objFSO.GetFile(strCSVPath)
  If objFile.Size > 0 Then
    Set objStream = objFile.OpenAsTextStream(ForReading)
    aLine = Split(objStream.ReadLine, ";")  
    If UBound(aLine) = -1 Then
      MsgBox "Die CSV Datei beginnt mit einer Leerzeile.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
    If aLine(UBound(aLine)) <> strColNew Then
      idxService = -1
      idxISBN = -1
      For i = 0 To UBound(aLine)
        If aLine(i) = strColSrv Then idxService = i
        If aLine(i) = strColISBN Then idxISBN = i
      Next
      If idxService > -1 And idxISBN > -1 Then
        sNewContent = Join(aLine, ";") & ";" & strColNew  
        While Not objStream.AtEndOfStream
          aLine = Split(objStream.ReadLine, ";")  
          If UBound(aLine) = i - 1 Then
            sNewContent = sNewContent & vbNewLine & Join(aLine, ";") & ";" & aLine(idxService) & "-" & aLine(idxISBN)  
          Else
            MsgBox "Zeile mit Anzahl Elementen ungleich Überschrift gefunden.", vbCritical Or vbSystemModal, "Fehler"  
            WScript.Quit
          End If
        Wend
        objStream.Close
        Set objStream = objFile.OpenAsTextStream(ForWriting)
        objStream.Write sNewContent
        objStream.Close
      Else
        MsgBox "Überschrift """ & strColSrv & """ und/oder """ & strColISBN & """ nicht gefunden.", vbCritical Or vbSystemModal, "Fehler"  
        WScript.Quit
      End If
    Else
      MsgBox "Überschrift """ & strColNew & """ existiert bereits.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
  Else
    MsgBox "Die CSV Datei hat keinen Inhalt.", vbCritical Or vbSystemModal, "Fehler"  
    WScript.Quit
  End If
Else
  MsgBox "Die CSV Datei konnte nicht gefunden werden.", vbCritical Or vbSystemModal, "Fehler"  
  WScript.Quit
End If

Grüße
rubberman

Hallo rubberman!

Dass Du gleich die Luxus-Variante auspackst ...

Falls das Script auch unattended verwendet werden soll, wäre "WScript.Echo" anstelle von "MsgBox" vorteilhaft, und dann würde ich den jeweiligen Fehler auch durch

WScript.Quit <Fehlernummer>

als Errorlevel zurückgeben ...

Grüße
bastla

Hallo rubberman, Hallo Bastla,

vielen Dank für die Rückmeldung und für das deutlich und ausführliche Script.
Trotz, dass in der ersten Zeile die Werte Service & ISBNNummer vorhanden
und darunterliegende Werte alle gefüllt sind erscheint der Hinweis

"Zeile mit Anzahl Elementen ungleich Überschrift gefunden"

Vielleicht kann hier nochmal jemand drüber schauen

Danke schön, Christian

Hallo christiankarl!

Das soll heißen, dass die CSV-Datei eine (oder mehrere) Zeilen enthält, in denen die Anzahl der Trennzeichen (;) nicht mit der Anzahl Trennzeichen in der Überschriftzeile übereinstimmt... Kann sich aber auch um eine Leerzeile (vermutlich am Dateiende) handeln ?

Ersetze mal Codezeile 36 (Else) durch:

ElseIf UBound(aLine) > -1 Then

Dadurch werden Leerzeilen ignoriert...

Gruß Dieter

Hallo Dieter,

vielen Dank für den Hinweis,
genau das war es gewesen, hier war eine Leerzeile am ende mit enthalten gewesen.

Gruß
Christian

Hallo,
ich hatte zu diesem Problem ein weiteres aufgemacht,
auf Anraten sollte ich die Frage aber hier mit einfügen

in der CSV Datei stehen an unterschiedlichen Stellen Wörter mit APP@

Test;STOAPP@DE1234;
Test2;CAROAPP@DE748;
Test3;MARIAPP@KU1234;
ect.

Nun möchte ich erreichen, dass die gesamte Datei durchsucht wird und sobald der String APP@ vorhanden ist, dieser vor dem Wert APP alles stehen lässt

Test;STO;
Test2;CAR;
Test3;MAR;
ect.

Kann hier bestehendes Skript noch erweitert werden?

Gruß
Christian

Hallo christiankarl!

Ungetesteter Ansatz: Füge nach Zeile 6

Const strDelim = "APP@"

und zwischen Zeile 34 und 35

For j = 0 To UBound(aLine)
    iPos = InStr(aLine(j), strDelim)
    If iPos > 0 Then aLine(j) = Left(aLine(j), iPos - 1)
Next

ein.

Grüße
bastla

Hallo Bastla,

ich habe deinen Ansatz eingebunden,
leider ändert er die Werte nicht ab

Option Explicit

Const strCSVPath = "global.csv"  
Const strColSrv  = "Service"  
Const strColISBN = "ISBNNummer"  
Const strColNew  = "ref"  
Const strDelim   = "app@"  

Const ForReading = 1
Const ForWriting = 2

Dim objFSO, objFile, objStream, aLine, i, idxService, idxISBN, sNewContent, j, iPos

Set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FileExists(strCSVPath) Then
  Set objFile = objFSO.GetFile(strCSVPath)
  If objFile.Size > 0 Then
    Set objStream = objFile.OpenAsTextStream(ForReading)
    aLine = Split(objStream.ReadLine, ";")  
    If UBound(aLine) = -1 Then
      MsgBox "Die CSV Datei beginnt mit einer Leerzeile.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
    If aLine(UBound(aLine)) <> strColNew Then
      idxService = -1
      idxISBN = -1
      For i = 0 To UBound(aLine)
        If aLine(i) = strColSrv Then idxService = i
        If aLine(i) = strColISBN Then idxISBN = i
      Next
      If idxService > -1 And idxISBN > -1 Then
        sNewContent = Join(aLine, ";") & ";" & strColNew  
        While Not objStream.AtEndOfStream
        For j = 0 To UBound(aLine)
            iPos = InStr(aLine(j), strDelim)
            If IPos > 0 Then aLine(j) = Left(aLine(j), iPos -1)
        next
        aLine = Split(objStream.ReadLine, ";")  
          If UBound(aLine) = i - 1 Then
            sNewContent = sNewContent & vbNewLine & Join(aLine, ";") & ";" & aLine(idxService) & aLine(idxISBN)  
          ElseIf UBound(aLine) > -1 Then 
            MsgBox "Zeile mit Anzahl Elementen ungleich Überschrift gefunden.", vbCritical Or vbSystemModal, "Fehler"  
            WScript.Quit
          End If
        Wend
        objStream.Close
        Set objStream = objFile.OpenAsTextStream(ForWriting)
        objStream.Write sNewContent
        objStream.Close
      Else
        MsgBox "Überschrift """ & strColSrv & """ und/oder """ & strColISBN & """ nicht gefunden.", vbCritical Or vbSystemModal, "Fehler"  
        WScript.Quit
      End If
    Else
      MsgBox "Überschrift """ & strColNew & """ existiert bereits.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
  Else
    MsgBox "Die CSV Datei hat keinen Inhalt.", vbCritical Or vbSystemModal, "Fehler"  
    WScript.Quit
  End If
Else
  MsgBox "Die CSV Datei konnte nicht gefunden werden.", vbCritical Or vbSystemModal, "Fehler"  
  WScript.Quit
End If

Kannst du hier nochmal drüberschauen?
Vielen Dank für die vielen Hilfen.

Gruß
Christian

Hallo christiankarl!

Der zweite Codeteil sollte nach der ursprünglichen Zeile 34, also

If UBound(aLine) = i - 1 Then

rein ...

Damit sowohl "app@" als auch "APP@" erkannt werden, verwende

iPos = InStr(1, aLine(j), strDelim, vbTextCompare)

als Ersatz meiner Zeile 2 von oben ...

Grüße
bastla

Hallo Bastla;

Danke nochmal für die Rückmeldung.

Beim weiteren Ausführen erscheint nun ein Windows Script Host Error

Zeile 37
Zeichen 9
Fehler Typen unverträglich. '[STRING. "cad"]"
Code 800A000D

Der Wert cad steht in der 2 Zeile der CSV Datei, direkt als erster Wert.
Der Wert mit "app@" kommt erst in den anderen Bereichen,
vielleicht hilft der Hinweis: Der zu korrigierende Wert "app@" ist im Bereich mit der Überschrift "KBANT" zu finden

Gruß
Christian

Hallo christiankarl!

Was steht denn in der Zeile 37?

Grüße
bastla

Anbei Codezeile 35 - 39

        If UBound(aLine) = i - 1 Then
  For j = 0 To UBound(aLine)
            iPos = InStr(1, aLine(j), strDelim, vbTextCompare)
            If iPos > 0 Then aLine(j) = Left(aLine(j), iPos - 1)
    Next

Gruß
Christian

Hallo christiankarl!

Mit Deinen oben ansatzweise geposteten Testdaten (ergänzt um Einträge der Art "STOAPP@DE1234") und dieser Script-Version

Option Explicit

Const strCSVPath = "global.csv"  
Const strColSrv  = "Service"  
Const strColISBN = "ISBNNummer"  
Const strColNew  = "ref"  
Const strDelim   = "app@"  

Const ForReading = 1
Const ForWriting = 2

Dim objFSO, objFile, objStream, aLine, i, idxService, idxISBN, sNewContent, j, iPos

Set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FileExists(strCSVPath) Then
  Set objFile = objFSO.GetFile(strCSVPath)
  If objFile.Size > 0 Then
    Set objStream = objFile.OpenAsTextStream(ForReading)
    aLine = Split(objStream.ReadLine, ";")  
    If UBound(aLine) = -1 Then
      MsgBox "Die CSV Datei beginnt mit einer Leerzeile.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
    If aLine(UBound(aLine)) <> strColNew Then
      idxService = -1
      idxISBN = -1
      For i = 0 To UBound(aLine)
        If aLine(i) = strColSrv Then idxService = i
        If aLine(i) = strColISBN Then idxISBN = i
      Next
      If idxService > -1 And idxISBN > -1 Then
        sNewContent = Join(aLine, ";") & ";" & strColNew  
        While Not objStream.AtEndOfStream
          aLine = Split(objStream.ReadLine, ";")  
          If UBound(aLine) = i - 1 Then
            For j = 0 To UBound(aLine)
              iPos = InStr(1, aLine(j), strDelim, vbTextCompare)
              If IPos > 0 Then aLine(j) = Left(aLine(j), iPos -1)
            Next
            sNewContent = sNewContent & vbNewLine & Join(aLine, ";") & ";" & aLine(idxService) & aLine(idxISBN)  
          ElseIf UBound(aLine) > -1 Then 
            MsgBox "Zeile mit Anzahl Elementen ungleich Überschrift gefunden.", vbCritical Or vbSystemModal, "Fehler"  
            WScript.Quit
          End If
        Wend
        objStream.Close
        Set objStream = objFile.OpenAsTextStream(ForWriting)
        objStream.Write sNewContent
        objStream.Close
      Else
        MsgBox "Überschrift """ & strColSrv & """ und/oder """ & strColISBN & """ nicht gefunden.", vbCritical Or vbSystemModal, "Fehler"  
        WScript.Quit
      End If
    Else
      MsgBox "Überschrift """ & strColNew & """ existiert bereits.", vbCritical Or vbSystemModal, "Fehler"  
      WScript.Quit
    End If
  Else
    MsgBox "Die CSV Datei hat keinen Inhalt.", vbCritical Or vbSystemModal, "Fehler"  
    WScript.Quit
  End If
Else
  MsgBox "Die CSV Datei konnte nicht gefunden werden.", vbCritical Or vbSystemModal, "Fehler"  
  WScript.Quit
End If

läuft das bei mir fehlerfrei (und erfolgeich) ...

Sollte der Fehler bei Dir weiterhin auftreten, poste bitte Deine "global.csv" (auf die relevanten Zeilen reduziert und ggf anonymisiert) in "Code"-Formatierung.

Grüße
bastla

Hallo Bastla,

vielen dank für die Rückmeldung.
komisch, nun geht's bei mir auch.
Ich danke dir für die hilfreiche Unterstützung.

wünsche ein schönen Feiertag

[OT]
@ bastla und Dieter

Danke für die (Kurz-)Urlaubsvertretung. Ist normalerweise nicht meine Art ein Stück Code in die Welt zu werfen und mich dann nicht mehr darum zu kümmern ...

Grüße
rubberman
[/OT]