Realisierbarkeit von .txt basierten Aufgaben

[Artcore]

Guten Tag liebe Lazarus Community,
ich bin schon vor einer ganzen Weile auf Lazarus gestoßen und habe damit schon kleinere Spielereien zusammengebastelt.
Nun habe ich jedoch kaum Ahnung von Free Pascal und möchte hier mal fragen ob denn ein paar Sachen so wie gewünscht realisierbar sind.

Es geht darum dass ich in vielen verschiedenen Ordnern, die jedoch alle im selben Pfad liegen, viele verschiedene .txt Dateien habe.
Diesen wurde zwar eine andere Dateiendung verpasst, es waren aber mal .txt Dateien.
Nun möchte ich ein Programm schreiben was all diese Dateien z.B. in einer ListBox schön übersichtlich darstellt, und mir sobald ich den Eintrag einer dieser Dateien anwähle in verschiedenen Editboxen bestimmte Textausschnitte anzeigt.
Diese Textausschnitte liegen immer in bestimmten Zeilenabständen hinter einer bestimmten Zeichenkette, die sich jedoch jedes mal an einer anderen Position befindet.
Dann soll man über die Editboxen diese Ausschnitte ändern und das ganze abspeichern können.

Ist das Ganze grundsätzlich möglich?
Falls ja würde ich euch um ein paar Stichworte bitten nach denen ich dann googlen würde

Vielen Dank im Vorraus,
Artcore

[m.fuchs]

Ist das Ganze grundsätzlich möglich?

Ja.

Falls ja würde ich euch um ein paar Stichworte bitten nach denen ich dann googlen würde

Um die Dateien alle zu finden kannst du FindFirst und FindNext benutzen. Oder (viel einfacher) die TFileListBox (in der Komponentenpaltte unter Misc zu finden).

TStringList ist dein Freund um die Dateien zu laden. Dann kannst du in dem Objekt auf jede Zeile zugreifen und die wiederum in ein Memo kopieren.

Schau mal ob du damit weiterkommst und melde dich dann einfach nochmal mit weiteren Fragen.

[mschnell]

Diesen wurde zwar eine andere Dateiendung verpasst, es waren aber mal .txt Dateien.

Das ".txt" ist nichts weiter als ein Teil des Namens.

Niemand kann wissen, wie eine Datei irgendwann früher einmal geheißen hat.

-Michael

[baumina]

Um dann noch die Zeichenkette innerhalb der Stringlist zu finden, kannst du AnsiPos verwenden.

[Artcore]

Vielen Dank für die schnellen und guten Antworten
ICh werde in das Alles mal reinschauen, aber mir ist gleich aufgefallen dass die TFileListBox nicht in Unterodnern sondern nur im angegebenen Pfad sucht. Diesen Teil muss ich dann also über FindFirst und FindNext realisieren.

[Michl]

Die FileListBox zeigt IMHO immer nur ein Verzeichnis an. Willst Du alle Dateien im Verzeichnis und die Dateien in den Unterverzeichnissen angezeigt bekommen, könntest Du auch einfach eine ListBox (oder Memo oder...) nehmen und selber füllen. Mit der Function FindAllFiles (Unit FileUtil) ist es möglich, sich auch die Dateien aus den Unterverzeichnissen anzeigen zu lassen. z.B:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  Pfad: String;
begin
  Pfad := ExtractFilePath(ParamStr(0));
  SL := FindAllFiles(Pfad, '*.*', true);
  ListBox1.Items.Assign(SL);
  SL.Free;
end;

[WeePee]

Je nach Betriebssystem und zu suchenden Strings musst Du auf die Codierung der Texte achten.

UTF8 vs. Ansi vs. Ascii vs. <was es sonst noch so gibt>

Sieh' mal hier: http://wiki.freepascal.org/LCL_Unicode_Support/de