002
13.11.2006, 00:08 Uhr
~Tomo
Gast
|
ok sorry 
| C++: |
TStringList *liste1;
TStringList *liste2;
TStringList *liste3;
int ilang=1;
int izeichen=1;
bool blang=false;
//--------------------------------------------------------------------
liste1=new TStringList;
liste2=new TStringList;
liste3=new TStringList;
liste1->Text=Memo1->Text;
liste1->Add("");
liste1->Add("");
liste2->LoadFromFile("dd62v2.dat");
for(int ilines=0;ilines<liste1->Count;ilines++)
{
liste3->Add("");
}
for(int zeile=0;zeile<liste1->Count;zeile++)
{
if(blang==true)
{
ilang=1;
blang=false;
}
if(ilang==1)
{
for(int ezeile=2;ezeile<liste2->Count;ezeile++)
{
if(liste1->Strings[zeile].SubString(izeichen,liste2->Strings[0].SubString(1,2).ToInt())==liste2->Strings[ezeile].SubString(5,liste2->Strings[0].SubString(1,2).ToInt()))
{
liste3->Strings[zeile]=liste3->Strings[zeile]+liste2->Strings[ezeile].SubString(1,1);
izeichen=izeichen+liste2->Strings[0].SubString(1,2).ToInt();
if(ilang>3)
{
blang=true;
}
}
}
}
if(ilang==2)
{
for(int ezeile=2;ezeile<liste2->Count;ezeile++)
{
if(liste1->Strings[zeile].SubString(izeichen,liste2->Strings[0].SubString(4,2).ToInt())==liste2->Strings[ezeile].SubString(6+liste2->Strings[0].SubString(1,2).ToInt(),liste2->Strings[0].SubString(4,2).ToInt()))
{
liste3->Strings[zeile]=liste3->Strings[zeile]+liste2->Strings[ezeile].SubString(1,1);
izeichen=izeichen+liste2->Strings[0].SubString(4,2).ToInt();
if(ilang>3)
{
blang=true;
}
}
}
}
if(ilang==3)
{
for(int ezeile=2;ezeile<liste2->Count;ezeile++)
{
if(liste1->Strings[zeile].SubString(izeichen,liste2->Strings[0].SubString(4,2).ToInt())==liste2->Strings[ezeile].SubString(7+liste2->Strings[0].SubString(1,2).ToInt()+liste2->Strings[0].SubString(4,2).ToInt(),liste2->Strings[0].SubString(7,2).ToInt()))
{
liste3->Strings[zeile]=liste3->Strings[zeile]+liste2->Strings[ezeile].SubString(1,1);
izeichen=izeichen+liste2->Strings[0].SubString(7,2).ToInt();
if(ilang>3)
{
blang=true;
}
}
}
}
}
Memo1->Clear();
Memo1->Text=liste3->Text;
delete liste1;
delete liste2;
delete liste3;
ilang=1;
izeichen=1;
|
und so sieht die .dat datei aus: (nur 4 buchstaben um das programm mit "hallo" zu testen
| Code: |
10,12,09
[space]aáàâäbcçdeéèêfghiíìîjklmnoóòôöpqrstuúùûüvwxyz
= bhebgbsfsj,dk§ocmA3l3ü",MEIJfdcvf
a = hlFDBHfkbf,CNe3872shgSc,KAkwnVCds
h = mkZfHBfbsd,Cne3h389fhnf,,ä;$'dfö+
l = iefHNfnnfl,J§(fjndni§kd,F;FIW892ß
o = fkslkgkndc,D§äör3*ܧOvc,MCN32lidD
|
|
