Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    8.257

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Graymalkin

  1. Criando arquivo .txt

    em Visual Basic

    Postado

    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!

  4. Criando arquivo .txt

    em Visual Basic

    Postado

    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. BeautifulSoup: extrair informações de múltiplos sites

    em Python

    Postado

    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. Apagar caracteres de um campo

    em PostgreSQL

    Postado

    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!

  8. Erro no código

    em Python

    Postado

    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!

  12. Base Corrompida

    em PostgreSQL

    Postado

    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. criar log txt em visual studio

    em Visual Basic

    Postado

    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. criar log txt em visual studio

    em Visual Basic

    Postado

    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. Sequencia de números

    em Python

    Postado

    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. Erro no w7

    em Python

    Postado

    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. Programa do VB2010 para de responder

    em .NET

    Postado

    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!

  19. PRECISO FAZER IGUAL

    em .NET

    Postado

    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. Visual Basic - Retorno de documentação vencida

    em .NET

    Postado

    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. Atualizar campo em tempo real.

    em Python

    Postado

    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. Problema com Postgres no Windows 10 processo suspenso

    em PostgreSQL

    Postado

    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!

  24. Problema com Postgres no Windows 10 processo suspenso

    em PostgreSQL

    Postado

    14 horas atrás, CRenan disse:

    Eim alguém entende o que esse cara fez? Esse fórum é desse mesmo problema e eles falam que resolveu com isso, pra mim que era renomear o postgresql.conf para postgresql.conf., mais não é isso, acho que é deletar e renomear outro antigo sei la isso que não entendi, mais é algo pra redefinir as configurações padrões do PG.

    Em inglês:

    You all using Win 10 right? If so then I`d suggest to reset PostgreSQL settings to default: you should stop or disable PostgreSQL service, reboot PC then go to C:\PostgreSQL\data and del postgresql.conf and rename the oldest postgresql.conf.*** file to postgresql.conf. After that run the service.

    Traduzido:

    Você todos usando Win 10 certo? Se sim, então I d sugerem para redefinir as configurações do PostgreSQL o padrão: você deve parar ou desativar o serviço de PostgreSQL, reinicie o PC e vá para C:. \ PostgreSQL \ data e del postgresql.conf e renomear o postgresql.conf mais antigo *** arquivo para postgresql.conf. Depois que executar o serviço.

    link:

    http://forums.holdemmanager.com/general-support/534792-problem-postgresql-server-4.html

    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!

     

×
×
  • Criar Novo...