Supprimer caractères multiples SOH

Bonjour testé mais pas d'avantage de succès
Sur stackoverflow j’ai ajouté mon code de la fonction
mfOpenFileDialog
RegParse qui ne renvoie rien puisque avec ce pattern, j’ai une erreur alors que sur des testeurs internet ça fonctionne parfaitement

sPathDefault = "c:\Extraction"
sFileCrit = "rapport_"
If mfOpenFileDialog(sPathDefault, sFileCrit) = False Then GoTo Exit_
sPattern = "(^.*?(?=\x01))(\x01*)"
sFileName = RegParse(typOpenFile.lpstrFile, sPattern)

@infonotairepeux-tu prouver qu'il reste des SOH après le replace? il suffit d'afficher le code de chacun des caractères, ou de tester si il y reste bien un SOH.

Bonjour yg_be

Copie/colle le code entier maintenant disponible sur stackoverflow et et applique la fonction replace sur sFileName et tu verras que les caractères seront toujours présent
Tu pourras le vérifier en copiant la valeur de sFileName soit par debug.print ou en plaçant sFileName dans la fenêtre espion VBA pour le coller dans Notepad++

Mais ma question initiale ne porte pas sur replace qui de toute façon est inopérant mais sur RegExp qui provoque une erreur avec sPattern = "(^.*?(?=\x01))(\x01*)" alors que fonctionne très bien sur des sites de test en ligne comme tu peux le voir sur mon poste ici [URL][[https://www.developpez.net/forums/d2002105/logiciels/microsoft-office/excel/macros-vba-excel/regexp-suppression-caracteres-soh/#post11114221[/URL]]

De plus dans ce post tu peux récupérer un fichier new1.txt avec des caractères SOH , coller son contenu dans une variable positionnée dans la fenêtre espion de l’éditeur VBA et la passer dans Replace et tu verras que rien ne se passe

@infonotairechez moi, le replace fonctionne parfaitement:

Private Sub soh()
Dim str As String, str2 As String
str = "V:\result_1567413789250.csv"
Debug.Print Len(str), str
str2 = Replace(str, Chr(1), "", , , vbBinaryCompare)
Debug.Print Len(str2), str2
End Sub

47 V:\result_1567413789250.csv
27 V:\result_1567413789250.csv

dans mon test, str contient des SOH, str2 est plus court parce que les SOH de str ne sont plus présents dans str2.
peux-tu tester ceci?

Private Sub soh()
Dim str As String, str2 As String
str = "V" + CStr(Chr(1)) + "W"
showchar (str)
str2 = Replace(str, Chr(1), "", , , vbBinaryCompare)
showchar (str2)
End Sub
Private Sub showchar(inp As String)
Dim i As Long
Debug.Print Len(inp), inp
For i = 1 To Len(inp)
    Debug.Print Asc(Mid(inp, i, 1))
Next i
End Sub

je testerai ton exemple avec plaisir dès que tu auras partagé le texte de ton code, et pas une image.
suggestions:
1) ajouter

option explicit

en début de code
2) ajouter ma sub showchar pour vérifier le contenu après le replace.

yb_be
Un lien pour copier mon code [url]https://ask.wellsr.com/906/delete-special-soh-characters-with-regexp?show=909#c909[/url]

@infonotairej'ai testé avec ton code, et je n'ai aucun SOH. j'ai par contre des NULL, que j'élimine facilement ainsi:

sFileName = _
        Left(typOpenFile.lpstrFile, _
        InStr(1, typOpenFile.lpstrFile, CStr(Chr(0)), vbBinaryCompare) - 1)

as-tu testé

Call showchar(typOpenFile.lpstrFile)

, tu aurais vite remarqué qu'il ne s'agit pas de SOH?

yg_be, grâce à ton aide la question 1.2 Replace est résolue car effectivement c'est du chr(0) et non du Chr(1) qui est dans la variable.
Un truc bizarre s'est passé quand j'ai copier/coller la valeur dans Notepad++.

J'ajoute à ma collection de routines sympa, ta fonction ShowChar que j'ai par ailleurs modifié pour visualiser facilement les valeurs dans la fenêtre Espions de l'éditeur VBA

Public Function mfShowChar(psStr As String)
Dim i As Integer
Dim arrChar() As Integer
   
For i = 1 To Len(psStr)
ReDim Preserve arrChar(i)
arrChar(i) = Asc(Mid(psStr, i))  
Next

End Function

On peut alors utiliser REPLACE

sStr = Replace(typOpenFile.lpstrFile, Chr(0), vbNullString)

Je dois maintenant tester le RegExp sur le /x00... A suivre et encore merci yg_be pour ton aide