text datei zerlegen

bernd29 · Beiträge: 116 winxp D7 und VB6

Hallo ,

so sieht meine txt aus .

bla bla bla <== die erste und zweite zeile soll in meiner listview nicht gezeit werden
bla bla bla
bla hans musterman bla bla <== und hier nur Hans Musterman
bla bla
bla <== die letzten zeilen auch nicht

hat jemand eine idee?

gruss bernd

_________________
Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.
Sokrates

DSource · Beiträge: 32

Verstehe nicht ganz, wie du das meinst.. steht da wirklich "bla" drin, oder was anderes, dafür immer dasselbe, oder komplett unterschiedliches Zeug?

Generell musst Du Dir beim Parsen immer überlegen, welche Konstanten (nicht im Sinne von Konstanten als Typ selbstverständlich..wiederkehrende "feste" Zeichen sind gemeint) Du aus dem Quelldatenblock - hier deine Textdatei - kennst.

Wenn Du keine Konstanten hast, musst Du dir (vorausgesetzt zu schreibst Deine späteren Quelldaten selber) welche schaffen, anhand dessen Du parsen kannst. Aus einem unbekannten Umfeld an beliebiger Position einen tatsächlichen Namen zu filtern, dürfte schwer werden. Mir würde da nur einfallen, ein sehr sehr großes Wörterbuch zum Vergleichen zu verwenden, da dürfte der Hans dann auch drinstehen und mir einen Anfang liefern

Schildere vielleicht alles etwas genauer.

Gruß, DSource

inselberg · Beiträge: 458

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var
  s,s2: String;
  p   : integer;
begin
  // zeilen loeschen
 memo1.lines.Delete(0);
 memo1.lines.Delete(0);
 memo1.lines.Delete(memo1.lines.Count-1);

 // zerschneiden
 s:= memo1.lines[0];
 s:=copy(s,pos(' ',s)+1,length(s));
 p:=pos(' ',s);
 s2:=copy(s,p+1,length(s));
 p:=p+pos(' ',s2)-1;
 s:=copy(s,1,p);
 memo1.lines[0] := s;
end;

hf

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
hans bist du das ?

bernd29 · Beiträge: 116 winxp D7 und VB6

Hi Leute,

Natürlich steht da nicht bla bla meine eltern haben ein Bowling Center, und haben sich ein neues center Programm zugelehgt in dem alten programm sind text dateien mit den Mitgliedern drin vor und hinter den namen und adressen stehten diese zeichen " immer .

Danke Inselberg für deine Hilfe. kann den code jemand kommentieren ich will ja nicht nur kopieren sonder ihn auch verstehen.

Gruss bernd,

_________________
Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.
Sokrates

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme