XProfan

Français

Dietmar
Horn

allô zusammen,

wahrscheinlich habe je la fois wieder une Denkblockade:

cela écrivons et Lecture eines normalen dBase-Feldes klappt.

Beim Lecture des Memofeldes scheint mais qui Entschlüsselung pas trop marcher.

Sieht quelqu'un peut-être meinen Denkfehler?
Kompilieren Marque Séparation

PASSWORD 0,"XProfanX2b"
CLS
Declare i&
Var strdat$ = $ProgDir + "dbftest.str"
var dbfdat$ = $ProgDir + "dbftest.dbf"
Var MEdit& = Create("MultiEdit",%HWnd,"",5,60,300,-200)

IfNot Fileexists(dbfdat$)

    assign #1,strdat$
    rewrite #1
    print #1,"NAME;C;200;0"
    print #1,"M1;M;10;0"
    close #1

EndIf

db("Create",strdat$,dbfdat$)
db("Open",#1,dbfdat$)
db("Use",#1)
i& = db("AppendBlank")
db("Put","NAME",encode64(pwd$("Hülsmann")))
Clearlist
AddString encode64(pwd$("Notizen über RGH"))
print encode64(pwd$("Notizen über RGH"))
AddString encode64(pwd$("und sein XProfan."))
print encode64(pwd$("und sein XProfan."))
db("PutMemo","M1")
Clearlist
db("PutRec",i&)
print
print pwd$(decode64(trim$(db("Get","NAME"))))
pwd$(decode64(trim$(db("GetMemo","M1"))))
MoveListToHandle(MEdit&)
ClearList
Waitinput
db("Close",#1)
Fin

Salut
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Habe souvent Probleme gehabt et fülle maintenant qui normalen dbf-Felder avec Ersatzzeichen jusqu'à zur zulässigen Feldlänge sur. Pour dem decodieren lösche je qui Ersatzeichen wieder.
Beim Memofeld fais je es comment folgt:
Kompilieren Marque Séparation

PASSWORD 0,"XProfanX2b"
CLS
Declare i&
Var strdat$ = "dbftest.str"
var dbfdat$ = "dbftest.dbf"
Var MEdit& = Create("MultiEdit",%HWnd,"",5,160,300,-200)

IfNot Fileexists(dbfdat$)

    assign #1,strdat$
    rewrite #1
    print #1,"NAME;C;200;0"
    print #1,"M1;M;100;0"
    close #1

EndIf

db("Create",strdat$,dbfdat$)
db("Open",#1,dbfdat$)
db("Use",#1)
i& = db("AppendBlank")
db("Put","NAME",encode64(pwd$("Hülsmann")))
Clearlist
AddString encode64(pwd$("Notizen über RGH"))
AddString encode64(pwd$("und sein XProfan."))
MoveListToStr$(" ")
db("PutMemo","M1")
db("PutRec",i&)
print
print pwd$(decode64(trim$(db("Get","NAME"))))
print MoveListToStr$(" ")
Clearlist
@DB("GetMemo", "M1")
var LV%=CreateListBox(%hwnd,"",0,0,0,0)

WhileLoop 0,GetCount(0)-1

    RTFAddLine pwd$(decode64(GetString$(0,&Loop)))

EndWhile

ClearList
Waitinput
db("Close",#1)
End

Proc RTFAddLine

    Parameters  Text$
    Text$ = Text$ + "\n"
    SendMessage(MEdit&, 177, $FFFF, $FFFF)' EM_SETSEL
    SendMessage(MEdit&, 194, 0, Addr(Text$))' EM_REPLACESEL

ENDPROC

Salut Thomas

PS. je n'en sais rien. S'inscrire ging pas. Hängte sich toujours sur.

05.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

cela écrivons et Lecture eines normalen dBase-Feldes klappt.

es du dir sûrement Dietmar? NUM-, DATUM- et logische Felder aussi?

Gruß Thomas
Windows XP SP2, XProfan X2

05.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

@Thomas: je wandele qui trop schreibenden données toujours déjà auparavant vom Programme aus convenable um et schreibe vous grundsätzlich dans un CHAR-champ. cela hat den Vorteil, qui je avec qui Tabelle aussi später variabler son peux, chez eventuellen zukünftigeren Erweiterungen et ggf. Veränderungen.

Aussi doit je de meinem Programme aus so ou bien so qui Anwenderangaben sur Korrektheit überprüfen et ggf. korrigieren, avec cela es beim écrivons dans qui Tabelle pas knallt.

par cet Vorgehensweise habe je encore nie NUM-, DATUM- et logische Felder dans meinen Datenbankprogrammen gebraucht, weil cela meiner Erfahrung pour viel einfacher et flexibler avec einfachen C-Feldern funktioniert.

Salut
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

allô Thomas,

j'ai Deinen Code léger abgewandelt et ihn inzwischen dans mon aktuelles projet incorporé et es funktioniert avec cela alles correcte. merci!

quand même bleibt chez mir qui Frage bestehen, pourquoi on cette le détour aller doit, worauf on oui aussi seulement einmal venons doit ...

peut-être peux Roland oui quelque chose en supplément effectuer?

Salut
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

11.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation