Bulletin d'information Quantys / Aemos Finances N° 3 : Dyalog APL : Le mouvement se confirme.

Bulletin d'information Quantys N° 3 : Dyalog APL : Le mouvement se confirme ?
Le 15 janvier 2003.

Tout d'abord, permettez nous de vous souhaiter une bonne et heureuse année 2004.
Comme l'indique le titre de ce numéro, l'intérêt que vous portez à Dyalog APL semble se confirmer puisque de nouveaux comptes prestigieux s'ouvrent à ce langage.
C'est pourquoi nous allons poursuivre en 2004 nos présentations de Dyalog APL.
Par ailleurs, nous voulions également vous informer de notre expertise en matière de rapprochement de données et de systèmes hétérogènes.

Dyalog APL est un langage riche et puissant permettant d'écrire très simplement des programmes et macros sans pour autant être un expert en développement informatique.

Contrairement aux autres langages informatiques et outils tels qu'Excel, il permet de travailler globalement sur des tableaux et non ligne à ligne.

Dyalog APL apporte la réponse au professionnel à la recherche d'outils de calcul et de simulation simples et efficaces.

La présentation aura lieu le mercredi 11février 2004 et sera principalement constituée d'exemples pratiques.
Nous étudierons notamment un cas d'automatisation de production de statistiques de ventes, ainsi que de rapprochement de données en provenances de services différents.

Pour en savoir plus et vous inscrire :
http://www.quantys.fr/produits/apl/dyalog2004_02.htm

Les points suivants seront notamment abordés :

- Importer et exporter des données d'Excel
- Calculs simples sur des tableaux à 2 dimensions (additions, multiplications, ...)
- Calcul direct de sommes, moyennes, ...
- Recherche du maximum, du minimum, ...
- Tri de données (croissant, décroissant),
- Agrégation des données (sous-totaux),
- Rapprochement de tableaux en provenance de 2 sources différentes, calcul d'écarts et recherche d'orphelins,
- Résoudre instantanément un système de n équations à n inconnues
- Inversion de matrice
- Transposer facilement un tableau (inverser axes lignes colonnes)
- Récupérer des données d'une base relationnelle telle qu'Oracle, Sybase, Access, etc ...

La société Quantys conçoit et réalise des applications de rapprochements de données et de systèmes.

Nos principaux clients ont souvent besoin d'auditer la cohérence des données présentes dans leurs systèmes Front-Office, Back-Office et Comptables.

Les produits "miracles" dans ce domaine sont relativement nombreux.
Hélas, ils oscillent généralement entre 2 types de défauts. En effet ils sont soit incomplets, soit excessivement lourds à manipuler.
De plus, ils nécessitent très souvent l'intervention d'ingénieurs informatiques de l'éditeur qui viennent finalement finir de développer le rapprochement.

C'est pourquoi nous avons opté pour une solution qui nous parait plus pertinente : nous avons développé une bibliothèque d'outils standard qui nous permettent de réaliser très rapidement des rapprochements aisément utilisables et paramétrables.

Ainsi, le client n'acquiert pas de licence, il reste propriétaire du logiciel développé et peut utiliser les sources à sa guise.
De même l'application, développée sur mesure, correspond précisément à ses besoins, ni plus, ni moins.

Vous découvrirez ici quelques unes des utilisations les plus réussies dans les domaines les plus divers (finance, économie, industrie, …).

Certains termes reviennent régulièrement et ce n’est pas un hasard : souplesse, rapidité, matrices, tableaux et surtout … satisfaction, ce qui reste pour nous le plus important.

En attendant de rejoindre le cercle des heureux utilisateurs de Dyalog APL, voici un aperçu de ce que votre vie professionnelle pourrait déjà être …

En préparation : Poclain-Hydraulics, leader mondial du moteur hydraulique hautes pressions, conçoit ses prototypes et aide les clients à choisir les meilleures options de moteurs, le tout avec Dyalog APL.

Comment remplacer une chaîne de caractères par une autre dans une plus grande ?

Nous avons le plaisir de vous offrir cette petit fonction fort utile.
Sont utilisation est très simple.
En effet pour remplacer "papa" par "maman" dans la phrase "C'est papa qui m'accompagne à l'école", il suffira d'écrire :

? Remplace("papa", "maman", "C'est papa qui m'accompagne à l'école")
=> C'est maman qui m'accompagne à l'école

Function Remplace(PR_ChaineARemplacer As String, PR_ChaineDeRemplacement As String, PR_chaineSource As String) As String
' Remplacer une chaîne de caractères par une autre chaine de caractère contenue dans une chaîne de caractères
' ARGUMENTS :
' PR_ChaineARemplacer : Il s'agit de la chaîne de caractères à remplacer
' PR_ChaineDeRemplacement : Il s'agit de la chaîne de caractères de remplacement
' PR_ChaineSource : Il s'agit de la chaîne de texte qui subit la modification
' SORTIE : Rend la chaîne de caractère modifiée

Dim WVL_PositionChaine As Integer
Dim WVL_PositionDebut As Integer

' Initialiser la valeur retour
Remplace = PR_chaineSource

' C'est fini si la chaine source est vide
If 0 = Len(PR_chaineSource) Then Exit Function

' position de la chaîne à rechercher dans le texte
WVL_PositionChaine = 1
' position de début de recherche
WVL_PositionDebut = 1

' Initialiser la valeur retour
Remplace = ""

' Effectuer le traitement tant que l'on est pas en fin de chaîne
Do While WVL_PositionChaine <= Len(PR_chaineSource)
     ' position de la chaîne à rechercher dans le texte
     WVL_PositionChaine = InStr(WVL_PositionChaine, PR_chaineSource, PR_ChaineARemplacer, 0)
     If (WVL_PositionChaine = 0) Then
          ' Rien à faire si la chaine à remplacer n'est pas incluse dans la chaine source
          Exit Do
     Else
          ' Remplacement de la chaîne
          Remplace = Remplace & Mid(PR_chaineSource, WVL_PositionDebut, WVL_PositionChaine - WVL_PositionDebut) & PR_ChaineDeRemplacement ' substitution de la chaîne
      End If
     ' position de début de recherche
     WVL_PositionDebut = WVL_PositionChaine + Len(PR_ChaineARemplacer)
     ' position de la chaîne à rechercher dans le texte
     WVL_PositionChaine = WVL_PositionDebut
Loop

' Ajouter la fin de chaîne
Remplace = Remplace & Mid(PR_chaineSource, WVL_PositionDebut, Len(PR_chaineSource))

End Function

Voici la même fonction en Dyalog APL.
Elle remplace une chaîne de caractères par une autre dans un vecteur ou une matrice alpha.
Elle est également capable de remplacer un vecteur numérique par un autre dans un vecteur ou une matrice numérique.

Nous vous offrons également un petit Workspace contenant une fonction de lecture et une fonction d'écriture Excel utilisant le protocole de communication OLE.

Pour en savoir plus et télécharger les Workspaces : http://www.quantys.fr/produits/apl/faq/index.htm