Discussion :

[Speudyland]

Bonjour à tous,

Je me permet de venir vers vous pour avoir quelques conseils.

Je dois récupérer plusieurs liens réseau dans le corps d'un email afin de pouvoir les retranscrire en lien HTML.

Je vous donne un exemple :

email reçu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Ascent Capture 
Batch Class: BatchAdonis 
Batch: *******
Original Batch File: \\test\test1\test2\test123.tif
(UNC: \\test\test1\test2\test123.tif) 
Processed by: ****.exe 
***** log file:
\\test\test1\test2\test123.log
Blank pages removed (threshold: ***** B): 
*.tif - size: ***** B

et donc en sortie, je cherche à avoir le contenu suivant (destiné à un autre outil qui n'accepte pas les "\\") :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Ascent Capture 
Batch Class: BatchAdonis 
Batch: *******
Original Batch File: <a href="\\test\test1\test2\test123.tif>TEST</a>
(UNC: <a href="\\test\test1\test2\test123.tif">Test</a>) 
Processed by: ****.exe 
***** log file:
<a href="\\test\test1\test2\test123.log">LOG</a>
Blank pages removed (threshold: ***** B): 
*.tif - size: ***** B

Je suis en train de voir ce qu'on peut faire avec les expressions régulières en VBA, mais si vous avez une piste ou une idée à suivre....je suis preneur ...

Merci d'avance à vous tous

[pc75]

Bonjour,

En admettant que chaque ligne se termine par un CRLF :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
txt1 = Split(txt, vbCrLf)
For i = 0 To UBound(txt1) - 1
    If InStr(txt1(i), "\\") > 0 Then
        txtResult = txtResult & Replace(txt1(i), "\\", "<a href=\\""") & ">test</a>"
    Else
        txtResult = txtResult & txt1(i)
    End If
Next
msgbox txtResult

[Speudyland]

Merci pour la réponse...

En faite, j'étais parti presque sur la même idée mais par un "for each".

Code :

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

1
2
3
 
 For Each myLine In myBodySplit
                    If (InStr(myLine, "\\")) Then

Il me reste plus qu'un petit truc à faire sur le traitement mais on peut dire que c'est résolu

merci bien en tout cas pour la piste à suivre