Informatica : Code snippets (Strings)

 
 Parametri  : St = stringa
            : quanti  = quanti caratteri
 Ritorna    : Una stringa composta dai primi 'qv' caratteri di 'St'
 

 
 procedure Left(VAR St:String; quanti:integer);
 Begin
     if length(St) <= quanti then exit;
     St:=Copy(St,1,quanti);
 end;
 
 
 function Left(St:String; quanti:integer):String
 Begin
     if length(St) <= quanti then begin
        Left:=St;
        exit;
     end;
     Left:=Copy(St,1,quanti);
 end;
 
 
 

 
 Parametri  : S = stringa
            : Quanti  = quanti caratteri
 Ritorna    : Una stringa composta dai primi 'Quanti' caratteri di 'S'
            : 
 Commenti   : Questa versione assembler, e' scritta
            : con le convenzioni
            : usate nell'object pascal di Borland (c),
            : per interfacciare
            : codice Pascal con codice Assembler.
            : N.B. In piu' presuppone che la stringa 
            : sia SHORT; max 255 caratteri
            : e nel primo byte 
            : la lunghezza corrente
            : della stringa stessa.
            : 
 

 
 ;    function left(S:String; Quanti:Integer):String;
 ;
      LeftRes    EQU    DWORD PTR [BP+12]
      LeftS      EQU    DWORD PTR [BP+8]
      LeftQ      EQU    BYTE  PTR [BP+6]
 ;
      Left        PROC      FAR
 ;
                  PUSH        BP
                  MOV         BP,SP
                  PUSH        DS
                  LDS         SI,LeftS
                  LES         DI,LeftRes
                  CLD
                  LODSB                   ; carico len src
                  OR          AL,AL
                  JNZ         LEOK
                  STOSB
                  JMP         FINE4
       LEOK:      CMP         AL,LeftQ    ; quanti ne vuole ?
                  JA          LEFTA       ;    meno OK passali
                  MOV         CL,AL       ; di piu' o uguale
                  XOR         CH,CH       ; copio tutto da [0] a len
                  INC         CX          ; +1 copia anche il primo
                  DEC         SI
                  REP         MOVSB
                  JMP         FINE4
      LEFTA:      MOV         AL,LeftQ
                  MOV         CL,AL
                  XOR         CH,CH
                  STOSB
                  OR          AL,AL
                  JZ          FINE4
                  REP         MOVSB
       FINE4:     POP         DS
                  MOV         SP,BP
                  POP         BP
                  RET         6
 ;
       Left       ENDP
 

 
 Parametri  : S   = stringa
            : qv  = quanti caratteri
 Ritorna    : Una stringa composta dai primi 'qv' caratteri di 's'
 

 
 public string Left(string s, int qv)
 {
     if (qv > s.Length)
     {
         return (s);
     }
     else
     {
         return (s.Substring(0, qv));
     }
 }