Lettura file di testo

[Cesar]

Originariamente inviato da Roby_72
scherzi vero??? Sono in ferie...

Roby

hehehe
Comunque, grazie lo stesso!

[Cesar]

Un piccolo up!

[viki1967]

Allora prima questo:

http://www.w3schools.com/asp/asp_ref_textstream.asp

poi questo:


http://forum.html.it/forum/search.ph...by=&sortorder=

in ultimo questo script che potrai personalizzarti, lo utilizzo per un file txt dalle impostazioni simile a quello tuo (dovrai perderci un pò di tempo, ma è quasi pronto all'uso):

<%
 
function pulisci(stringa)
   pulisci = replace(stringa, "'", "‘")
end function

function FindItemInArray(arrItems, item)
  dim pos
  pos = -1
  dim i
  ' verifica che il primo parametro sia un array
  if isarray(arrItems) then
    ' scorri i valori dell'array...
    for i=0 to ubound(arrItems)
      ' corrispondenza trovata?
      if(arrItems(i)=item)then
        ' memorizza la posizione nell'array ed esci dal ciclo for
        pos = i
        exit for
      end if
    next
  end if
  ' restituisci la posizione nell'array (o -1 se valore non trovato)
  FindItemInArray = pos
end function
 
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../mdb-database/dbTXT.mdb")
 
Dim objFileToRead, objFileToWrite, objFSO, strPathRead, strPathWrite
strPathRead = Server.MapPath("txt/pr_115.txt")
strPathWrite = Server.MapPath("txt/pr_115_1.txt")
 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFileToRead = objFSO.OpenTextFile(strPathRead, 1)
Set objFileToWrite = objFSO.OpenTextFile(strPathWrite, 2, True)
 
Dim strTemp
Do While Not objFileToRead.AtEndOfStream
  strTemp = objFileToRead.ReadLine
  If strTemp <> "" Then
    objFileToWrite.WriteLine(strTemp)
  End If
Loop
 
objFileToRead.Close
objFileToWrite.Close
Set objFileToRead = Nothing
Set objFileToWrite = Nothing
Set objFSO = Nothing
  
 
strPath = Server.Mappath("txt/pr_115_1.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1, false, 0)
 
sTestoLetturaPrimaRiga = objApriFile.ReadLine
MioArray = Split (sTestoLetturaPrimaRiga, vbCrLf, -1, 1)
sMioArray = left (MioArray(0), 9)

response.write MioArray(0) & "
"
response.write sMioArray & "
"

Do While Not objApriFile.AtEndofStream
sTestoLetturaRigaValida = objApriFile.ReadLine

if sTestoLetturaRigaValida <> "      Prezzo unitario Importo esteso " then
flag = false
else
flag = true
response.write sTestoLetturaRigaValida & "
"
response.write flag & "

"
end if

if flag = true then
sTestoLetturaRigaSuccessivaValida = objApriFile.ReadLine
response.write sTestoLetturaRigaSuccessivaValida & "

"
oArray = Split (sTestoLetturaRigaSuccessivaValida, " ", -1, 1)

FOR i=0 to UBound(oArray)
Response.Write "Riga di riferimento oArray" & i & "...: " & oArray (i) & "
"
NEXT

if UBound(oArray) < 16 then
SQL = "INSERT INTO TBLL ( RICHIESTA, ARTICOLO, NUMEROPARTE, UNITA, QTA, DESCRIZIONE, DATACONSEGNA ) VALUES ( '"& trim(pulisci(sMioArray)) &"', "& oArray(6) &" , '"& oArray(7) &"', '"& oArray(8) &"', "& oArray(9) &", '"& trim(pulisci(oArray(10))) &"', '2006/01/05')"
response.write "minore di 16
"
else
SQL = "INSERT INTO TBLL ( RICHIESTA, ARTICOLO, NUMEROPARTE, UNITA, QTA, DESCRIZIONE, DATACONSEGNA ) VALUES ( '"& trim(pulisci(sMioArray)) &"', "& oArray(6) &" , '"& oArray(7) &"', '"& oArray(8) &"', "& oArray(9) &", '"& trim(pulisci(Replace(oArray(10), ",", "."))) &" "& trim(pulisci(Replace(oArray(11), ",", "."))) &" "& trim(pulisci(Replace(oArray(12), ",", "."))) &" "& trim(pulisci(Replace(oArray(13), ",", "."))) &" "& trim(pulisci(Replace(oArray(14), ",", "."))) &" "& trim(pulisci(Replace(oArray(15), ",", "."))) &"', '2006/01/05')"
response.write "maggiore di 16
"
end if

Set RS = Conn.Execute(SQL)
response.write sql & "

"
 
end if

Loop
 
objApriFile.close
Set objApriFile = Nothing
Set objFileSy = Nothing 
 
%>