excel trova tutte le parole in una descrizione di un articolo - crea file per ogni parola trovata

'

Option Explicit

'

' vba excel trova tutte le parole in una descrizione di un articolo - crea file per ogni parola trovata

Dim dblog, slog, stesto

Public Const cartella = "C:\lavori-articoli\tag\"

'

Function scrivifiletag(criteriodiricerca, stringaincuicercare, articolo)

'

  Dim oRE, oMatches, oMatch

  Set oRE = CreateObject("VBScript.RegExp")

  oRE.Global = True

  oRE.IgnoreCase = True

  oRE.Pattern = criteriodiricerca

  If oRE.Test(stringaincuicercare) = True Then

     Set oMatches = oRE.Execute(stringaincuicercare)

       For Each oMatch In oMatches

          'stesto = stesto & oMatch.FirstIndex & " : " & oMatch.Length & " : " & oMatch.Value & vbCrLf

          dblog = cartella & LCase(Trim(oMatch.Value)) & ".txt" ' nome del file da creare

          slog = articolo

          Call ScriviFileJollyAppend(dblog, slog) ‘ scrive nel file l’articolo

       Next

  End If

'

'

End Function

'

' ==================

'

Sub ScriviFileJollyAppend(pNomeArchivio, pcosascrivere)

Dim fso, rifefile

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(pNomeArchivio)) Then

      'msg = filespec & " esiste."

       Set rifefile = fso.OpenTextFile(pNomeArchivio, 8)

Else

      'msg = filespec & " Non esiste."

       Set rifefile = fso.CreateTextFile(pNomeArchivio, True)

End If

rifefile.WriteLine (pcosascrivere)

rifefile.Close

Set rifefile = Nothing

End Sub

'

' =========

'