| Nome | Título Tópicos |
| Mauricio Junior |
Dúvida iniciada: 11/11/2005 10:09:12 AM
ler artigos txt
Dúvida: >l html < >l body <
>l table <
>l tr < >l td < Arquivo Texto >l
td < >l
tr <
>l TABLE BORDER=01 <
>l TR <
>l %
Const fsoLeitura = 1
Dim objFSO
'Instanciar o objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir o arquivo texto
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("c:\a33q15.dat", fsoLeitura)
linha = replace(objTextStream.ReadAll, " & # 58;", ":")
linha = replace(linha, " & # 60;", " >l ")
linha = replace(linha, " & # 32;", " ")
linha = replace(linha, " & # 61;", "=")
linha = replace(linha, " & # 34;", "'")
linha = replace(linha, " & # 47;", "
")
linha = replace(linha, " & # 46;", ".")
linha = replace(linha, " & # 95;", "_")
linha = replace(linha, " & # 62;", " < ")
linha = replace(linha, " & # 39;", "'")
Set objTextStream = objFSO.OpenTextFile("C:\exemplo.txt", 2, True)
objTextStream.Write linha
'Fechar e inicializar os objetos
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
% <
|