[Allegro] Zurueckschalten per Flex

[Anando Eger]

Hallo Herr Fischer,

zum Nachsehen, ob es einen Schlüssel schon gibt, hilft Ihnen vieleicht 
dieses universell nutzbare UP:

:TestRegister
 ----------------------------------------------------------------------------
  ; IN: 	iv enthält Wert in der Form wert at register@truncate
  ;            wert     ist der zu suchende Begriff
  ; 		register ist |3 o-ä. oder der symb. Registername
  ;		truncate wenn =1, dann darf der Registerwert länger sein
  ;
  ; OUT:	iv = "", wenn Wert nicht gefunden, sonst Registerwert
  ; 
  ; Fkt:	prüft das Vorkommen eines Wertes im Register
  ;           Zeichen Æ sollte nicht im Index vorkommen
  ;
  ; Var:	#uRw - wert
  ;		#uRn - Register
  ;		#uRf - Truncate-Flag
  ;		#uRx/#uRX - temp.
  ;DATE:	2007-05-24
  ;--------------------------------------------------------------------------
  ;(C)        Anando Eger 2007

ins #uRx
var #uRx(e"@")\ins #uRw
var #uRx(b"@" e"@")\ins #uRn
var #uRx(b"@" b"@")\ins #uRf\if not "1" var "";ins #uRf
  ; Leerzeichen erhalten
var #uRx(e"@") "Æ"\ins #uRX

qrix t 0
var "1 " #uRn " " #uRX(e"Æ")
qrix\var (f" " b" " e"¶")\ins #uRx

var #uRX(e"Æ")\if =#uRx jump TestRegister_1
jump TestRegister_dif

:TestRegister_1
if #uRf var #uRx;jump TestRegister_Ende
  ; Leerzeichen braucht nicht getestet werden, da Registerwert
  ; nicht auf dieses enden kann !
var #uRx\if =#uRw jump TestRegister_Ende

:TestRegister_dif
var ""

:TestRegister_Ende
#uRw
#uRn
#uRx
#uRf
return\mes TestRegister: return-Fehler 2\end
---<Ende TestRegister>------------------------------------------------------





On 18 Jul 2007 at 14:43, Robert Fischer wrote:

> Liebe Liste,
>  
> bis jetzt ists mir nicht elegant gelungen, mal eben prüfen zu lassen, ob eine bestimmte
> User-ID-Nr. bereits belegt ist.
>  
> Also, wenn ich diese in einem Formular eingebe, soll, am besten gleich nach Enter in
> einem Index geprüft werden, ob bereits vorhanden.
> Wenn nicht, dann keine Meldung, wenn doch, dann von mir aus, Öffnen des Index.
>  
> Es soll _nicht_ ein anderer Satz geladen werden.
>  
> Verzichtbar wäre, dass das Ganze _während_ der Eingabe des Neusatzes im Formular
> passiert, das könnte auch nach Beendigung des Formulars funktionieren.
>  
> Was mir zur Eleganz fehlt, ist die schnelle Möglichkeit, ohne Nachladen im Index zu
> recherchieren.
>  
> Ich habe dann mal sowas für die Eingabe von Nutzern geschrieben, das recht einfach geht,
> da der Satz nur eine Kategorie hat.
> (Wie speichert man denn einen Satz mit mehreren/vielen Kats zwischen?)
>  
> form Benutzer
> var #9B
> ins #uaC
> var "|: B" #9B(1,5) "?"
> ins #uaB
> erase
> var
> #uaB
> find
> if g0 jump erralf
> new
> var #uaC
> ins #9B
> #00 -
> sho rec
> input 241
> jump check
>  
> :erralf
> var "!Nutzer-ID " #9B(1,5) "bereits vergeben" n "Nein = aendern / Ja = trotzdem
> speichern / Abbruch = verwerfen"
> noyes
> if cancel jump benuende
> new
> var #uaC
> ins #9B
> 
> etc.
>  
> Mein Wunsch wäre, auf Zwischenspeichern und Restaurieren des eingegebenen Satzes
> verzichten zu können und mal eben das, was der Button "Index" im Formular macht, auch
> per Flex zu realisieren, ohne Ladevorgang.
> 
> Dann könnte man z.B. eine kontrollierte Schlagwortvergabe realisieren oder ähnliche
> Desiderate. 
> Naja, vielleicht gibts dafür andere elegante Methoden.
>  
> Bitte mir nachzusehen, falls alles das schon existiert, soo gut kanns ichs noch nicht.
>  
> 
> Vielen Dank für Ideen.
> Mit freundlichen Grüßen
>  
> Robert Fischer Berlin
> rfbATblinx.de
> ************************************************************
> 
>