Roberto Carvalho

Olá amigos, Espero que possam me ajudar, tenho o seguinte array: $num = count($_SESSION["retorno"]); $_SESSION["retorno"][$num]['xtype'] = "fieldset"; $_SESSION["retorno"][$num]['id'] = "Panel_$num" ; $_SESSION["retorno"][$num]['autoHeight'] = true; $_SESSION["retorno"][$num]['items'] = array(); $_SESSION["retorno"][$num]['items'][0]['layout'] = "column"; $_SESSION["retorno"][$num]['items'][0]['border'] = false; $_SESSION["retorno"][$num]['items'][0]['items'] = array(); $_SESSION["retorno"][$num]['items'][0]['items'][0]["columnWidth"] = .9; $_SESSION["retorno"][$num]['items'][0]['items'][0]['border'] = false; $_SESSION["retorno"][$num]['items'][0]['items'][0]['items'] = array(); $_SESSION["retorno"][$num]['items'][0]['items'][0]['items']["id"] = "Pergunta_$num"; $_SESSION["retorno"][$num]['items'][0]['items'][0]['items']["xtype"] = "label"; $_SESSION["retorno"][$num]['items'][0]['items'][0]['items']["text"] = "Digite aqui sua pergunta"; $_SESSION["retorno"][$num]['items'][0]['items'][1]["columnWidth"] = .05; $_SESSION["retorno"][$num]['items'][0]['items'][1]['border'] = false; $_SESSION["retorno][$num]['items'][0]['items'][1]['items'] = array(); $_SESSION["retorno][$num]['items'][0]['items'][1]['items']["xtype"] = "tbbutton"; $_SESSION["retorno"][$num]['items'][0]['items'][1]['items']['tooltip'] = "Editar"; $_SESSION["retorno"][$num]['items'][0]['items'][1]['items']['tooltipType'] = "title"; $_SESSION["retorno"][$num]['items'][0]['items'][1]['items']['text'] = ""; $_SESSION["retorno"][$num]['items'][0]['items'][1]['items']['iconCls'] = "edit"; $_SESSION["retorno"][$num]['items'][0]['items'][1]['items']['handler'] = "function(){DoEdition(390, 'Pergunta_$num');}"; $_SESSION["retorno"][$num]['items'][0]['items'][2]["columnWidth"] = .05; $_SESSION["retorno"][$num]['items'][0]['items'][2]['border'] = false; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items'] = array(); $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']["xtype"] = "tbbutton"; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']['tooltip'] = "Excluir"; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']['tooltipType'] = "title"; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']['text'] = ""; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']['iconCls'] = "delete"; $_SESSION["retorno"][$num]['items'][0]['items'][2]['items']['handler'] = "function(){Ext.get('Panel_$num').remove();}"; $_SESSION["retorno"][$num]['items'][1]['xtype'] = "textfield"; $_SESSION["retorno"][$num]['items'][1]['hideLabel'] = true; $_SESSION["retorno"][$num]['items'][1]['anchor'] = "100%"; Vamos supor que eu queira excluir o elemento em vermelho, que por sua vez removeria os itens em verde. Eu poderia usar o seguinte: unset($_SESSION["retorno"][$num]['items'][0]['items'][1]['items']); Mas o problema é que vou excluir em outra pagina através de um botão, como faço para passar a localização do elemento que quero excluir para a pagina que faz a exclusão? Desde já agradeço.

Olá galera, estou com uma duvida terrível e se vocês puderem me ajudar. É o seguinte tenho a seguinte tabela chamada Menu: ID TIPO(1 É MENU, 2 É SUBMENU) IDPAI TITULO NIVEL O que preciso fazer é mostrar na tela o menu e dentro do menu seus respectivos submenus e dentro dos submenus seus respectivos submenus e assim por diante. Ou seja: ID TIPO IDPAI TITULO NIVEL 1 1 Pagina Inicial 2 1 Noticias 3 1 Circulares 4 2 1 Pagina Inicial1 1 5 2 1 Pagina Inicial2 1 6 2 3 Circulares1 3 7 2 5 Pagina Inicial2(1) 1,5 Gostaria de escrever o seguinte na tela: Menu Pagina Inicial >>Pagina Inicial1 >>Pagina Inicial2 >>>>Pagina Inicial2(1) Noticias Circulares >>Circulares1 Alguêm pode ajudar como fazer isso. Desde já aeu agradeço.

Olá, Preciso de alguêm que faça algumas alterações num sistema já existente. Nada muito complicado.. criar um relatórios..modificar outros e fazer algumas pequenas alterações. Pago R$500,00 Se alguêm se interessar responda o tópico..

Os dados ficariam assim: table_Palavras Id,data,idioma,palavra 38,13/10/2008 15:30:30,pt,cabelo 39,13/10/2008 15:30:30,en,hair 40,13/10/2008 15:30:30,cro,kosa table_traducoes Id,Idpalavra,data,idioma,traducao 1,38,13/10/2008 15:30:30,en,hair 2,38,13/10/2008 15:30:30,es,pelo 3,38,13/10/2008 15:30:30,al,haar 4,39,13/10/2008 15:30:30,it,capelli 5,39,13/10/2008 15:30:30,cro,kosa 6,39,13/10/2008 15:30:30,viet,tóc 6,40,13/10/2008 15:30:30,din,hår então se a pessoa digita-sse cabelo na busca ela encontraria: 38,13/10/2008 15:30:30,pt,cabelo 39,13/10/2008 15:30:30,en,hair 40,13/10/2008 15:30:30,cro,kosa que são as formas de escrever cabelo nos idiomas cadastrados na tabela table_Palavras. que contém nas possíveis traduções da tabela table_traducoes.

Até ai tudo bem se digitar cabelo ela encontra a palavra hair. Mas o quero é se alguém já cadastrou essa hair e cadastrou outras possíveis traduções ele também as encontre. ou seja: Português: cabelo Possíveis traduções: Inglês: hair Espanhol: pelo Alemão: Haar Inglês: Hair Possíveis traduções: Italiano: capelli Croata: kosa vietnamita: tóc Croata: Kosa Possíveis traduções: Dinamarquês: hår Russo: волосы Sérvio: коса Ou seja: se a pessoa digitar a palavra cabelo o sistema iria encontrar: cabelo, hair e Kosa

Vou tentar explicar o que quero fazer, tenho uma aplicação em asp com bd mysql. Nessa aplicação tenho a seguinte tabela: table_Palavras Campos: Id,data,idioma,palavra E tenho uma outra tabela: table_traducoes Campos: Id,Idpalavra,data,idioma,traducao O que quero é o seguinte, quando uma pessoa cadastra uma palavra no site ela também cadastra sua possíveis traduções ou seja: cadastro na tabela table_Palavras Idioma:Português, palavra:Cabelo em seguida vou para a tela de possíveis traduções e cadastro na tabela table_traducoes Idioma:Inglês,palavra:Hair e assim por diante posso cadastrar até 3 possíveis traduções. se alguém entrar no site e cadastrar na tabela table_Palavras a palavra hair em ingles e nas possiveis traduções colocar a palavra em arabe,espanhol,frances e depois alguém cadastrar em francês e colocar como possíveis traduções a palavra em alemão,italiano,etc... Eu quero que quando a pessoa digite a palavra no campo de busca seja identificado todas as suas possíveis traduções e o resultado venha todos os cadastros da tabela table_Palavras que estejam presentes na tabela table_traducoes linkados, ou seja se eu digitar a palavra cabelo ela não somente encontre as possiveis traduções da palavra cabelo mas sim também as possíveis traduções da palavra hair e qualquer outra lingua que esta palavra esteja cadastrada. Não sei se fui bem claro nem mesmo sei se não teria que postar no forum de Mysql mas como a aplicação é em asp resolvi postar aqui. Se alguêm poder me ajudar desde já agradeço.

Exatamente isso cara... Muito obrigado.

Deixa eu ser um pouco mais claro... Na verdade o que quero é o seguinte.. vou obter a resposta da porta paralela que é um numero que vai de 0 à 255. o quero é o seguinte dividir o numero que eu obter em partes,, ou seja tenho os seguintes numeros: 1,2,4,8,16,32,64 e 128. Se a resposta da porta paralela for 129.. então quero que ele encontre as partes segundo os meus numeros ou seja, 128 e 1. Se o numero for 96 ele deve obter 32 e 64.... se for 10 ele deve obter 2 e 8.. Espero ter sido mais claro.. se alguém puder me ajudar.. agradeço desde já.

Estou fazendo um programa para controle de porta paralela, mas estou com duvida pra fazer o seguinte. meu programa tem 8 labels sendo elas: bt(0),bt(1)...até...bt(7) quando o byte que corresponde a cada label esta ativado na porta paralela a label fica com o backcolor vermelho e quando não está fica verde. o envio de bytes é feito da seguinte maneira.. quando a pessoa clica no bt(0) por exemplo acontece isso: Private Sub bt(0)_Click() conta = Inp(Val("&H379")) If bt(0).BackColor = &HFF00& Then Out Val("&H378"), Val(conta + 1) bt(0).BackColor = &HFF& Else Out Val("&H378"), Val(conta - 1) bt(0).BackColor = &HFF00& End If End Sub Reparem que eu enviei 1 byte O valor de cada label é o seguinte? bt(0)=1 byte bt(1)=2 byte bt(2)=4 byte bt(3)=8 byte bt(4)=16 byte bt(5)=32 byte bt(6)=64 byte bt(7)=128 byte por exemplo se eu der um click nas labels bt(0) que vale 1 byte e bt(1) que vale 2 bytes minha resposta conta = Inp(Val("&H379")) seria de 3 bytes e as 2 duas labels estariam com o backcolor vermelho,, agora de eu clicar novamente na bt(0) ele vai pegar a resposta que seria 3 e subtrair por 1 e a resposta que vai ficar 2,, ou seja,, só o bt(1) está ativo ou seja vermelho. Minha pergunta é o seguinte como fazer no load no formulario uma função que pegue a reposta de quantos bytes estão sendo utilizados e deixe-os com o background vermelho sabendo que a soma de todos os bytes utilizados é 255 e 0 qaundo nenhum esta sendo utilizado. Desde já agradeço.

Segue o Codigo de uma importação de arquivos em ASP com uma barra de progresso informando o andamento da importação: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Importação de Arquivos</title> <style type="text/css"> body{ font-family: Trebuchet MS, Lucida Sans Unicode, Arial, sans-serif; background-color:#E2EBED; margin:0px; padding:0px; height:100%; width:100%; line-height:130%; font-size:0.9em; text-align:center; } #pageContent{ width:760px; margin:0 auto; text-align:left; border-left:1px solid #000; border-right:1px solid #000; background-color:#FFF; height:100%; } #pageContent p{ padding-left:10px; padding-right:10px; } #dhtmlgoodies_progressPane{ width:100%; height:100%; background-color:#FFF; z-index:5000; position:absolute; left:0px; top:0px; } #dhtmlgoodies_progressBar_bg{ position:absolute; left:50%; top:50%; width:300px; height:20px; border:1px solid #000; background-color:#EEE; margin-left:-150px; margin-top:-20px; text-align:center; } #dhtmlgoodies_progressBar_outer{ position:absolute; left:0px; top:0px; width:0px; height:100%; overflow:hidden; } #dhtmlgoodies_progressBar{ position:absolute; left:0px; top:0px; width:300px; background-color:#184EB8; filter: Alpha(Opacity=0, FinishOpacity=100,Style=1,StartX=0, StartY=0, FinishX=200,FinishY=20); height:100%; z-index:5000; } #dhtmlgoodies_progressBar_txt{ color:#000; z-index:10000; width:100%; height:100%; left:0px; top:0px; position:absolute; font-family:arial; font-size:0.8em; line-height:20px; /* Same as height of progress bar */ } </style> <script type="text/javascript"> var progressbar_steps = 100; var dhtmlgoodies_progressPane = false; var dhtmlgoodies_progressBar_bg = false; var dhtmlgoodies_progressBar_outer = false; var dhtmlgoodies_progressBar_txt = false; var progressbarWidth; var currentStep = 0; function moveProgressBar(steps){ if(!dhtmlgoodies_progressBar_bg){ dhtmlgoodies_progressPane = document.getElementById('dhtmlgoodies_progressPane'); dhtmlgoodies_progressBar_bg = document.getElementById('dhtmlgoodies_progressBar_bg'); dhtmlgoodies_progressBar_outer = document.getElementById('dhtmlgoodies_progressBar_outer'); dhtmlgoodies_progressBar_txt = document.getElementById('dhtmlgoodies_progressBar_txt'); progressbarWidth = dhtmlgoodies_progressBar_bg.clientWidth; } if(!steps){ dhtmlgoodies_progressBar_outer.style.width = progressbarWidth + 'px'; dhtmlgoodies_progressBar_txt.innerHTML = '100%'; }else{ currentStep=steps; if(currentStep>progressbar_steps)currentStep = progressbar_steps; var width = Math.ceil(progressbarWidth * (currentStep / progressbar_steps)); dhtmlgoodies_progressBar_outer.style.width = width + 'px'; var percent = Math.ceil((currentStep / progressbar_steps)*100); dhtmlgoodies_progressBar_txt.innerHTML = percent + '%'; if(currentStep==progressbar_steps){ } } } function demoProgressBar(step2) { if(currentStep<progressbar_steps){ moveProgressBar(step2); } } </script> </head> <body> <div id="dhtmlgoodies_progressPane"> <div id="dhtmlgoodies_progressBar_bg"> <div id="dhtmlgoodies_progressBar_outer"> <div id="dhtmlgoodies_progressBar"></div> </div> <div id="dhtmlgoodies_progressBar_txt">0 %</div> </div> </div> <div id="pageContent"> </body> </html> <!--#include file="conn.asp"--> <% conta=0 conta2=0 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set leitura1 = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura1.AtEndOfStream leitura1.readline conta= conta+1 loop result= 100/conta leitura1.close set leitura1= nothing Set leitura = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura.AtEndOfStream str= leitura.readline & vbcrlf tipo= Mid(str,1,1) tipo2= cint(tipo) cpf= Mid(str,2,11) valor= Mid(str,13,9) valor2 = valor / 100 data= mid(str,28,2) & "/" & Mid(str,26,2) & "/" & Mid(str,22,4) data2 = cdate(data) Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open "select * from clientes", conn, 3, 3 rsuser.addnew rsuser("tipo")=tipo2 rsuser("cpf")=cpf rsUser("valor") = valor2 rsuser("data")=data2 rsUser.Update conta2= conta2 + result if conta2>= "99" then conta2="100" end if conta3=cint(conta2) if conta3>=100 then conta3=100 end if %> <script language=javascript> demoProgressBar('<%=conta3%>') </script> <% Loop leitura.close set leitura=nothing rsUser.close set rsUser = nothing conn.close %>

Não funcionou... não quero que ele execute a função quando a pagina carregar e sim entre os loops do meu codigo ASP. Mesmo assim obrigado. Sera que alguém tem uma solução diferente?

Tenho um arquivo js incluso na minha pagina asp porem quando chamo a função assim: onclick="myJsProgressBarHandler.setPercentage('element1','1');return false;" ela funciona normal. Porem eu quero que ela funciona sem precisar click e nem nada, ou seja meu codigo ASP da um loop e eu quero essa função entre o loop. meu codigo se trata de uma importação ao banco de dados e quero que a cada registro cadastrado execute essa função so que não sei como fazer funcionar, sewgue meu codigo abaixo: <div style="width:540px;margin : 0 auto; text-align:left;" > <h1> </h1> <div id="demo"> <p style="text-align: center"> <span style="color:#006600;font-weight:bold;">Status da Importação</span> <br/> <span class="progressBar percentImage1" id="element1">0%</span> <br/><br/> </div> </div> </body> </html> <!--#include file="conn.asp"--> <% conta=0 conta2=0 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set leitura1 = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura1.AtEndOfStream leitura1.readline conta= conta+1 loop result= 100/conta leitura1.close set leitura1= nothing Set leitura = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura.AtEndOfStream str= leitura.readline & vbcrlf tipo= Mid(str,1,1) tipo2= cint(tipo) cpf= Mid(str,2,11) valor= Mid(str,13,9) valor2 = valor / 100 data= mid(str,28,2) & "/" & Mid(str,26,2) & "/" & Mid(str,22,4) data2 = cdate(data) Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open "select * from clientes", conn, 3, 3 rsuser.addnew rsuser("tipo")=tipo2 rsuser("cpf")=cpf rsUser("valor") = valor2 rsuser("data")=data2 rsUser.Update conta2= conta2 + result if conta2>= "99" then conta2="100" end if %> Aqui eu quero que execute a minha função... mas sozinha.. sem click... <% Loop leitura.close set leitura=nothing rsUser.close set rsUser = nothing conn.close %>

Olá, Sei que via ASP não tem como imprimir direto na LTP1, então gostaria de saber se tem como criar uma dll com a função de imprimir direto na ltp1 no Vb e chama-la pelo asp. A função que tenho para impressão direto na Ltp1 no vb é essa: Dim n As Long n = FreeFile() Open "LPT1:" For Output As #n Print #n, "Hello world" Close #n como fazer para criar uma dll com essa função? e como chama-la pelo ASP? desde já agradeço.

Consegui esse codigo... mas o problema é que ainda não esta alterando o arquivo... o que pode estar errado: <% Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("c:\teste2") objWord.Visible = false DIM valor,arquivo arquivo = "C:\teste4.doc" TP_OnLoad("@casa") TP_OnLoad("@roberto") objWord.Application.ActiveDocument.SaveAs arquivo objWord.Application.ActiveWindow.Close Set objWord = nothing %> <% Function TP_OnLoad(header) Set myRange = objword.ActiveDocument.Range With myRange.Find .ClearFormatting .Text = header With .Replacement .ClearFormatting .Text = "End" End With .Execute , True, True, , , , , , True, , wdReplaceAll End With End Function %>

Esse é o procediemento que eu uso no Visual Basic e funciona perfeitamente: Public objword As Word.Application Private Sub command1_click() Set objword = New Word.Application objword.Documents.Open ("c:\teste2.doc") objword.Visible = False Call Substitui_Var("@casa", "Minha Casa") Call Substitui_Var("@teste", "Mweu Teste") objword.ActiveDocument.SaveAs ("c:\teste3.doc") objword.Quit MsgBox "Replace Ok" Set objword = Nothing Exit Sub End Sub Private Sub Substitui_Var(Header As String, Data As String) With objword.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=True End With Clipboard.Clear Clipboard.SetText (Data) objword.Selection.Paste Clipboard.Clear End Sub Mas em ASP ainda não consegui nada que chegasse nem perto..... Quem puder ajudar agradeço desde já.