Detection et remplacement string

Marsh Posté le 20-04-2017 à 21:02:57

Bonsoir
j'ai 2 fichiers txt
-VDI.txt (15mo, 30000 lignes)
-IPC.txt (5mo, 100 000 lignes)

je voudrais, dans le fichier VDI.txt remplacer toutes les séquences de caractères situées devant bgf
ex : {"home/sb30/d53113317-200.bgf"}

a remplacer par
{"home/sb30/d00000000-200.bgf"}

par contre si le n° est dans le fichier IPC.txt, je ne veux pas y toucher
{"home/sb30/d53113320-200.bgf"} doit rester tel quel

j'imagine que c'est faisable en 10-20 lignes, mais je ne sais pas par ou commencer

vbs, vba

je sais déjà ouvrir un fichier et l'afficher ligne par ligne
tester si la ligne contient bgf
me reste plus que isoler le n° avant bgf, ouvrir le 2eme fichier, comparer, remplacer, reecrire
je sens que je vais faire une usine a gaz :cry:

Reply

Marsh Posté le 20-04-2017 à 21:02:57

Reply

Marsh Posté le 21-04-2017 à 10:42:48

Bonjour,

ouverture du bon fichier, lecture d'une ligne - voir l'aide VBA de Line Input # par exemple - puis fonction Replace …

Reply

Marsh Posté le 21-04-2017 à 22:44:26

Bonsoir
j'ai un peu avancé
j'ouvre le premier fichier vdi.txt
je lis les lignes
si elle ne contienne pas bgf je les reecrit tel quel dans le fichier 2
si elle contienne bgf, je les traite

j'isole donc le n° que je veux comparer

Code :

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

me reste plus qu'a la reecrire tel quel si le n° est présent dans IPC.txt
ou la convertir (remplacer /d par /x par exemple (c'est le plus simple)
si le n° est absent de ipc.txt

mais là je sèche, car si je fait à ma méthode je vais ouvrir et fermer le fichier 10000 fois

ça, cela marche
'ligne = Replace(ligne, "d53113031", "dxxxxxxxx"

bref
comment changer ipc.txt en mémoire
et faire sorte qu'il me dise si la séquence isolé est ou n'est pas dans ipc.txt

ex:
si Mid(ligne, InStr(ligne, "bgf" - 13, 9) est présent dans ipc.txt alors beep

comment traduire cela ?

Message édité par daniel-12 le 21-04-2017 à 22:45:14

Reply

Marsh Posté le 22-04-2017 à 02:43:03

Lire d'abord le fichier IPC afin de charger dans un dictionnaire les séquences précédant "bgf"
(soit via l'objet Dictionary (VBA / VBScript, consulter la doc VBA ou encore celle sur MSDN)
soit via une Collection du VBA mais là il faut prévoir une gestion d'erreur car il n'y pas de fonction testant l'existence d'une clef) …

Lors du traitement du fichier VDI comparer avec le dictionnaire …

Possibilité d'accélérer la lecture & l'écriture des fichiers textes via ADODB.Stream (cf doc sur MSDN).

Reply

Marsh Posté le 22-04-2017 à 17:19:06

ça y est cela fonctionne (presque)
j'ai utilisé le dictionnaire au lieu d'une boucle pour la lecture d'un des fichiers
forcement je suis passé d'une exécution de 5mn a 20s

il me reste 2 soucis
-les séparateurs en fin de ligne
-les lignes qui contiennent plusieurs fois bgf

Reply

Marsh Posté le 23-04-2017 à 21:42:15

Sans information technique précise, je dirais de voir déjà du côté de la fonction Split …

Reply

Marsh Posté le 25-04-2017 à 17:12:13

Bonjour
j'ai des string qui ressemblent a cela et que j'ai isolé

geometry {"home/sb30/d21212099000-flx03.bgf"}
geometry {"home/bes/asna3323-223.bgf"}
geometry {"home/sb3020/f53114036-200.bgf"}

Comment isoler facilement les caractères entre le dernier / et le point avant bgf
pour qu'en retour je reçoive :
d21212099000-flx03
asna3323-223
d53114036200

Code :

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

ca, ça marche, mais comme je peux avoir une autre lettre que d après le / je cherche une autre solution

Message édité par daniel-12 le 25-04-2017 à 22:19:59

Reply

Marsh Posté le 26-04-2017 à 00:44:46

Exemple avec la fonction Split :

Code :

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

Reply

Marsh Posté le 03-05-2017 à 13:50:27

Suite au contexte technique précisé par messages privés, voici dans un premier temps une procédure VBA Excel
devant être située dans un module ne contenant pas l'instruction Option Compare Text sinon l'exécution en sera plus longue …

Code :

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

Message édité par Marc L le 03-05-2017 à 14:21:11

Reply

Marsh Posté le 03-05-2017 à 17:18:08

Merci
cela fonctionne
je vais étudier la méthode que tu as utilisée
je ne pense pas être capable de la refaire actuellement, mais il y a par ci par là des fonction nouvelle pour moi

j'ai remarqué que cette macro ne mettait pas la zizanie dans la mise en forme de mon fichier, c'est aussi un plus

Reply

Marsh Posté le 03-05-2017 à 17:18:08

Reply

Marsh Posté le 04-05-2017 à 00:28:15

Comme attendu, cette procédure remplace juste l'extension des .bgf non désirés …

Et du côté du temps d'exécution, cela donne quoi ?

Reply

Marsh Posté le 04-05-2017 à 19:16:07

Connaissant déjà la réponse avec des fichiers d'un volume important …

Voici la version VBScript du code précédent (but final, VBA utile juste pour dégrossissage),
quelques remaniements pour les particularités de VBScript mais aussi à cause d'une mauvaise gestion de Windows en 64 bits …

Code :

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))"

J'ai dû découper des lignes de code sur plusieurs lignes à cause de l'affichage du code balisé,
ces lignes pouvant être regroupées en une seule dans le fichier final …

Message édité par Marc L le 04-05-2017 à 19:25:01

Reply

Marsh Posté le 04-05-2017 à 23:38:23

Les 2 fonctionnent, mais en essayant de comprendre en faisant du pas a pas sur des petit fichier, j'ai des chose bizarres

ex:
je mets QUE cela dans un fichier vdi
geometry {"home/sb30/d53110391-200.bgf"}

logiquement il devrait me rendre
geometry {"home/sb30/d53110391-200.err"}

mais sur le gros fichier vdi, ce même n° est bien converti

Reply

Marsh Posté le 05-05-2017 à 00:33:47

Je viens de tester de mon côté via Notepad++ à partir d'un fichier .vdi
afin de respecter la séquence de fin de ligne (LF) : aucun souci !

Donc je soupçonne ton fichier ne respectant pas cette norme des fichiers originaux …

Reply

Marsh Posté le 05-05-2017 à 08:44:04

je pense aussi que c'est ça
le VBA n'arrive pas a le trouver
par contre le VBS y arrive

Reply

Marsh Posté le 05-05-2017 à 08:58:01

Cette dernière précision le confirme !

En effet le code VBA recherchant les lignes se terminant par .bgf"} via l'opérateur Like
tandis qu'en VBScript est cherché la présence de .bgf dans les lignes via la fonction InStr …

Utiliser NotePad++ (téléchargeable et gratuit), il permet de vérifier le résultat par exemple
en comptant le nombre de .bgf ou de .err; il permet aussi de s'entraîner aux expressions rationnelles …

Reply

Marsh Posté le 06-05-2017 à 17:44:54

Suite à ton autre discussion, ceci est plus rapide de mon côté :

Code :

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))"

Message édité par Marc L le 06-05-2017 à 18:55:57

Reply

Detection et remplacement string

Sujets relatifs:

Leave a Replay