1. 'ligne => home/sb30/d53113031-200.bgf"
2. 'sequence isolée:=>  d53113031
3. If Mid(ligne, InStr(ligne, "bgf";) - 15, 2) = "/d" Then Print #2, Mid(ligne, InStr(ligne, "bgf";) - 14, 9)
5. 'ligne => home/sb30/d53113031200.bgf"
6. 'sequence isolée:=>  d53113031
7. If Mid(ligne, InStr(ligne, "bgf";) - 14, 2) = "/d" Then Print #2, Mid(ligne, InStr(ligne, "bgf";) - 13, 9)

1. Sub test1()
2. Dim chaine As String
3. 'geometry {"home/sb30/d21212099000-flx03.bgf"}
4. chaine = "geometry {""home/sb30/d21212099000-flx03.bgf""}"
5. chaine = Mid(chaine, InStr(chaine, "/d";) + 1, 9)    'ici j'ai mi 9, mais en fait j'aimerai tout prendre jusqu'au .bgf
6. Debug.Print chaine
7. End Sub

Sub DemoSPlit()
    For Each V In Array("geometry {""home/sb30/d21212099000-flx03.bgf""}", _
                        "geometry {""home/bes/asna3323-223.bgf""}", _
                        "geometry {""home/sb3020/f53114036-200.bgf""}" )
        Debug.Print Split(Split(V, "/" )(2), "." )(0)
    Next
End Sub

Sub Demo1()
   Const B = "*.vdi", E = ".bgf", C = "*" & E & """}", M = "M ", R = ".err"
     Dim CDic As New Collection, oStr(1) As Object, P$, S$, F, D, V, T!
         P = ThisWorkbook.Path & "\"
         S = M & B
         F = Dir(P & B)
   While F Like S
         F = Dir
   Wend
      If F > "" Then D = Dir
   While D Like S
         D = Dir
   Wend
      If F = "" Or D > "" Then
         ChDrive P:  ChDir P
         F = Application.GetOpenFilename("Fichiers, " & B, , "    Fichier à convertir :" )
         If F = False Then Exit Sub
         P = Left(F, InStrRev(F, "\" ))
         F = Replace(F, P, "" )
      End If
         V = P
         D = Dir(P & "IPC.txt" )
      If D = "" Then
         D = Application.GetOpenFilename("Fichiers, *.txt", , "    Dictionnaire :" )
         If D = False Then Exit Sub
         V = Left(D, InStrRev(D, "\" ))
         D = Replace(D, V, "" )
      End If
         Application.StatusBar = "        Chargement du dictionnaire …"
         T = Timer
    With CreateObject("ADODB.Connection" )
             .Open "Provider=Microsoft.Jet.OLEDB.4.0;Text;Database=" & V
        With .Execute("SELECT * FROM [" & D & "]" )
                On Error Resume Next
            For Each V In .GetRows
                CDic.Add "", LCase(V)
            Next
                On Error GoTo 0
               .Close
        End With
             .Close
    End With
         Application.StatusBar = "        Conversion en cours …"
 For V = 0 To 1
     Set oStr(V) = CreateObject("ADODB.Stream" )
         oStr(V).Charset = "x-ansi"
         oStr(V).LineSeparator = 10
         oStr(V).Open
 Next
         oStr(0).LoadFromFile P & F
With CreateObject("VBScript.RegExp" )
        .Pattern = "[a-z]\d{8}"
         On Error Resume Next
Do Until oStr(0).EOS
     S = oStr(0).ReadText(-2)
  If S Like C Then
    If .Test(S) Then
        Err.Clear
        V = CDic(.Execute(S)(0))
        If Err.Number Then S = Replace(S, E, R)
    Else
        S = Replace(S, E, R)
    End If
  End If
         oStr(1).WriteText S, 1
Loop
         On Error GoTo 0
End With
         S = P & M & F
         oStr(1).SaveToFile S, 2
 For V = 0 To 1
         oStr(V).Close
     Set oStr(V) = Nothing
 Next
     Set CDic = Nothing
     Debug.Print "Demo1 : "; Format(Timer - T, "0.000s" )
     Application.StatusBar = False
     MsgBox "Création de" & vbLf & vbLf & S, vbInformation, "   Conversion"
End Sub

Function GetFileExt(ByVal Init, Filter, Title)
         S = Split(Init, "\" )
         If UBound(S) < 1 Then Exit Function
         E = Split(S(UBound(S)), "." )
         If UBound(E) > 0 Then E(UBound(E)) = "*" & E(UBound(E))
         S(UBound(S)) = Join(E, "." )
         Init = Join(S, "\\" )
     Set oDlg = CreateObject("WScript.Shell" ).Exec("mshta.exe ""about:<object id=d classid=clsid:" & _
                "3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new " & _
                "ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read(" & _
                 Len(Init) + Len(Filter) + Len(Title) + 39 & " ));function window.onload()" & _
                "{var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1)" & _
                ".Write(p.exec(d.object.openfiledlg(init,null,filter,title)));close();}" & _
                "</script><hta:application showintaskbar=yes />""" )  
         oDlg.StdIn.Write "var init='" & Init & "';var filter='" & Filter & "';var title='" & Title & "';"  
         GetFileExt = oDlg.StdOut.ReadAll
     Set oDlg = Nothing
End Function

         P = Replace(WScript.ScriptFullName, WScript.ScriptName, "" )
         F = GetFileExt(P & "*.vdi", "", "        Fichier à convertir :" )
      IF F = "" Then WScript.Quit 1
         P = Left(F, InStrRev(F, "\" ))
         F = Replace(F, P, "" )
         D = P & "IPC.txt"
  If Not CreateObject("Scripting.FileSystemObject" ).FileExists(D) Then
         D = GetFileExt(P & "*.txt", "", "        Dictionnaire :" )
      IF D = "" Then WScript.Quit 2
  End If
     Set oDic = CreateObject("Scripting.Dictionary" )
         E = ".bgf"
         R = ".err"
   ReDim oStr(1)
 For V = 0 To 1
     Set oStr(V) = CreateObject("ADODB.Stream" )
         oStr(V).Charset = "x-ansi"
         oStr(V).Open
 Next
         oStr(1).LineSeparator = 10
         oStr(0).LoadFromFile D
         oStr(0).SkipLine
Do Until oStr(0).EOS
         oDic(LCase(oStr(0).ReadText(-2))) = ""
Loop
         oStr(0).LineSeparator = 10
         oStr(0).LoadFromFile P & F
With New RegExp
        .Pattern = "[a-z]\d{8}"
Do Until oStr(0).EOS
     S = oStr(0).ReadText(-2)
  If InStr(S, E) Then
     If .Test(S) Then
         V = .Execute(S)(0)
         If Not oDic.Exists(V) Then S = Replace(S, E, R)
     Else
         S = Replace(S, E, R)
     End If
  End If
         oStr(1).WriteText S, 1
Loop
End With
         S = P & "M " & F
         oStr(1).SaveToFile S, 2
 For V = 0 To 1
         oStr(V).Close
     Set oStr(V) = Nothing
 Next
         oDic.RemoveAll
     Set oDic = Nothing
CreateObject("WScript.Shell" ).Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"" )" & _
                                   ".Popup(""Création de " & S & """,3,""   Conversion"",64))"

Function GetFileExt(ByVal Init, Filter, Title)
         S = Split(Init, "\" )
         If UBound(S) < 1 Then Exit Function
         E = Split(S(UBound(S)), "." )
         If UBound(E) > 0 Then E(UBound(E)) = "*" & E(UBound(E))
         S(UBound(S)) = Join(E, "." )
         Init = Join(S, "\\" )
     Set oDlg = CreateObject("WScript.Shell" ).Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf" & _
                "-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting." & _
                "FileSystemObject').GetStandardStream(0).Read(" & Len(Init) + Len(Filter) + Len(Title) + 39 & " ));" & _
                "function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject')." & _
                "GetStandardStream(1).Write(p.exec(d.object.openfiledlg(init,null,filter,title)));close();}" & _
                "</script><hta:application showintaskbar=yes />""" )
         oDlg.StdIn.Write "var init='" & Init & "';var filter='" & Filter & "';var title='" & Title & "';"
         GetFileExt = oDlg.StdOut.ReadAll
     Set oDlg = Nothing
End Function

With CreateObject("Scripting.FileSystemObject" )
            F = GetFileExt("\*.vdi", "", "        Fichier à convertir :" )
         If F = "" Then WScript.Quit 1
            P = .GetParentFolderName(F)
            D = P & "\IPC.txt"
    If Not .FileExists(D) Then
            D = GetFileExt(P & "\*.txt", "", "        Dictionnaire :" )
         If D = "" Then WScript.Quit 2
    End If
            E = ".bgf"
            R = ".err"
            P = P & "\M " & .GetFileName(F)
        Set oDic = CreateObject("Scripting.Dictionary" )
        Set oRTF = .OpenTextFile(D, 1)
            oRTF.ReadLine
   Do Until oRTF.AtEndOfStream
            oDic(LCase(oRTF.ReadLine)) = ""
   Loop
            oRTF.Close
        Set oRTF = .OpenTextFile(F, 1)
        Set oWTF = .OpenTextFile(P, 2, True)
End With
With New RegExp
        .Pattern = "[a-z]\d{8}"
   Do Until oRTF.AtEndOfStream
        S = oRTF.ReadLine
     If InStr(S, E) Then
        If .Test(S) Then
            V = .Execute(S)(0)
            If Not oDic.Exists(V) Then S = Replace(S, E, R)
        Else
            S = Replace(S, E, R)
        End If
     End If
            oWTF.Write S & vbLf
   Loop
End With
            oRTF.Close:          oWTF.Close:          oDic.RemoveAll
        Set oRTF = Nothing:  Set oWTF = Nothing:  Set oDic = Nothing
CreateObject("WScript.Shell" ).Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"" )" & _
                                   ".Popup(""Création de " & P & """,3,""   Conversion"",64))"