Problème de duplication de ligne avec modification de celle-ci

Version imprimable

27/11/2014, 19h02
sbastyen

Problème de duplication de ligne avec modification de celle-ci

Bonjour,

Étant novice en programmation VB, je me tourne vers vous pour résoudre mon problème d'ignorance.

J'ai effectué des extractions de fichier csv en powershell d'une base sql, puis des mises en forme en tableaux croisés dynamique par macro excel.
Jusque là tout va bien et fonctionne sans soucis.

Sauf pour deux fichiers qui ne sont pas "formaté" de la bonne façon pour faire un reporting correct.

Plutôt qu'un long discours voici les informations :

Fichier obtenu par extraction (exemple) :

machine,Date,Prenom Nom,Site
Serveur1,08-11-2014,John Doe,Paris
Serveur2,09-11-2014,Bob Marley,Bordeaux
Serveur1 Serveur2 serveur3,10-11-2014,John Doe,Paris
Serveur1 serveurx,11-11-2014,Leititia Casta,Marseille
Serveur1,08-11-2014,super dev,Paris

Mais pour présenter mes tableaux de reporting automatisés je dois avoir comme fichier :

machine,Date,Prenom Nom,Site
Serveur1,08-11-2014,John Doe,Paris
Serveur2,09-11-2014,Bob Marley,Bordeaux
Serveur1,10-11-2014,John Doe,Paris
Serveur2,10-11-2014,John Doe,Paris
serveur3,10-11-2014,John Doe,Paris
Serveur1,11-11-2014,Leititia Casta,Marseille
serveurx,11-11-2014,Leititia Casta,Marseille
Serveur1,08-11-2014,super dev,Paris

J'ai essayé depuis l'extraction en powershell mais la zone machine extraite dans la base SQL pour avoir cette information ne le permet pas. J'ai essayé avec une macro excel sans plus de succès.

J'ai passé 2 jours à chercher sur le web et à faire des tests en VB mais je me rend compte que je suis plus que débutant. Pour la méthode je pense être au point, mais pour le réaliser je suis un cancre. Je pense que la solution est simple et devant mon nez.

Merci de votre aide

cdlt

Sébastien

Bonjour,

Ca devrait t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim lig(5)
lig(1) = "Serveur1,08-11-2014,John Doe,Paris"
lig(2) = "Serveur2,09-11-2014,Bob Marley,Bordeaux"
lig(3) = "Serveur1 Serveur2 serveur3,10-11-2014,John Doe,Paris"
lig(4) = "Serveur1 serveurx,11-11-2014,Leititia Casta,Marseille"
lig(5) = "Serveur1,08-11-2014,super dev,Paris"
 
For i = 1 To 5
    colonnes = Split(lig(i), ",")
    Serveurs = Split(colonnes(0), " ")
    If UBound(Serveurs) > 0 Then
        For j = 0 To UBound(Serveurs)
            msg = msg & Serveurs(j) & ", " & colonnes(1) & ", " & colonnes(2) & colonnes(3) & Chr(13)
        Next
    Else
        msg = msg & lig(i) & Chr(13)
    End If
Next
msgbox msg

28/11/2014, 18h59
ProgElecT

Salut sbastyen et pc75
Ligne 14

Code:

msg = msg & Serveurs(j) & ", " & colonnes(1) & ", " & colonnes(2) & "," & colonnes(3) & Chr(13)
01/12/2014, 13h35
sbastyen

Merci de votre aide

Un grand merci pour vos réponses. Je n'ai pas pu tester vos modifications.

Après mes réunions, je les tests et vous tiens informé au plus vite.

Cordialement

Sbastyen

Resolution du problème

Bonjour,

Je n'ai pas réussi en VB à faire ce que je voulait.

J'ai pris la bonne vieille méthode du batch.

Voici ce que cela donne :

Créer un batch avec les commandes ci-dessous puis lancer le batch avec en argument le nom du fichier à traiter.

Commandes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 @echo off setlocal ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION set nf=%~n1_BIS.csv.csv ::del %nf% >%nf% echo. FOR /F "skip=1 eol=; tokens=1,2* delims=," %%i in (%1) do set servernames=%%~i&&set reste=%%j, %%k&&call :action1 @echo on @echo Creation du fichier %nf% @type %nf% goto :eof :action1 ::echo %servernames%, %reste% FOR %%a in (%servernames%) do echo %%a, %reste:"=%>>%nf% exit/B
Cela fonctionne sans problème.

Encore merci pour votre aide

Cordialement

Sbastyen