Istruzioni base

2023-11-08T09:02:53Z

5.90.138.35: /* Stringhe */

== Dichiarazione variabili ==
* Dichiarazione di una stringa locale (di default è lunga 30 caratteri): <code>Local Char CAR</code> 
* Dichiarazione di una stringa locale lunga 50: <code>Local Char STRINGA(50)</code> 
* Dichiarazione di una stringa passata per valore (in una funzione): <code>Value Char STR()</code> 
* Dichiarazione di un intero locale: <code>Local Integer INDEX</code> 
* Dichiarazione di un decimale locale subito inizializzato a 0: <code>Local Decimal DEC : DEC = 0</code> 
* Dichiarazione di un intero passato per valore: <code>Value Integer LENGTH</code> 
* Dichiarazione di un clob locale: <code>Local Clbfile YETI(4)</code> 

Per sapere se una variabile esiste utilizzare <code>dim</code>; restituisce -1 se non esiste, 1 se è dichiarata:
<pre>If Dim(NOMEVAR)>0
#uso la variabile
Endif
</pre>

=== Dichiarare un array ===
Stringa di 250 caratteri (il massimo è 255): <code>Local Char STRINGA(250)</code> 
Array di 1000 stringhe da 30 caratteri: <code>Local Char LISTAFILE(30)(1..1000)</code>; <code>LISTAFILE(1)</code> è la prima stringa di 30 caratteri 
Array di interi con indice che va da 5 a 10: <code>Local Integer intarray(5..10)</code> 
Array di 20 interi con indice che parte da 0: <code>Local Integer intarray(20)</code> 
Matrice di interi: <code>Local Integer intarray(20)(1..3)</code> 

Per sapere la dimensione di un array utilizzare <code>dim</code>; nell'esempio seguente <code>I</code> avrà valore 250.

<pre>
Local Char STRINGA(250)
Local integer I
I=dim(STRINGA)
Infbox num$(I)
</pre>

==== Dichiarare un array in subroutine ====

Per dichiarare un array presente come argomento di una subroutine all'interno della stessa basta dichiarare un array senza dimensione: <code>Value char Array()</code> .
In questo modo recupera la definizione dal metodo chiamante.

Nel seguente esempio STR nel metodo chiamante sarà una stringa lunga 250.

''Subroutine:''
<pre>
Funprog INSERT(STR, INDEX, INS)
Value Char STR()
Value Integer INDEX
Value Char INS()
...
End RET
</pre>

''Metodo chiamante:''
<pre>
...
Local Char STRINGA(250)
RIS= func INSERT(STRINGA, INDEX, INS)
...
</pre>

Nell'help in linea di Sage: andare su riquadro Sviluppo:
* 4GL, Funzioni
* Sotto-programma per il programma AFNC (TEXTRA, TEXTE, STAT, MES1, MES2...)

== Stringhe ==
# Concatenazione di stringhe: si fa con gli operatori <code>+</code> e <code>-</code> (il secondo aggiunge uno spazio tra le due stringhe): <code>RET=STRING1+STRING2-"ciao"</code>
# Lunghezza di una stringa: <code>LENGTH = len(STRINGA)</code> 
# Conversione di un numero in stringa: <code>STRINGA = num$(LENGTH)</code> 
# Conversione di una data in stringa: <code>func AFNC.FDH(date$,"121531")</code> restituisce "01/06/18 12:15:31" 
# Parte sinistra di una stringa lunga LENGTH: <code>STRINGA = left$(STRINGA, LENGTH)</code> 
# Parte destra di una stringa lunga LENGTH: <code>STRINGA = right$(STRINGA, LENGTH)</code> 
# Cercare una sottostringa a partire da una certa posizione: <code>INDEX=instr(1,STR,OLD)</code> 
# Togliere gli spazi all'inizio e alla fine (trim): <code>STRINGA = vireblc(STRINGA,2)</code> 
# Togliere gli spazi multipli: <code>STRINGA = vireblc(STRINGA,5)</code> 
# Togliere gli spazi multipli, gli spazi all'inizio e alla fine: <code>STRINGA = vireblc(vireblc(STRINGA,2),5)</code> Argomenti per il comando vireblc (=modifica spazi)
#* 0 = elimina spazi all'inizio
#* 1 = elimina spazi alla fine
#* 2 = elimina spazi all'inizio e alla fine
#* 3 = elimina spazi all'inizio e taglia la stringa al primo spazio successivo (estrae la prima parola)
#* 4 = elimina tutti gli spazi
#* 5 = elimina tutti gli spazi consecutivi sostituendoli tutti con spazi singoli
# Riempimento con spazi a destra (padding): <code>format$("Kb:5X",[M:YCE0]YCODMAR)</code> "IMQ" -> "IMQ "
# Padding sinistro:
<pre>MY_STRING="This is a string"
If len(MY_STRING)<=35
LEFT_ALIGNED=MY_STRING+space$(35-len(MY_STRING))
RIGHT_ALIGNED=space$(35-len(MY_STRING))+MY_STRING
Endif
</pre>
<pre>space$(EXP_NB) returns a space containing EXP_NB spaces.
This function is equivalent to
string$(EXP_NB,32)
or
string$(EXP_NB," ").
</pre>
# Verificare pattern di una stringa:
#* <code>If pat(CH1, '*ADONIX*') : Infbox 'La stringa CH1 contiene ADONIX!' : Endif</code>
#*Verificare che CH1 contenga una '''lettera''' all'inizio, una '''cifra''' alla fine della stringa ed esattamente 3 caratteri tra i due <code>If pat(CH1, '!???#') : Infbox "Test verificato" : Endif</code>

=== Clob ===
Si può passare tra vettore di stringhe a clob e viceversa:

<pre>Local Char TESTO(250)(1..80)
Setlob TESTO With CLOB</pre>

<pre>Local Char TESTO(250)(1..85)
Setlob CLOB With TESTO(1..85)</pre>

== Numeri ==
# Conversione di una stringa in numero: <code>NUMERO = val("23")</code> 
# Conversione di un numero in stringa: <code>STRINGA = num$(23)</code> 
# Riempimento con spazi a sinistra (padding): <code>format$("N:7",PAR(IP))</code> "12" -> " 12"
# mettere zero dopo i decimali:
# * <code>format$("N:7.4",PAR(IP))</code> "12" -> " 12.0000"
# * <code>format$("NZ:7.4",PAR(IP))</code> "12" -> " 12.0000"
# Riempimento con zeri a sinistra (padding): <code>format$("N0:7",PAR(IP))</code> "12" -> "0000012"
# Riempimento con zeri a sinistra (padding): <code>format$("N0:7.2",PAR(IP))</code> "12" -> "0000012.00"
# Riempimento con massimo 5 zeri a sinistra, taglia i decimali: <code>format$("N0:#####",VALEUR)</code> 77.9 -> "00077"
# Riempimento con massimo 5 spazi a sinistra, taglia i decimali: <code>format$("N:5",VALEUR)</code> 77.9 -> " 77"

=== gestione Bit ===
Ci sono due istruzioni per impostare o recuperare un bi di un valore intero:

<pre>setbit( Valore, Bit_da_impostare, Valore_da_impostare)
getBit( Valore, Bit_da_recuperare)</pre>

* Bit_da_impostare: indice del bit partendo da 1
* Valore_da_impostare: 1 o 0
* Bit_da_recuperare: indice del bit partendo da 1

per esempio:

<pre>A=setbit( 0, 3, 1) #restituisce 4 ( 0000100 )</pre>

== Date e ora ==
Vai qui [[Data_ora|Gestione data e ora]]

== Cicli e condizioni==
=== Condizione ===
Le seguenti forme sono equivalenti:
<pre>If I=1 Then J=2 Else J=3 : Endif</pre>

<pre>If I=1 : J=2 Else J=3 : Endif</pre>

<pre>
If I=1
J=2
Else J=3
Endif
</pre>

Nel caso di più condizioni poste in and, le valutazioni vengono fatte nell'ordine scritto, e il programma si ferma alla prima condizione falsa trovata;
nel caso qui sotto se CondizioneA è falso le altre due condizioni non vengono valutate (quindi in caso di istruzioni non vengono eseguite):

<code>If CondizioneA & CondizioneB and CondizioneC</code>

Esempi:

Controllo che una stringa non sia vuota:
<pre>If [M:YCE1]YSEZFIL <> ""
Endif</pre>

Questa riga
<code> If !clalev([F:YADI]) : Local File ATABDIV [F:YADI] : Endif</code> corrisponde al seguente codice
<pre>
If !clalev([F:YADI])
Local File ATABDIV [F:YADI]
Endif
</pre>

=== Cicli ===
Ciclo su variabile (lo step predefinito è 1):

<pre>
For I = 1 To 13 Step 2.5 : Infbox num$(I) : Next I # visualizza: 1 3.5 6 8.5 11 FIN=13.5
For I = 15 To 20 : Infbox I : Next I : Infbox 'FIN='-num$(I) # 15 16 17 18 19 20
For I = 15 To 11 Step -1 : Infbox I : Next I : Infbox 'FIN='-num$(I) # visualizza: 15 14 13 12 11 FIN=10

For CHN='A','EF','X','ZZZ' : Infbox CHN : Next CHN : Infbox 'FIN='-CHN # visualizza: A EF X ZZZ FIN=ZZZ
</pre>

Ciclo su file:

<pre>
For [F:YCE] Where VALORE = X
...
Next
</pre>

<pre>While INDEX>0
...
Wend</pre>

E' possibile utilizzare la parola chiave <code>break</code> per interrompere il ciclo:
<pre>
For [F:YCE]
VALEUR = [F:YCE]YSEQMAR + 1
Break
Next
</pre>

=== Condizioni multiple ===
<pre>
Case YI
When 1 : Infbox '1'
When 2
YFILE = "C:\TEMP\test2.pdf"
Infbox '2'
When 3
Local Char V2(250)
YFILE = "C:\TEMP\test3.pdf"
Infbox '3' - YFILE - V2
When Default
Endcase

</pre>

== Ordinamento ==
Per ordinare un array usare <code>Sorta</code> con la seguente sintassi :

<code>SORTA NUMVALORI_DAORDINARE ARRAY [Desc]</code>

<code>SORTA NUMVALORI_DAORDINARE ARRAY1, array2 [Desc]</code> (array2 ordinato seguendo l'ordine di ARRAY1)

Esempio:

<pre>
Local Char STR(255)(0..4)
Local Integer NUMBER(0..4)
Local Integer D

NUMBER(0) = 3
NUMBER(1) = 4
NUMBER(2) = 9
NUMBER(3) = 5
NUMBER(4) = 8

STR(0) = "B"
STR(1) = "E"
STR(2) = "C"
STR(3) = "M"
STR(4) = "A"

D= dim(NUMBER)
#per ordinare NUMBER in ordine crescente, e le stringhe in base ai numeri di NUMBER
Sorta D NUMBER,STR

#per ordinare le stringhe in ordine alfabetico
Sorta 4 STR
#per ordinare le stringhe in ordine alfabetico, e i numeri in base all'ordine delle stringhe
Sorta 5 STR,NUMBER

# To sort in descending order
Sorta 4 STR, NUMBER Desc
</pre>

== Funzioni Funprog ==

Le funzioni sono delle parti di codice richiamabili anche da programmi esterni; hanno la visibilità dei parametri e delle variabili globali, ma non delle variabili del programma chiamante.
* Ritornano sempre un valore;
* L'istruzione <code>End</code> termina il flusso di esecuzione della funzione; il valore che la segue sarà il risultato della funzione.
* Possono avere dei parametri.
* I parametri possono solo essere passati per valore (<code>Value</code> indica che il parametro è passato per valore)
* si chiamano con <code>func NOMEFILE.NOMEFUNZIONE(...)</code>

Dichiarazione dentro il file YESEMPIO:
<pre>
Funprog FUNZIONEDIPROVA(PARAM1)
Value Integer PARAM1
If PARAM1 >= 0
End 1
Else
End 0
Endif
End 0
</pre>

Utilizzo:
<pre>
If func YESEMPIO.FUNZIONEDIPROVA(VALORE1)=1
Infbox "Valore positivo"
Else
Infbox "Valore negativo"
Endif
</pre>

Altro esempio:
<pre>
Funprog PROVA2(PAR1,PAR2)
Value Integer PAR1
Value Integer PAR2
Local Integer RES

RES=PAR1*PAR2

End RES
</pre>

Utilizzo:

<pre>
Infbox "il prodotto tra"-num$(VAL1)-"e"-num$(VAL2)-"è:"-num$(func PROVA2(VAL1,VAL2))
</pre>

== Sottoprogrammi Subprog ==
Sono metodi che
* non restituiscono un valore
* possono modificare il valore dei parametri passati
* si chiamano con <code>call NOMESUBPROG(...)</code> all'interno dello stesso file
* si chiamano con <code>call NOMESUBPROG(...) From NOMEFILE</code> da qualsiasi punto

Qui un esempio, che tra l'altro richiama a sua volta un sotto programma dello stesso file sorgente

<pre>Subprog C_ITMREF(VALEUR)
Variable Char VALEUR()
Local Integer YERR
...
Call YCHK_ART(VALEUR,[M:YPR0]X_NAT,[M:YPR0]YDATAI,[M:YPR0]YDATAF,YERR)
...
End</pre>

== Varie ==
* Messaggio a video: <code>Infbox "messaggio: "+ "ciao!"</code> 
* Per porre una condizione "inline", per esempio nei campi selezione di un oggetto si può usare ''string$'':
per esempio per far comparire un valore solo per una certa transazione:
<code>string$(GFLAG='YOFQ',[F:POH]YPOHORE)</code>

SageDev KB - User contributions [en]

Istruzioni base