3 pièce(s) jointe(s)
RegExp - Suppression caractères SOH
Bonjour à tous,
Je veux supprimer les caractères spéciaux SOH (Cf. fichier New1.txt ci-joint).
En fait, je récupère la valeur retournée par OpenFile.lpstrTitle Ici code qui a des caractères SOH et j'appelle RegParse(OpenFile.lpstrTitle) pour les supprimer ! Mais voilà où j'en suis :mur:
Avec Replace pas trouvé comment faire sur un caractère hexadécimal et par RegExp, le pattern est non reconnu en VBA alors que ok sous notpad++ ou sur Site RegExp101 Tester
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Public Function RegParse(sStr As String) '----> sStr est la ligne du fichier New1.txt avec les caractères SOH
Dim oRegex As New RegExp
sPattern = "^.*?(?=\x01)" '-------------> .Test NOk
sPattern = "(^.*?(?=\x01))(\x01*)" '--> .Test NOk
'sPattern = ^[^\x01]* '------------------> .Test OK mais avec SOH
With oRegex
.IgnoreCase = True
.pattern = sPattern
.Global = False
If .Test(sStr) Then msgBox .Execute(sStr)(0)
End With
End Function |
Merci par avance pour toute aide
