bestimmten abschnitt speichern

Reply to bestimmten abschnitt speichern on Wed, 22 Nov 2006 09:54:04 GMT

imme — Wed, 22 Nov 2006 09:54:04 GMT

Hallo,

ich habe folgendes Problem:
In meinem Programm habe ich ein Memo Fenster in dem ich eine Text stehen habe z.B:

%MM10000
TEXT
TEXT
TEXT
TEXT
%MM20000

ich möchte jetzt von dem ersten % Zeichen bis zum zweiten % Zeichen den Text unter dem nach dem % Zeichen folgendem Namen speichern. hier MM10000

könnt ihr mir weiter helfen?

mfg imme

Reply to bestimmten abschnitt speichern on Wed, 22 Nov 2006 10:04:26 GMT

GNiewerth — Wed, 22 Nov 2006 10:04:26 GMT

Hi,

guck dir mal die Funktionen strpbrk bzw. strtok an.

Gruß,
Guido

Reply to bestimmten abschnitt speichern on Wed, 22 Nov 2006 10:56:29 GMT

akari — Wed, 22 Nov 2006 10:56:29 GMT

Hallo

@ imme : Was ist denn genau dein Problem? Das Filtern des gewünschten Textes, oder das Speichern?
Ich würde lieber nicht die von GNiewerth erwähnten C-Funktionen benutzten, sondern lieber die AnsiString-Methoden.

bis bald
akari

Reply to bestimmten abschnitt speichern on Thu, 23 Nov 2006 08:44:13 GMT

imme — Thu, 23 Nov 2006 08:44:13 GMT

das filtern!

mfg alex

Reply to bestimmten abschnitt speichern on Thu, 23 Nov 2006 10:03:42 GMT

[[global:guest]] — Thu, 23 Nov 2006 10:03:42 GMT

Mach Dir mal ein neues Projekt, papp einen Button drauf und füge folgendes in die OnClick() ein

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	TStringList* slDaten = new TStringList();
	TStringList* slTemp = new TStringList();
	slDaten->Add("%MM10000");
	slDaten->Add("TEXT1");
	slDaten->Add("TEXT1");
	slDaten->Add("TEXT1");
	slDaten->Add("TEXT1");
	slDaten->Add("%MM20000");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("TEXT2");
	slDaten->Add("%MM30000");
	slDaten->Add("TEXT3");
	slDaten->Add("TEXT3");
	slDaten->Add("TEXT3");
	slDaten->Add("TEXT3");
	slDaten->Add("TEXT3");
	slDaten->Add("TEXT3");
	for (int i = 0; i < slDaten->Count; i++)
	{
		if (slDaten->Strings[i].AnsiPos("%") == 1)
		{
			if (!slTemp->Text.IsEmpty())
			{
				slTemp->SaveToFile(slTemp->Strings[0] + ".txt");
				slTemp->Clear();
			}
			slTemp->Add(slDaten->Strings[i].SubString(2, slDaten->Strings[i].Length() - 1));
		}
		else
			slTemp->Add(slDaten->Strings[i]);
	}
	if (!slTemp->Text.IsEmpty())
	{
		slTemp->SaveToFile(slTemp->Strings[0] + ".txt");
	}

	delete slDaten;
	delete slTemp;
}

Zumindest sollte Dir das einen Anhaltspunkt geben, wie man das Problem lösen kann.