Autor | Thema: Struktur | | Datum:08.06.02 23:09 
(R_RAUH@WEB.DE) | |
Hallo Profaner/innen
Profan 7.0, PRFellow 2001, Win98ME
PROC ALS
Let SF$=@SaveFile$("Speichere Struktur","NEU.STR")
If NEQ$(SF$,"")
ASSIGN #1,SF$
REWRITE #1
Let Anz%=GetCount(LBOX&)
Let I%=0
WhileNot Gt(I%,Anz%)
PRINT #1,GetString$(LBOX&,I%)
Inc I%
Wend
close #1
endif
ENDPROC
So wurde die Datei NEU.STR erstellt.
NAME;C;30;0
VORNAME;C;30;0
STRASSE;C;40;0
TEL;N;19;0
Mit dem Profan Helfer DB-Struktur wollte ich die
Datei NEU.STR einladen.
Fehlermeldung:
Diese Datei ist keine gültige Struktur-Datei.
Was mache ich Falsch?
|
| | Datum: 09.06.02 00:12 
(prof.chaos@netcologne.de) | |
Hallo Rudolf,
der Fehler liegt in dieser Zeile:
WhileNot Gt(I%,Anz%)
Es muss heissen:
WhileNot Equ(I%,Anz%)
Bei deinem Code wird am Ende noch eine Leerzeile erzeugt, und der Helfer scheint das für ungültig zu halten.
Wie nett.
Gruß,
Sebastian
|
|
|