Discussion :

[informer]

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

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 :

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