Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Comparei usando um editor HEX e o seu arquivo que não funciona continua em UTF-8, por isso ele tem 3 bytes no começo (que não existem no arquivo que funciona). Outro detalhe é que faltava uma quebra de linha antes de "carregamento" (o que ocorria por usar Write ao invés de WriteLine). Veja o código abaixo e confira se o arquivo gerado por ele funciona (pelo menos ficou igual ao que funciona): Dim arq As String = "c:\temp\teste.ftl" Dim sw As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(arq, False, System.Text.Encoding.ASCII) sw.WriteLine("301 206 1 0 1 1 1 1 2 1 0 0 0 0 +4.00000e+000 +5.00000e+000 -1.00000e+030 +1.00000e+030 -1.00000e+030 +1.00000e+030 1 1 1 0 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 2 5 17 22 35 57 63 76 48 2 9 14 78 91 0 0 2 2 10 10 1 1 4 1 1 4 2 0 1 6 0 0 11 11 10 10 2 2 2 0 0 1 1 0 1 1 1 1 0 1 1 0 0 0 1") sw.WriteLine("0 'carregamento' 0 -345") sw.WriteLine("0 0 1 'concreto' 0 1e+008 0.3 10 1e-005 1 'quadrada' 1 0 0.6 0.2 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 2 1 1 1 1 1 1 2 1 1 1 +8.00000e+000 +5.00000e+000 0 +4.00000e+000 +8.00000e+000 +5.00000e+000 +5.00000e+000 0 0 0 0 0 1 1 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0") sw.Close() Lembre de trocar a parte do "-345" pelo valor presente na sua textbox. Abraços!
  2. Não, eu digo anexar os arquivos mesmo (não o conteúdo deles). Com ambos vai dar pra comparar o tamanho, a codificação e a terminação de linha, pra poder determinar qual é a diferença. Abraços!
  3. Tem como você anexar aqui um exemplo de um arquivo gerado e um do mesmo que funciona? Abraços!
  4. Pode ser a codificação, pois o padrão deste método é usar UTF8 e provavelmente o arquivo deve precisar ser em ASCII puro. Então, experimente trocar a linha... file = My.Computer.FileSystem.OpenTextFileWriter("Text.ftl", False) por... file = My.Computer.FileSystem.OpenTextFileWriter("Text.ftl", False, System.Text.Encoding.ASCII) ... e veja se dá certo. Abraços!
  5. Acredito que você deveria fazer uma lista e percorrê-la: # encoding: utf-8 import urllib2 from bs4 import BeautifulSoup # specify the urls quote_page = ['link1', 'link2', 'link3', ..., 'link100'] for qp in quote_page: # query the website and return the html to the variable 'page' page = urllib2.urlopen(qp) # parse the html using beautiful soap and store in variable `soup` soup = BeautifulSoup(page, 'html.parser') p_tags = soup.findAll('p',text=True) #print p_tags print(p_tags) Certo? Abraços!
  6. Faça um teste primeiro e veja se a query abaixo te dá o resultado esperado: SELECT "Campo", substring("Campo" from length("Campo")-5 for 6) FROM "Tabela"; Caso positivo, é só fazer um UPDATE como abaixo: UPDATE "Tabela" SET "Campo"=substring("Campo" from length("Campo")-5 for 6); Abraços!
  7. A linha... lista = int(cod) + 1 ... não deveria ser... lista += 1 ...? Pelo que entendi você pega o maior código da tabela e quer acrescentar 1, certo? Pra isso nem precisaria do loop ali, aliás. Abraços!
  8. E não é só repetir a linha que gera a "palavra"? import random W=("abcdefghijklmnopqrstuvwxyz123456789ABCDEFGHIJKLMNOPQRSTYVWXYZ") GE=''.join(random.choice(W) for i in range(14)) txt= ("teste.txt") arq = open(txt, 'w') arq.write(GE) arq.write("\n") GE=''.join(random.choice(W) for i in range(14)) arq.write(GE) arq.close() Caso queira fazer mais do que 2 vezes eu recomendo usar um laço. Abraços!
  9. Para listar os domínios você pode fazer o seguinte: SELECT DISTINCT substring("FROMJID" from position('@' in "FROMJID")) FROM "OfMessageArchive"; E para substituir todos por "empresa.com.br" você pode fazer: UPDATE "OfMessageArchive" SET "FROMJID"=concat(substring("FROMJID" for position('@' in "FROMJID")),'empresa.com.br'); Certo?
  10. Ambas servem para o caso. Você precisa estudar a diferença entre as duas, e nada melhor do que fazer os dois casos para ver a diferença. Abraços!
  11. Graymalkin

    [DÚVIDA]

    Outra maneira simples seria usar os.path.exists(). Abraços!
  12. Eu recomendaria executar alguns testes de hardware (como memória e HD) através do Hirens, para verificar se há algo de errado com a máquina. Tenho bases no PostgreSQL há quase 10 anos e que nunca corromperam, então acho isso algo muito incomum. Abraços!
  13. Então, você pode criar um arquivo texto assim: Dim arqlog As String = IO.Path.Combine(Application.StartupPath, "arq.log") Try Dim f As New IO.StreamWriter(arqlog, True) f.WriteLine("O que você quer escrever no arquivo aqui!") f.Close() Catch ex As Exception MessageBox.Show("Erro ao gravar o log: " & ex.Message) End Try Você pode adaptar isso a uma função e chamar em vários locais ou quando for inserido um elemento na ListBox para registrar. Certo? Abraços!
  14. Você quer incluir itens em uma ListBox? Ou quer registrar esses itens em um arquivo texto? E. realmente, do VB6 para o VB.NET muda bastante coisa, mas é para melhor. No VB6 a ListBox era limitada a strings, já no VB.NET ela pode conter objetos e a forma como o objeto será representado como string pode ser personalizada. Abraços!
  15. Você pode quebrar a string de três em três caracteres, transformar em inteiro e subtrair do anterior, e caso a diferença seja 2, será o número que falta: seqs = ["596597598600601602", "555557558560564566", "99599699799910001001"] for seq in seqs: antn = int(seq[0:3]) for i in range(int(len(seq)/3)): ini = i*3 fim = ini+3 n = int(seq[ini:fim]) if n-antn==2: print("Número que falta em '", seq, "' -> ", n-1) break antn = n Certo? Abraços!
  16. Graymalkin

    Erro no w7

    Seu programa parece precisar de alguma biblioteca .NET, então não é Python puro. Você pode fornecer o código para podermos ver quais imports você faz e tentar determinar o que falta? Se fosse Python puro você poderia usar o site https://repl.it, que te permite escrever e compilar diretamente no navegador. Abraços!
  17. Dependendo de como o arquivo é baixado, realmente pode aparecer aquela mensagem "(Não está respondendo)". Se o download é feito através de um método que bloqueie o processamento (síncrono), realmente vai acontecer isso. O ideal é usar um método assíncrono para não ter esse tipo de problema. Mas pra ajudar você precisa dar mais detalhes, como o código usado. Abraços!
  18. Você está usando o WebClient para fazer o envio? Se for, você pode usar o método UploadFileAsync() e o evento UploadProgressChanged do mesmo para isso. Você também não especificou se está usando Visual Basic ou C#... Abraços!
  19. Graymalkin

    PRECISO FAZER IGUAL

    Com ASP.NET você pode obter esse valor através de Request.Params[0] e depois reescrevê-lo em qualquer lugar da página. Com JavaScript também deve ser possível fazer isso. Agora, só com HTML acho que seja difícil, já que esta é só uma linguagem de marcação/formatação, não sendo possível manipular valores/objetos com ela. Abraços!
  20. Não seria mais prático usar a Formatação Condicional e sinalizar as células em vermelho (ou algo do tipo) quando estivessem vencidas (ou seja, a data de vencimento é menor que o dia atual)? Assim você não precisaria de macros e ficaria mais claro para ver (afinal de contas a MsgBox só apareceria uma vez e neste caso você só olharia para a planilha e já veria o que está vencido). Mas, se realmente você quer isso em uma MsgBox, poderia fazer o seguinte no Workbook_Open(): Dim i As Integer Dim dtv As Date Dim plan As Worksheet Dim célVencto As String Dim célDocto As String Dim docto As String Dim retorno As String retorno = "" Set plan = Me.Worksheets("Planilha1") i = 1 Do While True célVencto = "A" & Trim(Str(i)) 'A1, A2, A3, ... célDocto = "B" & Trim(Str(i)) 'B1, B2, B3, ... dtv = plan.Range(célVencto).Value 'Pega a data de vencimento (coluna A) If dtv = #12:00:00 AM# Then 'Se a célula estiver vazia Exit Do 'Quebra o loop End If If dtv < Now Then 'Se o vencimento é anterior ao agora (Now) docto = plan.Range(célDocto).Value 'Pega o número do documento (coluna B) retorno = retorno & docto & ", " End If i = i + 1 'Vai para a linha seguinte Loop If Len(retorno) > 0 Then retorno = Left(retorno, Len(retorno) - 2) 'Tira o espaço e a vírgula do final MsgBox "Documentos vencidos: " & retorno Else MsgBox "Não existem documentos vencidos!" End If Isso supondo que a sua Planilha1 tem a data de vencimento na coluna A e o número do documento na coluna B e que começam na linha 1 e não há valores vazios entre as linhas. Já tem séculos que não mexo com VBA (ou VB6), mas foi bom relembrar algumas coisas. Abraços!
  21. Não conheço o Bokeh nem o Flask, mas uma possível solução, já que mencionou que se trata de uma página HTML... talvez seria usar AJAX com JQuery? Se você tiver como determinar essa intensidade máxima e puder incrementar o contador em um arquivo texto qualquer, poderia usar uma chamada AJAX para ler este valor e escrevê-lo no campo, de acordo com uma determinada quantidade de tempo. Abraços!
  22. Exatamente, no caso do Win7 + Warsaw também nunca tive problema. E tenho um servidor que apresenta ocasionalmente o problema e nunca teve o Warsaw/GBP Plugin instalado. Desinstalei o Warsaw em um deles na semana passada e parece que até o momento ele também não parou mais. Pra resumir, tenho as seguintes configurações: Servidor 1 - Win10 - PG 9.5 - Warsaw - Problema frequente Servidor 2 - Win10 - PG 9.5 - Warsaw - Desde a remoção não deu problema Servidor 3 - Win10 - PG 9.4 - Nunca teve Warsaw - Nunca apresentou esse problema Servidor 4 - Win10 - PG 9.5 - Nunca teve Warsaw - Problema ocasionalmente Servidor 5 - Win10 - PG 9.4 - Nunca teve Warsaw - Problema ocasionalmente Servidor 6 - Win10 - PG 9.3 - Tinha Warsaw e nunca deu problema, ao remover e instalar o Warsaw, apresentou problema - Depois de removido novamente, nunca mais apresentou o problema Todos foram atualizados do Win8.1 para o 10, e somente o Servidor 1 foi "reinstalado" pela opção de "Reinicializar o PC". O que intriga são esses que nunca tiveram o Warsaw e ainda assim, ocasionalmente, apresentam o problema. Esta semana vou criar uma Máquina Virtual só pra instalar o Warsaw e permitir que eles usem os bancos e vou remover do Servidor 1 também pra ver se resolve (como aconteceu no 2). Abraços!
  23. O correto do If seria: If batata = "a" Or batata = "b" Then O Or faz a operação lógica OU entre dois elementos, no caso, as duas condições de igualdade. Abraços!
  24. Acredito que você só vá ter outro postgresql.conf se fizer uma atualização (tipo do 9.3 para o 9.4), e a idéia seria descartar o postgresql.conf novo e renomear o antigo para substituir este. Ou talvez o software em questão (Holdem Manager) crie uma cópia do arquivo de configuração, com fins de backup (e neste caso você passaria a usar o arquivo de configuração anterior). Pelo menos no meu caso, não creio que isso se aplique, já que não faço qualquer alteração no postgresql.conf e uso ele do jeito que é instalado. Abraços!
  25. No caso da Caixa, uso só no celular, então pude desinstalar (mas para habilitar no celular você precisa ter no computador pelo menos a primeira vez). Outra alternativa é criar uma máquina virtual (VMWare ou VirtualBox) só pra isso, onde você pode deixar o Warsaw instalado para usar a Caixa, sem afetar seu sistema de uso. Abraços!
×
×
  • Criar Novo...