Ciao a tutti devo fare un lavoro di text extractor, da un file TXT, prima di poter iniziare sto "Ripulendo il file TXT" via asp. Il mio primo passo è l'estrazione poi la formattazione del documento per poi esportarlo in un DB.

Sono riuscito a connettermi ma ho un problema con i troppi
presenti, a volte 2 a volte 5 a volte 10.

E' possibile sviare questo problema con un solo
? Se esistono più + di 1


... trasformarlo in 1
.

Questo è il codice:

[code]

<%
x=0
filePath = Server.Mappath("uni.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath) then
Set objFile = objFileSystem.OpenTextFile(filePath, 1)
Do While Not objFile.AtEndofStream
x=x
dim testo
testo=Ucase(objFile.ReadLine)&"
"
response.write testo
x=x+1
Loop
objFile.Close
Set objFile=Nothing
end if
Set objFileSystem=Nothing
%>