Bonjour,

Je souhaite utiliser les regexp sur un fichier texte ouvert seulement en memoire, a l'aide du code suivant :

Sub createDico 'Ouvrir un fichier texte, et en extraire les chaines (1 par ligne) qui correspondent

Dim dlgFile as object Dim inputFile() as string Dim regExpLine as object Dim fileDebut, fileFin as integer Dim regExp as object Dim regExpTarget as Object

'Ouverture en lecture d'un unique fichier, extension par défaut *.dic dlgFile = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") dlgFile.AppendFilter ("Fichier Dictionnaire","*.dic") dlgFile.setMultiSelectionMode(false) dlgFile.execute() inputFile = dlgFile.Files fileDebut = freefile Open inputFile(0) for input as #fileDebut

'Ouverture/creation du fichier d'arrivée fileFin = freeFile Open "pendu.dic" for output as #fileFin

'préparation de l'expression régulière regExp = #fileDebut.createSearchDescriptor regExp.searchString = "^[A-Za-z]{1,12}" regExp.searchRegularExpression = true regExpTarget = #fileDebut.findAll(regExp) msgbox regExpTarget.count

End Sub

J'ai un message d'erreur sur la ligne "regExp = #fileDebut.createSearchDescriptor" : Variable non paramétrée. Si je le remplace #fileDebut par thisComponent, ca marche. Quelqu'un saurait-il utiliser la recherche de regexp avec un fichier non affiché ?

Par ailleurs, je constate un comportement étonnant de la ligne "Open "pendu.dic" for output as #fileFin". Il y a systématiquement création du fichier pendu.dic, mais également d'un repertoire "File://" dans mon home.

Merci, Serge