PureBoard

Code: Alles auswählen

EnableExplicit


Structure Daten
	Teil1.s
	Teil2.s
	Teil3.s
	Teil4.s
	Teil5.s
	Teil6.s
	Teil7.s
	Teil8.s
	Teil9.s
	Teil10.s
EndStructure
Global NewList Datensatz.Daten()


Define File.s, FileNr
Define String.s, StringCount
Define Success


File = OpenFileRequester("", "Dateiliste öffnen:", "Text (*.txt)|*.txt;|Alle Dateien (*.*)|*.*", 0)
If Len(File) = 0 : End : EndIf

FileNr = ReadFile(#PB_Any, File)
If FileNr
	While Eof(FileNr) = 0
		String = ReadString(FileNr)

		If AddElement(Datensatz())
			With Datensatz()
				\Teil1 = StringField(String, 1, ";")
				\Teil2 = StringField(String, 2, ";")
				\Teil3 = StringField(String, 3, ";")
				\Teil4 = StringField(String, 4, ";")
				\Teil5 = StringField(String, 5, ";")
				\Teil6 = StringField(String, 6, ";")
				\Teil7 = StringField(String, 7, ";")
				\Teil8 = StringField(String, 8, ";")
				\Teil9 = StringField(String, 9, ";")
				\Teil10 = StringField(String, 10, ";")
			EndWith

			StringCount + 1
		EndIf
	Wend

	CloseFile(FileNr)

	MessageRequester("Ergebnis", "Fertig!" + #CRLF$ + Str(StringCount) + " Datensätze wurden geladen.")
	Success = #True
Else
	MessageRequester("Fehler!", "Konnte Datei nicht öffnen.")
	Success = #False
EndIf


If Success = #True
	; Hier eventuell etwas mit den geladenen Daten anstellen...
EndIf

Code: Alles auswählen

Structure Item
  Array Field.s(10)
EndStructure

Global NewList Item.Item()

; Einlesen
Restore Rohdaten
Read.s String$
While String$
  AddElement(Item())
  Item()\Field(0) = String$ ; Rohdaten
  ; Zerstückeln
  For Index = 1 To 10
    Item()\Field(Index) = StringField(String$, Index, ";")
  Next
  Read.s String$
Wend

; Filtern
ForEach Item()
  *Item.Item = @Item()
  While NextElement(Item())
    If Item()\Field(3) = *Item\Field(3) ; Gleiche M-Nummer
      ; Zusammführen
      For Index = 1 To 10
        If Item()\Field(Index) <> *Item\Field(Index)
          *Item\Field(Index) + "," + Item()\Field(Index)
        EndIf
      Next
      DeleteElement(Item())
    EndIf
  Wend
  ChangeCurrentElement(Item(), *Item)
Next

; Neue Datensätze
ForEach Item()
  Item()\Field(0) = Item()\Field(1)
  For Index = 2 To 10
    Item()\Field(0) + ";" + Item()\Field(Index)
  Next
Next


; Ausgabe
ForEach Item()
  Debug Item()\Field(0)
Next




DataSection
  Rohdaten:
  Data.s "Kanzler;Robert Willhelm;M 02148;Asien;Afghanistan;Staat;;;2003;Landreise mit dem Auto"
  Data.s "Kanzler;Robert Willhelm;M 02148;Asien;Afghanistan;Staat;;;2004;mit öffentlichen Verkehrsmitteln"
  Data.s "Kanzler;Robert Willhelm;M 02148;Asien;Afghanistan;Staat;;;2005;mit dem Fahrrad"
  Data.s "Kanzler;Robert Willhelm;M 05686;Asien;Afghanistan;Staat;;;2003;Landreise mit dem Auto"
  Data.s "Kanzler;Robert Willhelm;M 05686;Asien;Afghanistan;Staat;;;2004;mit öffentlichen Verkehrsmitteln"
  Data.s "Kanzler;Robert Willhelm;M 05686;Asien;Afghanistan;Staat;;;2005;mit dem Fahrrad"
  Data.s ""
EndDataSection

Code: Alles auswählen

; Das hier musst du anpassen:
#FILENAME_SOURCE$ = "test.csv"
#FILENAME_DESTINATION$ = "test_new.csv"

; Also angenommen du kennst die Anzahl der Datensätze, 
; dann ist ein Array von Vorteil, ansonsten 
; solltest du eine LinkedList verwenden:

Structure Datensatz
  OriginalText.s
  Felder.s[10] ; Es gibt 10 Felder pro Datensatz
  Zusammengefasst.i
EndStructure

NewList Daten.Datensatz()
Define k.i

; Lese die Datei Zeilenweise ein:
If ReadFile(0, #FILENAME_SOURCE$)
  While Eof(0) = 0
    AddElement(Daten())
    Daten()\OriginalText = ReadString(0)
    Daten()\Zusammengefasst = #False ; Dieser Datensatz wurde noch nicht zusammengefasst
    
    ; Jetzt finde die Felder innerhalb des Strings
    For k = 0 To 9
      Daten()\Felder[k] = StringField(Daten()\OriginalText, k + 1, ";")
    Next k
  Wend
  CloseFile(0)
Else
  Debug "Angegebene Datei nicht vorhanden."
EndIf

; Sortiere die Daten nach dem ersten Feld um im nächsten Schritt effizienter zu arbeiten
SortStructuredList(Daten(), #PB_Sort_Ascending, OffsetOf(Datensatz\Felder), #PB_Sort_String)

; Fasse die Daten zusammen
Define *CurrentElement.Datensatz

ForEach Daten()
  If Not Daten()\Zusammengefasst
    ; Merke das aktuelle Element
    *CurrentElement = @Daten()
    
    ; Suche nun die darauffolgenden Datensätze ab ob sie einen selben Namen enthalten
    While NextElement(Daten())
      If Daten()\Felder[0] = *CurrentElement\Felder[0]
        ; Füge den restlichen Text mit einem Komma an das aktuelle Element an ...
        For k = 1 To 9
          ; ... aber nur wenn der Text nicht schon im aktuellen Element steckt
          If FindString("," + *CurrentElement\Felder[k] + ",", "," + Daten()\Felder[k] + ",", 1) = 0
            *CurrentElement\Felder[k] + "," + Daten()\Felder[k]
          EndIf
        Next k
        
        ; Alternativ könnte man das Element auch löschen
        Daten()\Zusammengefasst = #True
      Else
        ; Das erste Feld stimmt nichtmehr überein, also können wir hier die innere Schleife verlassen,
        ; denn die Liste ist ja sortiert.
        Break
      EndIf
    Wend
    
    ; Springe zum alten Element zurück
    ChangeCurrentElement(Daten(), *CurrentElement)
  EndIf
Next

; Schreibe es in eine neue Datei rein:
If CreateFile(0, #FILENAME_DESTINATION$)
  ForEach Daten()
    If Not Daten()\Zusammengefasst
      For k = 0 To 8
        WriteString(0, Daten()\Felder[k] + ";")
      Next k
      ; und nun einen Zeilenumbruch nach dem letzten Feld
      WriteStringN(0, Daten()\Felder[k])
    EndIf
  Next
  
  CloseFile(0)
EndIf