randon para txt

[debora 0]

Gostaria de saber como fazer um randon com txt !Muito obrigada, beijos !!!

[Mário Monteiro 179]

como assim? explique melhor sua pergunta

[Mário Monteiro 179]

Tenho 7 textos, e gostaria de fazer eles trocarem cada vez q alguém visitar a minha página!Obrigada pela atenção!Beijos e até mais!!!

você pode fazer assim<%segundo=Second(now())txt= segundo mod 7select case txtcase 0 arquivo="arquivo1.txt"case 1 arquivo="arquivo2.txt"case 2 arquivo="arquivo3.txt"case 3 arquivo="arquivo4.txt"case 4 arquivo="arquivo5.txt"case 5 arquivo="arquivo6.txt"case 6 arquivo="arquivo7.txt"end select%>isso selecionará os arquivos dependendo do segundo que ele acessa a pagina, dando chances iguais de selecionar um dos textosai é so incluir o arquivo selecionado na pagina

[rjunior 0]

Qual o codigo que mostra o txt...?

[Mário Monteiro 179]

abaixo segue o codigo que pegara o conteudo do txt, poe abaixo do codigo que aleatoriariamente escolherá o arquivo

<%dim fso, txt,fsotxt ,arquivotxt,strConteudo Const ForReading = 1'pega conteudo do arquivoset fsotxt = Server.CreateObject("Scripting.FileSystemObject")Set arquivotxt = fsotxt.OpenTextFile(server.mappath(arquivo), ForReading )strConteudo = arquivotxt.ReadAllarquivotxt.Closeset fso = Server.CreateObject("Scripting.FileSystemObject") set txt = fso.createTextFile(server.mapPath("nome_pagina.asp"))txt.writeLine strConteudo'esta linha escreve todo conteudo do txt na tela%>

[rjunior 0]

Valeu heim.... :unsure:

[Mário Monteiro 179]

se precisar de mais algo, ou se der algum erro neste codigo é so avisar

[Mário Monteiro 179]

desculpa, o codigo que postei agora a pouco estava com um pequeno erro, mas ja editei e agora esta certo, é só pegar denovo

[rjunior 0]

Sem querer abusar tem como você dar uma comentada nesse artigo retirado de um site...

 

Desde ja agradeço...

 

 

Abaixo um ótimo exemplo de como importar arquivos de texto

<%

'Selecionando todos os registros da tabela, no nosso caso vou importar os Clientesexecutar = "select * from clientes"

set rs = server.createobject("ADODB.Recordset")

rs.open executar, conn, 3, 3

 

'Bom no nosso caso eu preciso deletar todos os registros antes de importa-los novamente

'Se você não precisar pode tirar essa parte

sql = "delete from clientes"

conn.execute(sql)

 

'Aqui eu crio o objeto, defino onde está o .txtSet fs = Server.CreateObject("Scripting.FileSystemObject")

caminho = Server.Mappath("txt/clientes.txt")

Set txt = fs.OpenTextFile(caminho, 1,0)

 

'É aqui que eu leio o txt e gravo no bancowhile (not txt.AtEndOfStream) and response.isclientconnected()

linha_txt = txt.readline

arrayx = split(linha_txt,"|") 'No meu .txt o caracter que separa cada campo é um |, se no seu for outro é so colocar aqui

 

'Abro um novo registro e coloco os dados do txt na tabela, cara array é um campo ou uma coluna do txt

'Se o seu .txt tem por exemplo Codigo | Nome

'fica assim

'rs.addnew

'if arrayx(0) <> "" then rs("codigo") = array(0)

'if arrayx(1) <> "" then rs("nome") = array(1)

'rs.update

'Você vai modificar de acordo com o .txtrs.addnew

if arrayx(0) <> "" then rs("codigo") = arrayx(0)

if arrayx(1) <> "" then rs("razao") = arrayx(1)

if arrayx(2) <> "" then rs("nome") = arrayx(2)

if arrayx(3) <> "" then rs("municipio") = arrayx(3)

if arrayx(4) <> "" then rs("uf") = arrayx(4)

if arrayx(5) <> "" then rs("codatividade") = arrayx(5)

if arrayx(6) <> "" then rs("atividade") = arrayx(6)

 

rs.update

wend

 

txt.close

 

set txt = nothing

set fs = nothing

 

conn.close

set conn = nothing

%>

[Mário Monteiro 179]

pelo que eu entendi este codigo vai selecionar e depois deletar os clientes de um bd

executar = "select * from clientes"set rs = server.createobject("ADODB.Recordset")rs.open executar, conn, 3, 3sql = "delete from clientes"conn.execute(sql)

até ai nada de trabalhar com txtsno resto do codigo ele vai pegar no txt dele alguns dados de novos clientes e armazenar no bda unica diferença que percebi, alem dos nomes das variaveis, para o codigo que postei acima é que ele lê uma linha do txt de cada vez

linha_txt = txt.readline

ao contrario de mim que li todo o txt de uma vez

strConteudo = arquivotxt.ReadAll

uma vez li um artigo de um cara que afirmava que ler uma linha de cada vez dava um desempenho melhor, mas não deve ser algo tão grande assime lendo tudo pelo menos eu evito o while que o cara usou neste artigo

while (not txt.AtEndOfStream) wend

espero ter ajudado