Discussion :

[Mocodo]

Bonjour,

Je me tourne vers vous car je sature à un haut point sur un parsing

j'ai un fichier text qui se présente sous la forme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
hostname, xxx | yyy | zzz
hostname2, xxx2 | yyy2 | zzz2 - xxx3 | yyy3 - xxx4 | yyy4 | zzz4
...

Je dois en retirer un fichier qui se présentera sous la forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
hostname, yyyzzz
hostname2, yyy2zzz2
hostname2, yyy3
hostname2, yyy4zzz4
...

J'arrive très bien à traiter les cas où je n'ai qu'un seul couple xxx | yyy | zzz mais dès que je passe à plus, je n'arrive plus à rien.

Voici mon code à l'heure actuelle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub Parse_Txt_File(sTextFile)
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set F1 = objFso.OpenTextFile (sTextFile, 1)
 
    Do Until F1.AtEndOfStream
        Lit = F1.ReadLine
        MyArrayComa = Split(Lit, ", ")
        For i = 0 to UBound(MyArrayComa)
            hostname = MyArrayComa(0)
            appcompinstserver = MyArrayComa(1)
'            WScript.Echo hostname & " " & appcompinstserver
            MyArrayMinus = Split(appcompinstserver, " - ")
            For j = 0 to UBound(MyArrayMinus)
                If Ubound(MyArrayMinus) = 0 Then
                    appcompinst = MyArrayMinus(0)
                    MyArrayPipe = Split(appcompinst, " | ")
                    For k = 0 to UBound(MyArrayPipe)
                        If UBound(MyArrayPipe) < 2 Then
                            service = MyArrayPipe(1)
                            WScript.Echo hostname & ", " & service
                        Else
                            service = MyArrayPipe(1) & MyArrayPipe(2)
                            WScript.Echo hostname & ", " & service
                        End If
                    Next
'                Else
'
                End If
            Next
        Next
    Loop
End Sub

Oui c'est très lourd si quelqu'un à une petite idée je suis preneur, si besoin de plus amples explication, je fournirai

Cordialement

[Mocodo]

Code définitif et fonctionnel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub Parse_Txt_File(sTextFile)
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set F1 = objFso.OpenTextFile (sTextFile, 1)
 
    Do Until F1.AtEndOfStream
        Read = F1.ReadLine
        MyArrayComa = Split(Read, ", ")
        hostname = MyArrayComa(0)
        appcompinstserver = MyArrayComa(1)
        MyArrayMinus = Split(appcompinstserver, " - ")
        For j = 0 to UBound(MyArrayMinus)
            If Ubound(MyArrayMinus) = 0 Then
                appcompinst = MyArrayMinus(0)
                MyArrayPipe = Split(appcompinst, " | ")
                If UBound(MyArrayPipe) < 2 Then
                    service = MyArrayPipe(1)
                    WScript.Echo hostname & ", " & service
                    Log_Msg strCmdbTxtPath, strCmdbTxt, lcase(hostname) & ", " & lcase(service)
                Else
                    service = MyArrayPipe(1) & MyArrayPipe(2)
                    WScript.Echo hostname & ", " & service
                    Log_Msg strCmdbTxtPath, strCmdbTxt, lcase(hostname) & ", " & lcase(service)
                End If
            Else
                appcompinst = MyArrayMinus(j)
                MyArrayPipe = Split(appcompinst, " | ")
                If UBound(MyArrayPipe) < 2 Then
                    service = MyArrayPipe(1)
                    WScript.Echo hostname & ", " & service
                    Log_Msg strCmdbTxtPath, strCmdbTxt, lcase(hostname) & ", " & lcase(service)
                Else
                    service = MyArrayPipe(1) & MyArrayPipe(2)
                    WScript.Echo hostname & ", " & service
                    Log_Msg strCmdbTxtPath, strCmdbTxt, lcase(hostname) & ", " & lcase(service)
                End If
            End If
        Next
    Loop
End Sub

Si ca peut aider