[Tustep-Liste] Segment aus Datei ansprechen

[Hagen Reinstein]

Lieber Herr Reeg,

> gibt es eine einfache Möglichkeit beim Lesen mit ACCESS
> nur ein bestimmten Segment zu lesen?

Als kleine Spielerei eine weitere Möglichkeit mit access - lange nicht so 
elegant wie Herrn Schälkles Lösung, aber sehr sehr einfach:

$$=- {}
mode variable

quelle = "..."
ziel   = "..."
segment = "..."


compile
gesucht_ist = concat ("#=: ",segment)
ausgeben = "weiß noch nicht"

access q: read       /records "{quelle}" sn.zn/un, text
access z: write/erase/records  "{ziel}"  sn.zn/un, text

loop/999999
   read/next/exit q
   if (text.sw."#=: ") ausgeben = "nein"
   if (text.sw.gesucht_ist) ausgeben = "ja"

   if (ausgeben.eq."ja" .and. text.nc."|<|#=: |") write z
endloop

endaccess/print q
endaccess/print z
endcompile
*eof

Die "Entscheidung" zur Ausgabe orientiert sich an Unterschied und 
Reihenfolge von 'nur' "#=: " und "#=: gesuchter Segmentname" (in der 
Variablen "gesucht_ist").

So würde allerdings auch die - unerwünschte - Zeile "#=: gesuchter 
Segmentname..." ausgegeben, dies verhindert das 
"... .and. text.nc."|<|#=: |".

Viele Grüße ** H. Reinstein **