codice:
<%
Function ReadFileArray(Name)
Dim fso,File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.OpenTextFile(Server.MapPath(Name) , 1)
ReadFileArray = Split(File.ReadAll(),VbCrLf)
File.Close()
Set File = Nothing
Set Fso = Nothing
End Function
Lines= ReadFileArray("File.txt")
For Each Line in Lines
Line = Mid(Line,2,Len(Line)-2)
ArValue = Split(Line,"=",2)
Execute ArValue(0) & "=" & Chr(34) & ArValue(1) & Chr(34)
Next
%>
Metti il nome del file da leggere.
Se il formato del file non è esattamente quello che hai detto non funzionerà.
La sotsanza è questa. Leggi il file e lo metti in un array (Lines)
Per ogni riga, togli gli & (Line = Mid(Line,2,Len(Line)-2))
Dividi la linea ottenuta in due ArValue(0), nome della variabile, e ArVAlue(1), valore.
La funzione execute esegue il codice asp.
Dal next in poi tutte le variabili saranno valorizzate.
Potrai metter un Response.Write Variabile3 per vederne il valore
Ciao
PS: MA il titolo del post cosa c'entra? Forse era LEGGERE UN TXT???
Rispondi quotando
