FILE TXT e righe (<br>) da eliminare..

[M@sE]

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
%>

[DarioN1]

Dovresti cavartela con 2 replace tipo :

aaa = replace(aaa,'


','

')
aaa = replace(aaa,'

','
')

[M@sE]

Ciao e grazie per la risposta,
il problema e che non posso mai sapere se si tratta di 5 o 4
poichè il file è molto vasto (oltre 5.000 righe), per questo cercavo una soluzione più adeguata al posto dei replace.

Altre idee?

[DarioN1]

Si infatti , ti ho detto una cazzata

Allora , una bella function ricorsiva

tipo :

function filtra(testo)
testo = replace(test,'

','
')
 if instr(test,'

') <> 0 then filtra(testo)
end function

L'ho scritta al momento , non l'ho provata . . .

[M@sE]

Grazie ancora,
essendo un LOOP, mi diresti la modalità di inserimento su questo codice??

<%
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
%>

[M@sE]

UP

[Mems]

<%
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=testo & Ucase(objFile.ReadLine)&"
"
x=x+1
Loop 
objFile.Close 
Set objFile=Nothing
end if 
Set objFileSystem=Nothing
testo = replace(testo,"

","
")
response.write testo
%>

[M@sE]

Ciao Mems, grazie per l'aiuto, ma non mi apre il file?

[M@sE]

Non visualizza i record..

[Mems]

Originariamente inviato da M@sE
Ciao Mems, grazie per l'aiuto, ma non mi apre il file?

E' una domanda?