CrystalReports - práce s array

ZAJDAN

  • *****
  • 2 091
    • Zobrazit profil
    • E-mail
CrystalReports - práce s array
« kdy: 27. 09. 2017, 09:58:27 »
Ahoj...
potřeboval jsem vytvořit pole z dlouheho stringu, ktery ma parsovaci znak ' | ' :
F1E|I21|R|4|30|50|180|35|BG340SR|S10|D11|T10|1P|PVC|PZS-Z25|HS|/|F11|R20|K7035|T7035|/|SNAL|/,|/,/|TOB,S|H,2|/|VZKT|VZKT|SD|

Kód: [Vybrat]
//Create Array from the configuration(parametric row)
Global StringVar Array myString;
myString:= Split({Command.Parameter},"|");
poradil by si nekdo jak si ted do promené dostanu 4tý index z pole?
díky
Vesele, vesele do továrny dělník běží...vesele, vesele do továrny jde. Vesele se usmívá když mu soustruh zazpívá...vesele, vesele do továrny jde. Vesele si poskočí když se soustruh roztočí ...vesele, vesele do továrny jde.


ZAJDAN

  • *****
  • 2 091
    • Zobrazit profil
    • E-mail
Re:CrystalReports - práce s array
« Odpověď #1 kdy: 27. 09. 2017, 14:29:05 »
SOLVED:

Kód: [Vybrat]
WhilePrintingRecords ;
Shared NumberVar Qty := Sum({Command.Quantity},{Command.Parameter});
Global StringVar Array myString;
Redim myString [32];
myString:= Split({Command.Parameter},'|');
Global Numbervar Amt:=0;
If UBound(myString)>=4
Then Amt:= Tonumber(myString[4]);
Vesele, vesele do továrny dělník běží...vesele, vesele do továrny jde. Vesele se usmívá když mu soustruh zazpívá...vesele, vesele do továrny jde. Vesele si poskočí když se soustruh roztočí ...vesele, vesele do továrny jde.

ZAJDAN

  • *****
  • 2 091
    • Zobrazit profil
    • E-mail
Re:CrystalReports - práce s array
« Odpověď #2 kdy: 27. 09. 2017, 14:30:21 »
ted by me ale zajimalo, jak dostat do promene element co neni typ Number ale text(varchar), protoze UBound vraci pouze Number
Vesele, vesele do továrny dělník běží...vesele, vesele do továrny jde. Vesele se usmívá když mu soustruh zazpívá...vesele, vesele do továrny jde. Vesele si poskočí když se soustruh roztočí ...vesele, vesele do továrny jde.

ZAJDAN

  • *****
  • 2 091
    • Zobrazit profil
    • E-mail
Re:CrystalReports - práce s array
« Odpověď #3 kdy: 27. 09. 2017, 14:45:21 »
SOLVED:
Kód: [Vybrat]
Global StringVar Design ;
If UBound(myString)>=2
Then Design:= ToText(myString[2]);
Vesele, vesele do továrny dělník běží...vesele, vesele do továrny jde. Vesele se usmívá když mu soustruh zazpívá...vesele, vesele do továrny jde. Vesele si poskočí když se soustruh roztočí ...vesele, vesele do továrny jde.