CSV anpassen

[Klaus01]

.. wenn Du das als csv machen willst,

Dann sollten alles Zeilen die gleiche Anzahl von Elementen enthalten.

Herr, , ,Mustermann, ,mit
Herr, , ,Mustermann, Max, mit
Herr,Dr., ,Mustermann, ,mit
Herr,Dr., ,Mustermann, Max, mit
Herr,Prof.,Dr.,Mustermann, ,mit
Herr,Prof.,Dr., Mustermann, Max, mit

Das automatisch hinzubekommenist nicht so einfach.
Wie willst Du denn z.B. Namen und Vornamen unterscheiden?
Oder ist es bei den Daten sicher, dass zumindest der Nachname aufgelistet ist?

Die Titel, würde ich in ein Feld packen, also Prof, Prof. Dr., Prof. Dr. Dr.,

Grüße
Klaus

[jziersch]

Ich würde zunächst aufteilen in Nachname , Vorname (mit Pos(',')

anschliessend schauen welche Anreden und Titel noch vor dem Nachname stehen. Dafür brauchst Du ein Array mit allen möglichen Anreden und kannst über eine Schleife diese der Reihe nach im Nachnamen suchen.

if Pos( a[i], Copy(nachname, 1, Length(a[i])))=1 then ...

Am Ende kannst Du in einer StringList das CSV aufbauen. Es ist dort aber üblich, textelemente in "" zu stellen.

[bernau]

Zitat von Klaus01:

Wie willst Du denn z.B. Namen und Vornamen unterscheiden?

Wie es aussieht, sind diese schon im Ursprung mit einem Komma (dem einzigen) separiert.

[julchen]

Hallo und Danke für die bisherige Rückmeldung,

Die Daten sehen so aus, wie im Beispiel angeführt.
Einen Nachnamen hat jeder Mitarbeiter.

Ich kopiere die Liste in ein Memo.

Die Anzahl der vorgegebenen Elemente, seien es Leerzeichen oder Kommas kann ich nicht beeinflussen.

Nachname und Vorname sind immer durch ein Komma getrennt.

Ich muss mal sehen, ob ich es heute noch schaffe, ein bisschen Code auszuprobieren.

VG, Julia

[bernau]

Frage:

1) Kann man davon ausgehen, dass der String IMMER mit einer Anrede anfängt (also Herr, oder Frau)?
2) Kann man davon ausgehen, dass der String IMMER mit dem Wort "mit" endet?

Oder kann die Anrede oder das Wort "mit" auch mal wegfallen?

Entsprechend kurz oder länger wird der Code.

[Sinspin]

CSV geht aber anders. TStringlist... Add(string)... CommaText und schon ist eine Zeile fertig.
Speichern in einer zweiten TStringList. Die auslesen via Text oder SaveToFile.
Dann hat man eine CSV Datei.

[julchen]

Zitat von bernau:

Frage:

1) Kann man davon ausgehen, dass der String IMMER mit einer Anrede anfängt (also Herr, oder Frau)?
2) Kann man davon ausgehen, dass der String IMMER mit dem Wort "mit" endet?

Oder kann die Anrede oder das Wort "mit" auch mal wegfallen?

Entsprechend kurz oder länger wird der Code.

Die Anrede ist immer Herr oder Frau.

Es gibt immer ein mit.

[julchen]

Ich habe die Funktion CompareStrings gefunden.

Ich habe da den ganzen Morgen schon mit rumgespielt, aber es klappt nicht.
Habe schon alle möglichen Kombinationen durch und komme nicht weiter.
Wenn Herr kleiner als Prof ist, dann ein Semikolon, sonst zwei.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var herr, prof: string;
begin

  herr := 'Herr';
  prof := 'Prof.';
  CompareStrings(herr, prof);
end;

procedure TForm1.CompareStrings(const herr, prof: string);
var
  result : Integer;
  i: Integer;
begin

  begin
  for i := 0 to Memo1.Lines.Count - 1 do
     result := AnsiCompareText(herr , prof);
     if result < 0 then
     begin
       Memo1.Text := Stringreplace(Memo1.Text, herr, 'Herr;' , [rfReplaceAll])
     end

  end;

   for i := 0 to Memo1.Lines.Count - 1 do
     result := AnsiCompareText('Herr;', prof);
     if result < 0 then
     begin
       Memo1.Text := Stringreplace(Memo1.Text, 'Herr' , 'Herr;;' , [rfReplaceAll])
     end

  end;

[Klaus01]

.. CompareStrings vergleicht die Zeichen der Zeichenkette nicht deren Länge.
Da ist es egal ob am Ende ein Semikolon ist oder auch zwei.
'Herr' und 'Prof' unterscheiden sich schon beim ersten Zeichen.

Grüße
Klaus

[stifflersmom]

Da Deine Titel immer eien Punkt beinhalten, kannst Du wohl mit einer Stringlist arbeiten
So mal aus dem Ärmel:

Code:

procedure inputcsv;
var sl : TstringList;
    Anrede, Titel, Name, Vorname, Suffix : String;
begin
 sl := TStringList.Create();
 sl.Delimiter := ',';
 sl.StrictDelimiter := true;
 Try
// Als Beispiel, später sollte das bei Dir eine übergeben Variable an ene Funktion sein, 
// die als Ausgabe dann Deinen Wunschstring enthält
 sl.DelimitedText := 'Herr,Prof., Mustermann, Max, mit'; 

 Anrede := sl[0];
 If Pos('.',sl[1]) > 0 Then // Titel vorhanden
 Begin
 Titel := sl[1];
 Name := sl[2];
 Vorname := sl[3];
 Suffix := sl[4];
 end
 else Begin
 Titel := '';
 Name := sl[1];
 Vorname := sl[2];
 Suffix := sl[3];
 End;
 Finally
  sl.free

End;

Hier gibt es keine Fehlerüberpüfung und sonstige Feinheiten und im Name darf auch kein Punkt vorkommen, aber grundsätzlich siehst Du hier einen gangbaren Weg.