Beim MEMOINSERT beudeuted die 1 daß du die Daten in die 1 Zeile des Memos schreibst.
Wenn du mehr Daten per Programmierer in das MEMO schreiben willst habe ich eine super Lösung:
Code:
local window meld=size 30 by 3 at 23,6 framed
local window mup=top 1 in meld mode error
local window mdown=bottom 1 in meld mode title
local str txtdatei = "main:memot.txt"
local int mhh=0
ATTACH 'FILE'
local int ANTWORT = CALL ( 'KILL' , 'MAIN:MEMOT.TXT' , FALSE )
DETACH 'FILE'
local view mh=from katmemo where an=ltext.an
use mh
mhh = memoheight(mh,'memofeld')
if mhh > 0
ok = memowrite(mh,'memofeld',txtdatei)
end if
macro memot
screen meld
put in mup;put at 1,1 "Die Änderungen übernehmen ?" filled
put in mdown;put at 1,1 "<Nein> <Ja> <ESC>" filled
put in meld
put at 9,1
menu
:"Nein":
:"Ja":
ok = memoload(mh,'memofeld',txtdatei)
replace mh
end menu
end screen
use mh end
Das Programm lädt den Inhalt aus einem MEMO der Datenbank in eine lokale Textdatei zum Bearbeiten. Die kann man dann mit dem Editor ganz normal ansehen und durch F10 wieder automatisch zurück in das MEMO schreiben lassen.
Das Makro MEMOT enthält:
Code:
<desk>n <menü>l <ret>memot.txt <ret>