title image


Smiley Re: Suchfunktion
Datei laden mit TStringList und LoadFromFile

Liste durchgehen mit TStringList->Count und suchen

Den einzelnen splitten -> hängt vom Aufbau ab, gleiche Länge ? ->

Ausgabe -> Tja, wohin



In etwa so:

//---------------------------------------------------------------------------



#include

#pragma hdrstop



#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

void split(TStringList &name,String eingabe,String delimiter);

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)

{

int x;

String sTmp;

TStringList *worte=new TStringList();

TStringList *ZeilenDerDatei=new TStringList();

ZeilenDerDatei->LoadFromFile("g:\\test.txt");

for(x=0;xCount;x++)

{

sTmp=ZeilenDerDatei->Strings[x];

if(sTmp.Pos("Artnr")>0)

{

split(*worte,sTmp," ");

// mach was mit der Ausgabe

// Attr= worte->Strings[0]

// Preis=worte->Strings[4]

}

}

delete worte;

delete ZeilenDerDatei;

}

//---------------------------------------------------------------------------





void split(TStringList &name,String eingabe,String delimiter)

{

int pos,dellang;

TStringList *feld=&name;

feld->Clear();

feld->Duplicates=dupAccept;

dellang=delimiter.Length();

pos=eingabe.AnsiPos(delimiter);

while(pos>0)

{

feld->Add(eingabe.SubString(1,pos-1));

eingabe.Delete(1,pos+dellang-1);

pos=eingabe.AnsiPos(delimiter);

}

feld->Add(eingabe);

}



Dabei wurde eine Datei benutzt, in der dass



Artnr. tab Bezeichnung tab Preis



drin stand (also auch "tab" als Wort






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: