Usuário com melhor resposta
Definir cor de forma automática por arquivo de parâmetros em um hta.

Pergunta
-
Ba galera, alguém consegue me dar uma força, montei o HTA abaixo que fica passando um letreiro, que a cada 30 segundos o mesmo da um refresh na tela.
A mensagem que este letreiro apresenta, vem de um arquivo de texto, ou seja quando o refresh acontece caso a mensagem do txt seja alterada a mesma é alterada no display do HTA, o que tenho de problema é a seguinte, dependendo do informativo, é necessário mudar a cor, porem o mesmo processo usado para a mensagem com o txt, não funciona para a questão da cor, então eu pergunto para os amigos do fórum tche, como mudar a cor de um texto apresentado de forma automática a partir de um arquivo de parâmetros.
obrigado galera.
Codigo.
<HTML> <title> .:: INFORMATIVO ::. </title> <HTA:APPLICATION> <script language="Javascript"> window.moveTo(0, 0); window.resizeTo(1025, 130); </script> <script language="VBScript"> Sub Window_OnLoad strFile = "\\servidor\compartilhamento\msg.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") 'Abre Arquivo Set objTextFile = objFSO.opentextfile(strFile,1) strparp = objTextFile.Readline objTextFile.Close Appmsg.InnerHTML = strparp End Sub </script> <BODY SCROLL="no" top=0 width=100> <table width=1025 border="0" cellspacing="0" cellpadding="0"> </a> <td bgcolor=white valign=middle width=100% height=100%> <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro"> <DIV align="CENTER"> <font face=arial size=120 color="#000099"> <P><SPAN ID="Appmsg"></SPAN> </DIV> </marquee></a> </td> </a> </tr> </table> <meta http-equiv="refresh" content="30" > </BODY> </HTML>
Respostas
-
Opa Marcelo, você pode usar o mesmo conceitoda leitura do arquivo, é so adicionar um arquivo com um nome de cor ou seu valor hexadecimal
<HTML> <title> .:: INFORMATIVO ::. </title> <HTA:APPLICATION> <script language="Javascript"> window.moveTo(0, 0); window.resizeTo(1025, 130); </script> <script language="VBScript"> Sub Window_OnLoad strFile = "E:\lista.txt" strConfig = "E:\cor.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") 'Abre Arquivo de cor Set objTextFile = objFSO.opentextfile(strConfig,1) strCor = objTextFile.Readline objTextFile.Close 'Abre Arquivo Set objTextFile = objFSO.opentextfile(strFile,1) strparp = objTextFile.Readline objTextFile.Close Appmsg.InnerHTML = "<font color ="""&strCor& """ >"& strparp End Sub </script> <BODY SCROLL="no" top=0 width=100> <table width=1025 border="0" cellspacing="0" cellpadding="0"> </a> <td bgcolor=white valign=middle width=100% height=100%> <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro"> <DIV align="CENTER"> <font face=arial size=120 color="#000099"> <P><SPAN ID="Appmsg"></SPAN> </DIV> </marquee></a> </td> </a> </tr> </table> <meta http-equiv="refresh" content="30" > </BODY> </HTML>
att, Aparecido Deveza
- Marcado como Resposta Marcelo TI sexta-feira, 5 de julho de 2013 15:40
Todas as Respostas
-
Opa Marcelo, você pode usar o mesmo conceitoda leitura do arquivo, é so adicionar um arquivo com um nome de cor ou seu valor hexadecimal
<HTML> <title> .:: INFORMATIVO ::. </title> <HTA:APPLICATION> <script language="Javascript"> window.moveTo(0, 0); window.resizeTo(1025, 130); </script> <script language="VBScript"> Sub Window_OnLoad strFile = "E:\lista.txt" strConfig = "E:\cor.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") 'Abre Arquivo de cor Set objTextFile = objFSO.opentextfile(strConfig,1) strCor = objTextFile.Readline objTextFile.Close 'Abre Arquivo Set objTextFile = objFSO.opentextfile(strFile,1) strparp = objTextFile.Readline objTextFile.Close Appmsg.InnerHTML = "<font color ="""&strCor& """ >"& strparp End Sub </script> <BODY SCROLL="no" top=0 width=100> <table width=1025 border="0" cellspacing="0" cellpadding="0"> </a> <td bgcolor=white valign=middle width=100% height=100%> <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro"> <DIV align="CENTER"> <font face=arial size=120 color="#000099"> <P><SPAN ID="Appmsg"></SPAN> </DIV> </marquee></a> </td> </a> </tr> </table> <meta http-equiv="refresh" content="30" > </BODY> </HTML>
att, Aparecido Deveza
- Marcado como Resposta Marcelo TI sexta-feira, 5 de julho de 2013 15:40
-