AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

CSV anpassen

Ein Thema von julchen · begonnen am 15. Jan 2021 · letzter Beitrag vom 26. Jan 2021
Antwort Antwort
Seite 1 von 5  1 23     Letzte » 
julchen

Registriert seit: 20. Mär 2008
113 Beiträge
 
Delphi 10.3 Rio
 
#1

CSV anpassen

  Alt 15. Jan 2021, 22:15
Hallo,

Ich habe eine Liste, die ich nach dem Schema anpassen möchte:
Anrede;Titel;Titel;Nachname;Vorname;mit

Die Liste ist so aufgebaut:
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 Semikolon nach Herr bekomme ich hin mit StringReplace.

Nach Prof. wollte ich mit pos und insert das Semikolon einfügen.
Funktioniert aber nicht.
Was mache ich da falsch?
Code:
var
  s1, s2:string;
  i: integer;
  pos1: integer;

begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
  s1 := Memo1.lines[i];
  pos1 := pos('Prof.', s1, pos1 + 1 );
  if pos1 <> 0 then
  begin
   Insert(';' , s1 , pos1);
  end;
VG, Julia
Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
  Mit Zitat antworten Zitat
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.009 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: CSV anpassen

  Alt 15. Jan 2021, 22:28
Möchtest du das Ergebnis im Memo speichern?
Ich frag deshalb, weil du das Ergebnis nur in einer Variable vorhältst und man nicht sehen kann wie du diese weiter verwendest.
Wäre evtl. nicht das Ausführen von 2 StringRepace besser? Einmal mit ' ', ';' und einmal mit ', ', ';'
Evtl. direkt auf Memo.Text angewendet, falls das Memo das Ergebnis bekommen soll:

Delphi-Quellcode:
Memo.Text := StringReplace( Memo.Text, ' ', ';', [rfReplaceAll] );
Memo.Text := StringReplace( Memo.Text, ',', ';', [rfReplaceAll] );
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.571 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: CSV anpassen

  Alt 15. Jan 2021, 23:17
.. 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
Klaus

Geändert von Klaus01 (16. Jan 2021 um 08:25 Uhr)
  Mit Zitat antworten Zitat
jziersch

Registriert seit: 9. Okt 2003
Ort: München
181 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: CSV anpassen

  Alt 16. Jan 2021, 10:10
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.
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.186 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: CSV anpassen

  Alt 16. Jan 2021, 12:09
Wie willst Du denn z.B. Namen und Vornamen unterscheiden?
Wie es aussieht, sind diese schon im Ursprung mit einem Komma (dem einzigen) separiert.
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
julchen

Registriert seit: 20. Mär 2008
113 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: CSV anpassen

  Alt 16. Jan 2021, 18:23
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
Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.186 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: CSV anpassen

  Alt 16. Jan 2021, 22:07
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.
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
166 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: CSV anpassen

  Alt 17. Jan 2021, 10:18
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.
Stefan
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Jetzt rächt sich die Natur und tötet uns.
  Mit Zitat antworten Zitat
julchen

Registriert seit: 20. Mär 2008
113 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: CSV anpassen

  Alt 17. Jan 2021, 11:39
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.
Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
  Mit Zitat antworten Zitat
julchen

Registriert seit: 20. Mär 2008
113 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: CSV anpassen

  Alt 17. Jan 2021, 11:44
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;
Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 02:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf