[ASP+FSO]Aprire, leggere e scorrere file di testo

[Luis33]

Originariamente inviato da optime
aprilo con un editor esadecimale, e vedrai le schifezze che ci sono dentro!

L'ho aperto con wordpad ed in effetti contiene diversi caratteri strani.
Ma perchè avviene questo?
Perchè lo genero tramite l'oggetto MSXML2.ServerXMLHTTP ?

[optime]

Originariamente inviato da Luis33
L'ho aperto con wordpad ed in effetti contiene diversi caratteri strani.
Ma perchè avviene questo?
Perchè lo genero tramite l'oggetto MSXML2.ServerXMLHTTP ?

may be. fa' vedere come fai

[Luis33]

Originariamente inviato da optime


may be. fa' vedere come fai

OK:

    Function getString(byVal StringBin)
    dim intCount
    getString =""
    For intCount = 1 to LenB(StringBin)
    getString = getString & chr( AscB(MidB(StringBin, intCount, 1)) )
    Next
    End Function 

    url = "http://www.paginaweb.com" 
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.open "GET", url, false 
    xmlhttp.send "" 

    pagetxt = "<xmp>" & CStr(xmlhttp.ResponseText) & "</xmp>"

    set fileSys = Server.CreateObject("Scripting.FileSystemObject")
    set textStream = fileSys.CreateTextFile(Server.MapPath("salud.txt"), True, False)
    
    textStream.Write getString(pagetxt)
    
    textStream.Close
    Set textStream = Nothing
    Set fileSys = Nothing
    pagestatus = xmlhttp.Status
    Set xmlhttp = Nothing

////////////////////////////////////////////////////////////

    filePath = Server.Mappath("salud.txt")
    RESPONSE.WRITE "MaGGico FilePath ...: " & FILEPATH & "
"

    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")     
     
    if objFileSystem.FileExists(filePath) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
        
    SiStampa = False
    
    Do While Not objFile.AtEndofStream
    
       LuisLine = objFile.ReadLine
      
      if Instr(LuisLine, "") then SiStampa = True
      if Instr(LuisLine, "") then SiStampa = False
      
      Response.Write LuisLine & "
"
      
    Loop	

    objFile.Close	
    Set objFile = Nothing

ELSE
    RESPONSE.WRITE "IL FILE " & filePath & " NUN CE STA"   
    
    end if
    Set objFileSystem = Nothing   
    
////////////////////////////////////////////////////////////

[optime]

l'errore sta nella scrittura

invece di

textStream.Write getString(pagetxt)

usa

textStream.Write pagetxt

(la funzione GetString è ... )

[Luis33]

Originariamente inviato da optime
l'errore sta nella scrittura

invece di

textStream.Write getString(pagetxt)

usa

textStream.Write pagetxt

(la funzione GetString è ... )

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi
/xml/default.asp, line 49

Proprio su textStream.Write pagetxt

[optime]

textStream.Write (pagetxt)

a me funzia

[Luis33]

Originariamente inviato da optime
textStream.Write (pagetxt)

a me funzia

A me dà errore:

<%

    Function getString(byVal StringBin)
    dim intCount
    getString = ""
    For intCount = 1 to LenB(StringBin)
    getString = getString & chr( AscB(MidB(StringBin, intCount, 1)) )
    Next
    End Function    
    
    url = "http://www.paginaweb.com/" 
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.open "GET", url, false 
    xmlhttp.send "" 

    pagetxt = "<xmp>" & CStr(xmlhttp.ResponseText) & "</xmp>"

    set fileSys = Server.CreateObject("Scripting.FileSystemObject")
    set textStream = fileSys.CreateTextFile(Server.MapPath("eluniversal_salud.txt"), True, False)
    
    textStream.Write (pagetxt)
    
    textStream.Close
    Set textStream = Nothing
    Set fileSys = Nothing
    pagestatus = xmlhttp.Status
    Set xmlhttp = Nothing

////////////////////////////////////////////////////////////

    filePath = Server.Mappath("salud.txt")
    RESPONSE.WRITE "MaGGico FilePath ...: " & FILEPATH & "
"

    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")     
     
    if objFileSystem.FileExists(filePath) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
        
    SiStampa = False
    
    Do While Not objFile.AtEndofStream
    
       LuisLine = objFile.ReadLine
      
      if Instr(LuisLine, "") then SiStampa = True
      if Instr(LuisLine, "") then SiStampa = False
      
      if SiStampa = True Then Response.Write LuisLine & "
"
            
    Loop	

    objFile.Close	
    Set objFile = Nothing

ELSE
    RESPONSE.WRITE "IL FILE " & filePath & " NUN CE STA"   
    
    end if
    Set objFileSystem = Nothing   
    
////////////////////////////////////////////////////////////

%>

[optime]

ho fatto copia e incolla del tuo, e a me va. forse è la pagina che grabbi...

[Luis33]

Originariamente inviato da optime
ho fatto copia e incolla del tuo, e a me va. forse è la pagina che grabbi...

Si è proprio la pagina che dovrei grabbare.... cambiando nel codice l'url il codice funziona...

[Luis33]

Si risolve con questo codice suggerito da Optime:

url = "http://www.eluniversal.com.mx/salud/" 

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", url, false 
xmlhttp.send "" 

pagetxt = "<xmp>" & CStr(xmlhttp.ResponseText) & "</xmp>"

myArray = split(pagetxt,"")
part1 = myArray(1)
myArray = split(part1,"")
part2 = myArray(0)

RESPONSE.WRITE part2 & "
"
Response.Flush

Adesso ho però altri due problemi:

1) Inserire l'estrazione in un db mysql;
2) I caratteri speciali ( è, à, etc ) non vengono correttamente visualizzati nel browser nonostante la codifica della pagina sia charset=iso-8859-1, perchè?