jissa
-
Total de itens
2.999 -
Registro em
-
Última visita
Tudo que jissa postou
-
não, não lembro de onde acho que de algum Site tipi o ClubeDelphi ou DelphiBahia.. me manda o link destas 700 deicas ai.. :) e como fez no menu.. bom para ter em arquivo aqui.. nunca se sabe quando precisar
-
O que pode ser feito é colocar um link e usar o CSS para tirar a linha de baixo.. e no onclick usar a funcao submit() do JavaScript. isto?
-
Peguei isto na Internet uma vez.. nunca usei. Sabia que um dia isto me serviria para algo... Segue um codigo exemplo:: (coloque o unit JPEG na sua USES) var Stm: TStream; Jpg: TJPEGImage; begin with QueryImagem do try if TBlobField(FieldByName('IMAGEM')).BlobSize > 0 then begin try Stm := TMemoryStream.Create; Jpg := TJpegImage.Create; TBlobField(FieldByName('IMAGEM')).SaveToStream(Stm); Stm.Position := 0; Jpg.LoadFromStream(Stm); try Image1.Picture.Assign(Jpg); except Image1.Picture.Assign(nil); end; finally Stm.Free; Jpg.Free; end; end else Image1.Picture.Assign(nil); except // controle de erro end; end;
-
copia este codigo numa pagina.. ai você pode mudar a cor de acordo <input type="submit" name="Submit" value="Título do Botão" style="color: #000000; background-color: #3399FF"> ve se serve..
-
function trocar_string(velho,novo,texto) { for (var i=0; i<texto.length; i++) { if (texto.substring(i,i+velho.length) == velho) { texto = texto.substring(0,i)+novo+texto.substring(i+velho.length,texto.length) } } return texto; } veja esta funcao.. deve funcionar.. não testei.. qualquer coisa Posta de novo, depois vejo com mais calma.. qualquer coisa eu posto de novo
-
Fiz um teste completo para voces.... <html> <head> <script language="JavaScript"> function tecla() { if (event.keyCode==122) { alert("F11 DESABILITADO"); event.keyCode=0; event.returnValue=false; } } document.onkeydown=tecla; </script> </head> <BODY onKeyDown="java script:return tecla();"> </html>
-
O Item do Menu vou dar uma Pesquisada.. quanto a alterar o txt. Ve se serve para a alteracao: Apenas abra o arquivo e leia seu conteúdo verificando linha a linha o que você procura, carregando-as em uma variável (Ex.: ArqTexto). Encontrada a linha no meio do processo de leitura, modifique-a antes de adicioná-la na variável ArqTexto, e em seguida continue o processo de leitura até o final. Terminando a leitura, simplesmente grave o conteúdo da variável ArqTexto no mesmo arquivo, sobrescrevendo tudo. Assim todo o conteúdo do arquivo continuará sendo o mesmo, exceto aquela linha que você alterou. procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin { Processa a linha lida aqui. } { Compare o que quer alterar com o IF se quiser}ReadLn ( arq, linha ); end; CloseFile ( arq ); end; procedure gravaArquivoTexto ( nomeDoArquivo: String; tabela: TTable ); var arq: TextFile; linha: String; begin AssignFile ( arq, nomeDoArquivo ); Rewrite ( arq ); tabela.First; while not tabela.Eof do begin Write ( arq, AjustaStr ( tabela.FieldByName ( 'Nome' ).AsString, 30 ) ); WriteLn ( arq ); tabela.Next; end; CloseFile ( arq ); end; function AjustaStr ( str: String; tam: Integer ): String; begin while Length ( str ) < tam do str := str + ' '; if Length ( str ) > tam then str := Copy ( str, 1, tam ); Result := str; end; O uso da função AjustaStr quando quiser gravar arquivos texto com registros de tamanho fixo a partir de bases de dados Paradox que usualmente não preenchem campos string com espaços no final. OUTRA FORMA.. Achei isto procurando sobre o Menu:Para ler e gravar em arquivos texto, tente usar as seguintes funções e procedures deste esboço de uma rotina Delphi: var Texto: String; ArquivoTexto: TextFile; {handle do arquivo texto} begin AssignFile(ArquivoTexto,'C:\teste\arqtexto.txt'); {Associa o arquivo a uma variável do tipo TextFile} Reset(ArquivoTexto); {Abre o arquivo texto} Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha} Writeln(ArquivoTexto,Texto); {Grava a string Texto no arquivo texto} ReWrite(ArquivoTexto); {Recria o arquivo texto} CloseFile(ArquivoTexto); {Fecha o arquivo texto} end;
-
O = é um operador relacionail ele compara dois operandos e da um valor booleano como resultado. Dividas = 0.00 e o := é para atribuir um Valor a uma variavel.. Nome_Variavel:=valor;
-
Pelo que eu Saiba não tem como.. voce precisa de uma linguagem que rode no Server... tipo ASP / PHP
-
Explicar tudo é meio complicado num Post destes... Para facilitar.. va na Pagina principal aqui do Scriptbrasil e em Scripts clique em ASP, la tem muitos scripts prontos com acesso a Banco de Dados com Senhas. Ms só isto não vai resolver seu problema.. imagino que seja tipo um acompanhamento de entregas ou de processos.. coisas assim.. Voce precisara de um cadasto de Clientes(com Senhas), um controle dos processos.. para facil localizar... um FollowUP (acompanhamento do Andamento) se quiser uma interface com o Cliente para ele enviar comentarios para a Empresa tipo para tirar duvidas.. etc.. não é só a senha que resolvera... Se voce não tem experiencia no Desenvolvimento deste tipo de aplicacao, e é para uma aplicacao profissional e não para uma pagina pessoal, sugiro que contrate alguém para fazer este projeto para voce..
-
achoq que ele quer criar uma segunda Pagina apos X tempo que a pagina 1.asp tiver no ar gerar uma 2.htm.. é isto??
-
Juliana... Voce já Postou sobre o SEU forum.. se é que Forum tem DONO Tem Administradores/Moderadores e Usuarios.. bem... já que voce tem um Forum.. sabe que se apenas responder ao Post que voce mesma já fez uma ou duas vzs aqui ele vai para o Topo.. não precisa ficar criando Posts novos... Voce Goataria que isto fosse feito no Seu Forum? Abraços;; A proposito. AINDA não me cadastrei lá.. até que voce mesma se cadastre aqui e no SuperScript..
-
Ae.. Florzinha.. eu Respondi.. mas não podia deizar sem comentarios.... e dir AOL. que c quiz dizer a Florzinha... essa menina é f**a == essa menina é fERa
-
O Case é bom para uma estrutura grande de desvio.. se for pequena vale a pena usar o IF Segue duas formas para voce utilizar: case VARIAVEL of Opcao1:Operacao1 Opcao2:Operacao2 Opcao3:Operacao3 Opcao4:Operacao4 else Operacao end; Outra Forma: case VARIAVEL of Opcao1:Begin Operacao1.1 Operacao1.2 Operacao1.3 end; Opcao1:Begin Operacao2.1 Operacao2.2 Operacao2.3 end; else Operacao end;
-
você quer chamar este programa do XP dentro do seu aplicativo?? Se for.. me passa qual o executavel que faço um teste aqui e mando para voce..
-
voce pode mudar a configuracao do Windows para que no lugar do NotePad ele utiliza o FP.. mas ai SEMPRE abrira o FP para arquivos padrão .TXT.. Agora se vai pegar um texto para colocar dentro de uma pagina.. abra o NotePad.. copie o texto e Cole no FP.. formate conforme quer e salve com extencao .htm
-
Mas eu quero ter um Diretorio para cada Serviço que fizer.. e utilizar um Diretorio padrão... mesmo que seja nos meus Documentos.. terei um sub para cada Serviço.. e sempre terei o mesmo problema.. Caso ainda tenha duvida quanto ao que quero é o seguinte: Por Exemplo.. tenho um Diretorio onde esta os servicos.. uma estrutura +- assim c:\paginas c:\paginas\cliente1 c:\paginas\cliente2 c:\paginas\cliente3 c:\paginas\cliente4 c:\paginas\cliente5 ai estou trabalhando nas paginas do cliente3... termino o dia de trabalho... No Outro dia Abro o FP e vou retomar o Servico... só que nunca esta no ultimo diretorio de trabalho... sempre tenho que direcionar tanto para abrir um arquivo já em usu como para salvar um novo.
-
Admirei este Post.. com um Conteudo Educativo, o modo como foi feito.. muito inteligente.. Eu Atuo somente quando tenho Clientes.. :)
-
é Anao o mais comum é como arquivo texto conforme voce falou... e na maioria salva como .ini e alguns poe até mesmo no dir do Win.. eu vi um uma vez que o cara criou dentro de um .db e mostrava num grid (Caminho/NomeArquivo/Autor/DataCriacao/Alterado/DataAlteracao) acho que era isto.. mas o Sistema tinha Login para acesso.. achei legal que voce sabia quando foi criado.. onde estava salvo quem e quando fez e qual foi o ultimo e quando que alterou.. Mas o Tradicional é como você descreveu ai.. já tem como copiar e colar?
-
Opa.. Cerveja.. onde.. quando... to nessa
-
eu vi o Artigo.. achei legal.. da uma olhada... Clique aqui para ir direto
-
Este Valida o CGC e CPF. <script LANGUAGE="JavaScript"> <!-- // para browsers sem suporte a java script function check_cpf (StrCPF) { x = 0; soma = 0; dig1 = 0; dig2 = 0; texto = ""; StrCPF1=""; len = StrCPF.length; x = len -1; for (var i=0; i <= len - 3; i++) { y = StrCPF.substring(i,i+1); soma = soma + ( y * x); x = x - 1; texto = texto + y; } dig1 = 11 - (soma % 11); if (dig1 == 10) dig1=0 ; if (dig1 == 11) dig1=0 ; StrCPF1 = StrCPF.substring(0,len - 2) + dig1 ; x = 11; soma=0; for (var i=0; i <= len - 2; i++) { soma = soma + (StrCPF1.substring(i,i+1) * x); x = x - 1; } dig2= 11 - (soma % 11); if (dig2 == 10) dig2=0; if (dig2 == 11) dig2=0; if ((dig1 + "" + dig2) == StrCPF.substring(len,len-2)) { // alert ("Número do CPF Válido !"); return true; } alert ("Número do CPF Inválido !"); document.form.cpfcgc.focus(); return false; } function check_cgc (StrCGC) { var varFirstChr = StrCGC.charAt(0); var vlMult,vlControle,s1, s2 = ""; var i,j,vlDgito,vlSoma = 0; for ( var i=0; i<=13; i++ ) { var c = StrCGC.charAt(i); if( ! (c>="0")&&(c<="9") ) { alert("Número do CGC Inválido !"); document.form.cpfcgc.focus(); return false; } if( c!=varFirstChr ) { vaCharCGC = true; } } if( ! vaCharCGC ) { alert("Número do CGC Inválido !"); document.form.cpfcgc.focus(); return false ; } s1 = StrCGC.substring(0,12); s2 = StrCGC.substring(12,15); vlMult = "543298765432"; vlControle = ""; for ( j=1; j<3; j++ ) { vlSoma = 0; for ( i=0; i<12; i++ ) { vlSoma += eval( s1.charAt(i) )* eval( vlMult.charAt(i) );} if( j == 2 ){ vlSoma += (2 * vlDgito); } vlDgito = ((vlSoma*10) % 11); if( vlDgito == 10 ){ vlDgito = 0; } vlControle = vlControle + vlDgito; vlMult = "654329876543"; } if( vlControle != s2 ) { alert("Número do CGC Inválido !"); document.form.cpfcgc.focus(); return false; return false; } else { // alert("Número do CGC Válido !"); return true; } } function validaCGC_CPF() { var StrData = document.form.cpfcgc.value; var CGCPat = /^(\d{2}).(\d{3}).(\d{3})\/(\d{4})-(\d{2})/; var CGCPat2 = /^(\d{14})/; var CPFPat = /^(\d{3}).(\d{3}).(\d{3})-(\d{2})/; var CPFPat2 = /^(\d{11})/; var matchCGCArray = StrData.match(CGCPat); var matchCGCArray2 = StrData.match(CGCPat2); var matchCPFArray = StrData.match(CPFPat); var matchCPFArray2 = StrData.match(CPFPat2); if (matchCGCArray == null && matchCGCArray2 == null && matchCPFArray == null && matchCPFArray2 == null) { cpfalert = 'O número do CPF deve ser informado incluindo-se os dois dígitos verificadores. Não são necessários zeros à esquerda.\nExemplo: 000.000.000-00 ou 00000000000\n\n'; cgcalert = 'O número do CGC deve ser informado incluindo-se os 14 dígitos. Não são necessários zeros à esquerda.\nExemplo: 00.000.000\/0000-00 ou 00000000000000'; alert('você deve fornecer um CGC ou um CPF valido\n\n' + cpfalert + cgcalert); return false; return false; } else if(matchCGCArray != null) { StrData = matchCGCArray[1] + matchCGCArray[2] + matchCGCArray[3] + matchCGCArray[4] + matchCGCArray[5] ; check_cgc(StrData); } else if(matchCGCArray2 != null) { StrData = matchCGCArray2[1]; check_cgc(StrData); } else if(matchCPFArray != null) { StrData = matchCPFArray[1] + matchCPFArray[2] + matchCPFArray[3] + matchCPFArray[4]; check_cpf(StrData); } else if(matchCPFArray2 != null) { StrData = matchCPFArray2[1]; check_cpf(StrData); } return false; } //--> </SCRIPT> E no HTML <input type="image" border="0" name="proximo" src="imagens/proximo.gif" width="111" height="25" onClick=validaCGC_CPF()>
-
não existe como ou ninguém sabe??
-
Chat do MSN sai do ar em 28 países e terá restrições no Brasil IDG News Service 24/09/2003 09:32 A Microsoft vai tirar do ar seus serviços de bate-papo gratuito presentes no portal MSN em todo o mundo, exceção feita ao Brasil e mais três países. Os motivos, explicados na noite de ontem (23), são o aumento de spam e material ofensivo nos chats. Segundo a Microsoft, 28 países não terão mais salas de bate-papo. Nos Estados Unidos, o acesso será restrito a determinados grupos. As mudanças começam a valer a partir de 14 de outubro, quando países como Espanha, França e México não terão mais salas de bate-papo. "O MSN Chat será um serviço pago por assinaturas nos Estados Unidos", disse uma porta-voz da companhia. "Todos poderão visitar as salas de chat, mas será preciso ter uma assinatura do MSN (Microsoft Network) para participar", afirmou. Nos EUA, o preço mínimo da assinatura é de US$ 19,95 pelo programa MSN Extra Storage. Entretanto, nem todos os países terão seus chats extintos. Brasil, Canadá, Japão e Nova Zelândia terão acesso gratuito a um chat moderado pelo portal. Segundo a Microsoft Brasil, as salas de chat com grande visitação serão gerenciadas pelo MSN e vão continuar abertas. Os usuários serão alertados por comunicados colocados no site de bate-papo. No Brasil, o MSN fechará o acesso às salas de bate-papo online que não são moderadas pelo portal, permanecendo abertas as demais. Além disso, algumas salas com alta visitação passarão a ser gerenciadas pelo MSN e permanecerão abertas. Os visitantes serão avisados por meio de vários comunicados postados no MSN Chat. A Microsoft acredita que as mudanças são necessárias para proteger os consumidores, que são vítimas de material impróprio. A idéia é aumentar a segurança da "experiência online" e, claro, tentar popularizar o uso da ferramenta de mensagens instantâneas MSN Messenger.
-
Como assim? não entendi direito .... da um exemplo do que quer fazer