Fonctions rexx

Soyez le premier à donner votre avis sur cette source.

Vue 8 040 fois - Téléchargée 404 fois

Description

Ceci est une unité implémentant des fonctions à l'image de ce qui peut être fait en REXX.

Elle contient les fonctions de traitement des chaînes de caractère :
Le séparateur par défaut est le blanc

RWord : Donne un mot dans une chaine
ex : RWord('TEST LIGNE',2) donne LIGNE
ex : RWord('TEST;LIGNE',2,';') donne LIGNE

RWordSuite : Donne un mot et sa suite dans une chaine
ex : RWordSuite('TEST LIGNE SUITE',2) donne LIGNE SUITE
ex : RWordSuite('TEST;LIGNE;SUITE',2,';') donne LIGNE;SUITE

RWordPrec : Donne un mot et le début dans une chaine
ex : RWordPrec('TEST LIGNE SUITE',2) donne TEST LIGNE
ex : RWordPrec('TEST;LIGNE;SUITE',2,';') donne TEST;LIGNE

RWords : Donne le nombre de mots dans une chaine
ex : RWords('TEST LIGNE SUITE',2) donne 3
ex : RWords('TEST;LIGNE;SUITE',2,';') donne 3

RLeft : Donne Lg caractères à partir de la gauche
ex : RLeft('TEST LIGNE SUITE',3) donne TES

RRight : Donne Lg caractères à partir de la droite
ex : RRight('TEST LIGNE SUITE',3) donne ITE

RSubstr : Donne Lg caractères à partir de la position Index
ex : RSubstr('TEST LIGNE SUITE',3,6) donne T LIGN

//Donne Lg caractères à partir de la position Index avec un Padding
Function RPad(Lig:String;Lg:Integer;Pad:String):String;
Function RPadLeft(Lig:String;Lg:Integer;Pad:String):String;

//Donne la position d'un mot dans une ligne en fonction d'un séparateur
Function RWordPos(Mot,Lig,Sep:String=''):Integer;

//Enlève un mot d'une phrase en tenant compte du séparateur
Function RDelWord(Lig:String;Ind:Integer;Sep:String=''):String;

//Enlève le dernier mot d'une phrase en tenant compte du séparateur
Function RDelLastWord(Lig:String;Sep:String=''):String;

//Change un mot dans une Phrase par sa position
Function RChgWord(Lig:String;Ind:Integer;NewWord:String;Sep:String=''):String;

//Donne la position d'un mot dans une chaine en nombre de mots
Function RWordIndex(Mot,Lig,Sep:String=''):Integer;

//Donne le dernier mot d'une ligne
Function RLastWord(Lig,Sep:String=''):String;

//Change le séparateur de la ligne
Function RChgSep(Lig,SepAv,SepAp:String):String;

//Eclate une ligne vers une Liste selon un séparateur
Function RSplit(Lig:String;Sep:String=''):TStrings;

//Joint une Liste vers une Ligne avec un séparateur
Function RJoin(Liste:TStrings;Sep:String=''):String;

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
54
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
21 décembre 2009

Si j'ai bien compris...

Rpad('aaa',5,'b') ==> aaabb ?

Function RPad(Lig:String;Lg:Integer;Pad:String):String;

Je devais confondre avec pudding !
Messages postés
1
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
18 janvier 2008

Ca prouve que le source est lu
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
Permet de compléter une chaine pour qu'elle atteigne une certaine taille
Messages postés
54
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
21 décembre 2009

Euh.. C'est quoi un padding ?
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011

Franchement Merci j'ai beau cherché comment réccuperer des variables qui sont envoyés !
je me contentais de const+variable avec copy(variable,index,indice)

^^

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.