Sub CREER_GRAPHIQUE() ' à partir d'un fichier à 5 colonnes ' ( 1 = identifiant serie, ' 2 = titre graphique, ' 3 = titre des abcisses, ' 4 = date, ' 5 = valeur) ' contenant n séries triées ' ...
concatenation du plusieurs lignes avec séparateur : ici szo_lib, séparateur ';', regroupés par pzo_cprg SELECT pzo_cprg, SUBSTR (SYS_CONNECT_BY_PATH (szo_lib, ';'), 2) zone_list FROM (SELECT ...
select 'Alter '||OBJECT_TYPE||' '||OBJECT_NAME||' compile;' from user_objects where status ='INVALID' and LAST_DDL_TIME>sysdate-365 order by object_type desc;
ce script par d'un format précis des tables dans le doc : -chaque table est dans un tableau le tableau est comme suit : - ligne 1 : nom de la table en col 2, comment en col 3 ligne suivantes : nom ...
awk qui prend un fichier avec un titre (lignes commençant par *), puis une serie de données séparées par des virgules et qui : - reecrit les lignes de titres - réécrit une parties des données (1 ...
Sub LONGUEUR_MAX_UNE_COLONNE() ' ' ' Dim WS As Worksheet Dim i As Integer Dim com As String Dim col As String ' parcours tous les cellules d'une colonne et retourne la taille maximale trouvée, : ...
Sub MacroCreOnglet() ' ' Macro enregistrée le 15/01/2010 par sgouzien ' Cette macro créé des onglets dans un fichier station.xls a partir ' de fichiers ascii se trouvant dans un répertoire ...
Sub DEBUT_FEUILLE_TOUS() ' ' ' Macro enregistrée le 30/09/2009 par sgouzien ' retaille chaque feuille de tous les fichiers ouverts ' supprime les lignes blanches en fin de fichier ' Dim WB As ...
Sub DEBUT_FEUILLE() ' ' ' Macro enregistrée le 30/09/2009 par sgouzien ' parcours tous les feuilles du fichier Excel Courant, et dans chaque feuille, ' remonte en haut les ascenseurs horizontaux ...
Sub supp_feuille() ' ' ' Macro enregistrée le 30/09/2009 par sgouzien ' supprime chaque feuille ' Dim WS As Worksheet ' supprime toutes les feuilles du fichier, sauf la première : For Each WS In ...
Sub EXTRAIRE_TXT_TOUS() ' ' ' Macro enregistrée le 30/09/2009 par sgouzien ' enregistre un fichier texte pour chaque feuille de chaque fichier excel actif (sauf le fichier macro.xls) ' Dim WB As ...
Sub FORMATTAGE() ' ' ' Macro enregistrée le 30/09/2009 par sgouzien ' formatte chaque feuille du fichier excel courant : ' affecte le format numerique ("0.00000") aux colonnes de A à H ' remplace ...
Sub TAILLE_COLONNES() ' ' ' Dim WS As Worksheet Dim i As Integer Dim com As String Dim col As Integer ' parcours tous les feuilles du fichier, et dans chaque feuille : i = 0 For Each WS In ...
/* ********************************************************* FLEUVES_DTE_MANQ Recherche des dates manquantes sur un liste prédéfinie de fleuves resultat en sortie dans une table temporaire ...
Ce script parcours un répertoire mois par mois (trop de fichiers pour un simple ls) extrait la date runtime du fichier netcdf, en enlève les séparateurs et la compare a la date contenue dans le ...
############################################################ # lister le premier et le dernier fichier d'un repertoire ############################################################ #!/bin/csh ...
#****************************************** # affiche_dern_ligne : affiche la derniere ligne d'un ensemble de fichier #****************************************** #! /bin/csh foreach fic (`ls *`) ...