Hallo Leute,
Ich möchte folgende Datei-Muster in einen Tree oder
Stringgrid auslesen.
Die erste Datei ist eine reine
ASCII-Datei,
wobei diese Datei feste Feldlängen hat = 80 Stellen bzw Zeichen
http://www.jmichaelis.de/d81.jpg
Die zweite Datei sieht so aus:
Die Dateien sind GAEB-Dateien - zu finden in der Baubranche.
#begin[GAEB]
#begin[GAEBInfo]
[Version]1.2[end]
[VersMon]3[end]
[VersJahr]2002[end]
[Datum]06.01.2003[end]
[Uhrzeit]17:04[end]
[ProgSystem]MWM-Primo / G2K Toolbox V1.2 R20020516[end]
[ProgName]GAEB2000-Export-Treiber V4[end]
[Zeichensatz]
ANSI[end]
#end[GAEBInfo]
#begin[Vergabe]
[
DP]81[end]
#begin[VergabeInfo]
[Wae]EURO[end]
[WaeBez]EURO[end]
#end[VergabeInfo]
#begin[AG]
#end[AG]
#begin[AN]
#end[AN]
#begin[LV]
#begin[LVInfo]
[Name]Muster[end]
[Bez]Muster GAEB2000-Buch[end]
[Datum]06.01.2003[end]
[KurzLang]1[end]
#begin[LVGlied]
[Typ]LVStufe[end]
[Bez][end]
[Laenge]1[end]
#end[LVGlied]
#begin[LVGlied]
[Typ]LVStufe[end]
[Bez][end]
[Laenge]1[end]
#end[LVGlied]
#begin[LVGlied]
[Typ]Position[end]
[Laenge]1[end]
#end[LVGlied]
#end[LVInfo]
#begin[LVBereich]
[OZ]1[end]
[Bez]L O S : 1[end]
#begin[LVBereich]
[OZ]10[end]
[Bez]Abwasserleitung[end]
#begin[Position]
[OZ]101[end]
[Menge]93,000[end]
[ME]m[end]
#begin[Beschreibung]
[Kurztext]{\rtf1\
ansi\deff0{\fonttbl\f0\fmodern Courier New;}
Entwässerungsleitung aus Kunststoffrohren\par}[end]
[Langtext]{\rtf1\
ansi\deff0{\fonttbl\f0\fmodern Courier New;}
Entwässerungsleitung aus Kunststoffrohren nach sta-\par
tischen Erfordernissen nach DIN 4033 herstellen\par
einschl. Erdarbeiten in Boden der Klassen 3 bis 5 so-\par
wie ggf. einschl. Verbau.\par
Ggf. erforderliche Wasserhaltung bis zu einer Pumpen-\par
Leitung von 10 m3 Förderdurchfluß x 5 m geodätischer\par
Förderhöhe je Stunde und Haltung wird nicht gesondert\par
vergütet.\par
Anschlüsse an Schächte und Rohrleitungen werden ge-\par
sondert vergütet.\par
Material = Rohr aus PVC hart, DIN 19 534, Form A,\par
"Auflagerwinkel 120 Grad"\par
Rohrverbindung durch Steckmuffen\par
Auflager aus Sand oder Kiessand herstellen. Material\par
liefert AN.\par
"Korngröße 0,2-OPS"\par
Verlegetiefe\par
"max. 1,25 m"\par
überdeckung.\par
Aushub seitlich lagern und zum Verfüllen verwenden.\par
Überschüssigen Aushub fördern und im Baugelände\par
nach Angabe des AG einbauen und verdichten.\par}[end]
#end[Beschreibung]
#end[Position]
#begin[Position]
[OZ]102[end]
[Menge]1,000[end]
[ME]m[end]
#begin[Beschreibung]
[Kurztext]{\rtf1\
ansi\deff0{\fonttbl\f0\fmodern Courier New;}
wie vor beschrieben,jedoch DN 125\par}[end]
[Langtext]{\rtf1\
ansi\deff0{\fonttbl\f0\fmodern Courier New;}
wie vor beschrieben,jedoch DN 125\par}[end]
#end[Beschreibung]
#end[Position]
Wer kann mir helfen.
MFG
JMich