contare parole in file .doc

[agenti]

lo so Opti...


ma come vedi lo apro con il metodo strem...

Set objStream = Server.CreateObject("ADODB.Stream")

semmai forse è sbagliata la regular expression per Word:

If Len(sTesto) > 0 then
dim regex
set regex = new RegExp
regex.IgnoreCase = True
regex.Global = True
regex.Pattern = "\b(\w+?)\b"

conta_testo = FormatNumber(regex.Execute(Replace(sTesto,"'", "")).Count, 0) 
response.write conta_testo & " Parole 
" 

end if