[2.3] AppendDelimited?
Posted: Wed Apr 15, 2020 2:40 pm
Its all Greek to me...Chris wrote:robert wrote:In the team Chris is our guardian of readability.
Its all Greek to me...Chris wrote:robert wrote:In the team Chris is our guardian of readability.
Code: Select all
FUNCTION Start( ) AS VOID
RddSetDefault("dbfcdx")
csf2dbf()
RETURN
FUNCTION csf2dbf() AS LOGIC
LOCAL cPfad, cSource, cDbf AS STRING
LOCAL lOK := FALSE AS LOGIC
LOCAL oDB AS DbServer
cPfad:= "C:S4__KVDB"
cSource:= "kv_lieferad.csv"
cDbf:= "kv_Lieferad.dbf"
oDB:= DbServer{cPfad+cDbf}
? lOK := oDB:AppendDelimited(cPfad+cSource, ",")
RETURN lOK
Hi Karl,FFF wrote:The source looks like:
kdno,adrno,nname,vname,straße,plz,ort,staat
0492,0001,Stump,Rüdiger,Im Tal 21,79136,Rickenbach,D
....
(in reality the fields are right padded with blanks for the required field length)
Code: Select all
kdno C(4), comma01 C(1), adrno C(4) ,comma02 C(1), nname C(25),comma03 C(1), vname C(25),comma04 C(1), straße C(45),comma05 C(1), plz C(5) ,comma06 C(1), ort C(40), comma07 C(1), staat C(30)
Really? Never had to try... Then, pls remove this compatibilityrobert wrote:Karl,
That's what VO does as well.