WD CELLULE CONCATENNEE

Bonjour,

Je souhaite extraire les dates de début et de fin de la colonne 26 pour les ajouter dans deux nouvelles colonnes de la même table. Ces dates sont concaténées.

J'ai essayé avec les opérateurs sur chaines de caractères ou encore fonction droite gauche mais je ne m'en sort pas. L'équivalence excel est (STXT). En effet les cellules concaténées n'ont pas les mêmes dimensions.

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Merci à vous,

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour,
Je suppose que ce post est la suite de

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

, on ne récupérera donc que les dates. Elles seront formatées dans une liste, pour être passées en paramètre à une requête

Dans un premier temps on va faire le ménage (i.e. supprimer les parenthèses,) puis extraire les dates et les inclure dans une chaîne.

Code (Windev):

FONCTION RécupérerDatesDepuisCLasseur(saMonCheminCLasseur est chaine, nNoCol est entier) : Chaine
saDonnéesInitiales est chaînes    //Chaine qui récupère les données de la colonne souhaitée, chaque ligne est séparée de la précédente par une ","
//Dans notre exemple : (15/12/2020,09:03,15/12/2020,17:04,08:01,,,,,),(21/12/2020,09:00,21/12/2020,17:00;08:00,,,,) etc
saParamètre est chaîne    //Liste de dates, formatée pour être passée en paramètre dans une requête (clause IN)

saDonnéesInitiales=RécupèresDonnéesXL((saMonCheminCLasseur,nNoCol)   //Je te laisse faire.
SupprimerParenthèses(saDonnéesInitiales)
saParamètre=RécupèreDates(saDonnéesInitiales)

RENVOYER saParamètre

Code (Windev):

PROCÉDURE SupprimerParenthèses(saMaChaine est une chaîne)
saMaChaine=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(saMaChaine,"(")
saMaChaine=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(saMaChaine,")")

Code (Windev):

FONCTION RécupèreDates(LOCAL saDonnées est chaîne):chaîne
saRes est une chaîne
dMaDate est Date
saMaChaine est une chaîne

POUR TOUTE CHAÎNE saMaChaine DE saDonnées SÉPARÉE PAR ","
    dMaDate=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(saMaChaine,maskDateSystème)
    SI

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(dMaDate) ALORS
        SI

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(saRes,dMaDate)=0 ALORS    //On évite les doublons
            saRes=ConstruitListe(saRes,dMaDate,";")
        FIN
    FIN
FIN
RENVOYER saRes

Code (Windev):

FONCTION ConstruitListe(LOCAL saChaineInitiale est chaîne,LOCAL dMaDate est Date,LOCAL saSéparateur est chaîne):chaîne
saNouvelleListe est une chaîne

SI saChaineInitiale="" ALORS
    saNouvelleListe=dMaDate
SINON
    saNouvelleListe=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("%1%2%3",saChaineInitiale,saSéparateur,dMaDate)
FIN

RENVOYER saNouvelleListe
 

Cliquez pour agrandir...