Ciao a tutti.

devo contare le parole dentro un file word.


codice:
Response.Buffer = True 
strFileName="test_parole.doc" 
strFilePath=server.mappath("../template/file/test_parole.doc") 
set fso=createobject("scripting.filesystemobject") 
set f=fso.getfile(strfilepath) 
strFileSize = f.size 
set f=nothing: set fso=nothing 
Const adTypeBinary = 1 
Set objStream = Server.CreateObject("ADODB.Stream") 
objStream.Open 
objStream.Type = adTypeBinary 
objStream.LoadFromFile strFilePath 
strFileType = "application/vnd.ms-word"

sTesto = objStream.Read

'conto le parole
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 

objStream.Close 
Set objStream = Nothing

le parole nel file sono 416

ma mi ritorna un bel 56

Uso la funzione conta parole con file .txt e non sbaglia di una virgola