Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Tente abrir o arquivo de modo exclusivo e se der erro é porque o mesmo está sendo usado: n = FreeFile() Open "d:\teste.xls" For Binary Lock Read As #n Close #n Abraços, Graymalkin
  2. Vamos supor que a sua tabela de opções possui os seguintes campos: Código e Descrição. No DataCombo1 você vai definir as seguintes propriedades com os seguintes valores: BoundColumn -> Código ListField -> Descrição Desta maneira, na combo aparecerão as descrições das opções e quando você fizer... n = DataCombo1.SelectedItem ... você obterá o código correspondente à opção selecionada. Sacou? ;) Graymalkin
  3. Qual a tag que você quer gravar? Se for a ID3V1 (ou 1.1) é bem simples e você mesmo pode fazer. No caso ela consiste dos últimos 128 bytes do arquivo, bastando você formatá-la de acordo com as informações disponíveis nesta página: http://www.id3.org/ID3v1 Neste site (http://www.id3.org/) você também encontrará informações sobre o novo formato (ID3v2), como uma especificação completa dele, e inclusive implementações prontas. Eu mesmo já criei uma biblioteca (XTag2) para escrita de tags baseada nas informações disponíveis neste site. Eu ainda não a disponibilizei para o público em geral porque ela ainda é beta. Com ela você pode gravar, por enquanto, quatro formatos diferentes de tags (XTag, ID3v1, ID3v2 e Vorbis Comments). Se quiser me passa seu e-mail que eu te envio ela e um pequeno exemplo de utilização: wap@openlink.com.br Abraços, Graymalkin
  4. Graymalkin

    Ocultar Arquivo

    Posso estar enganado, mas sinto um toque de ironia na pergunta... Graymalkin
  5. Sim, para o Access 2003 você precisa usar o Jet 4.0 e não o 3.51 (que era para o Access 97). Abraços, Graymalkin
  6. Sim, eu e um amigo uma vez fizemos alguns "estudos" em cima dos resultados anteriores da LotoFácil a fim de verificar se existia algum tipo de padrão. Certa vez fizemos 50 jogos com bases nos "estudos" e ganhamos só R$ 10,00 (ou ainda, perdemos R$ 40,00... :(). Mas, então, você quer usar 25 números (ao invés de 6) tomados 15 a 15 (ao invés de 2 a 2)? E para quê exatamente serve aquela matriz indicando a quantidade de valores comuns entre os dois eixos? Abraços, Graymalkin
  7. O código está tal qual você mostrou no seu primeiro post? Porque se você estiver declarando o objeto Excel.Application dentro de uma rotina, ao final desta o objeto será destruído. O ideal é mesmo do jeito que você fez (declarando o objeto na seção General Declarations). Abraços, Graymalkin
  8. Bom, fiz agora a versão para VB: Dim v As Integer = 6 Dim x, y, tem As Integer Dim m1 As New ArrayList() Dim m2 As New ArrayList() Dim e1(), e2() As Integer Dim linha As ArrayList Dim matriz As ArrayList For x = 1 To v For y = x + 1 To v m1.Add(New Integer() {x, y}) Next Next m2 = m1.Clone() matriz = New ArrayList() For Each e1 In m1 linha = New ArrayList() For Each e2 In m2 tem = 0 If Array.IndexOf(e2, e1(0)) >= 0 Then tem += 1 End If If Array.IndexOf(e2, e1(1)) >= 0 Then tem += 1 End If linha.Add(tem) Next matriz.Add(linha) Next For Each linha In matriz For Each valor As Integer In linha Debug.Write(valor.ToString() & ", ") Next Debug.WriteLine("") Next Não ficou tão elegante e nem tão rápida quanto a versão em Python, mas deve dar para dar uma melhorada (pelo menos na performance). Agora, ao invés de 15 pares você quer gerar 3.268.760 pares? Ou você vai usar 3.268.760 no lugar de 6 valores? Abraços, Graymalkin
  9. Graymalkin

    Mudar A Fonte

    http://scriptbrasil.com.br/forum/index.php?showtopic=68787 Você se refere a este tópico? Abraços, Graymalkin
  10. De qualquer maneira, este pequenino programa em Python faz a tal matriz: v = 6 m1 = [[x,y] for x in range(1, v+1) for y in range(x+1, v+1)] m2 = m1[:] matriz = [] for e1 in m1: linha = [] for e2 in m2: tem = 0 if e1[0] in e2: tem += 1 if e1[1] in e2: tem += 1 linha.append(tem) matriz.append(linha) for i, linha in enumerate(matriz): print i+1, linha Vou tentar fazer uma versão em VB dele. Abraços, Graymalkin
  11. Seu arquivo já está lá: http://www.gs.kitbr.com/stuff/Argentino.zip Agora, por que você não postou em .NET se você está utilizando o VB 2005? Abraços, Graymalkin
  12. Teste se a linha não está vazia: if not (linha.Trim()="") then ... Abraços, Graymalkin
  13. Dê uma procurada sobre as funções FindWindow e SendMessage e talvez você encontre algo que lhe possa ser útil (experimente procurar aqui no fórum mesmo ou no Google). Abraços, Graymalkin
  14. Passa o arquivo para mim que eu disponibilizo no meu site e coloco o link aqui: wap@openlink.com.br Agora, gerar as matrizes não é problema, pelo menos não em Python: v = 6 m1 = [[x,y] for x in range(1, v+1) for y in range(x+1, v+1)] m2 = m1[:] Só não entendi o que você quer fazer depois de gerar as matrizes. Abraços, Graymalkin
  15. Este código parece ser para versões antigas do Word. Dê uma procurada por "Word.Application" aqui mesmo no fórum e você encontrará códigos de exemplo mais atuais. Abraços, Graymalkin
  16. Já tentou fazer... xl.Visible = True ... ? ;) Abraços, Graymalkin
  17. Graymalkin

    Printf

    Imprima linha por linha, ou seja, todas as colunas da primeira linha, depois todas as colunas da segunda linha, e assim por diante. Acho que o problema no seu código é que você usa knotmax em ambos os fors, sendo que, como você mesmo disse, nem sempre a matriz é quadrada (portanto o limite em ambos os fors podem ser diferentes). Abraços, Graymalkin
  18. Graymalkin

    Ocultar Arquivo

    Assim: SetAttr "c:\teste.txt", vbHidden Certo? ;) Graymalkin
  19. Amigo, isso realmente tem haver com Python? Abraços, Graymalkin
  20. Graymalkin

    Inicializar Variaveis

    Faça assim: char str[5] = "K"; E observe as aspas duplas (e não simples, que denotam apenas um caracter). Abraços, Graymalkin
  21. Graymalkin

    Duas Dúvidas

    Acho que você poderia fazer assim: on error resume next err.clear() set obj = createobject("teste") if err.number=0 then 'envia com este else 'tenta outro err.clear() set obj = createobject("teste2") if err.number=0 then 'envia com este else 'tenta outro '... end if end if on error goto 0 Onde "teste" e "teste2" seriam as classes dos objetos (CDonts, Aspemail, etc.). Abraços, Graymalkin
  22. Dê uma olhada no sIFR, acho que ele pode te ajudar no caso: http://www.mikeindustries.com/sifr/ Abraços, Graymalkin
  23. Mas, InStr() também serve para palavras inteiras. Abraços, Graymalkin
  24. Não deveria ser... sBd = sBd & "<font face=arial size=2>Nome .: " & xnam & "<br>" sBd = sBd & "<font face=arial size=2>Empresa .: " & xemp & "<br>" sBd = sBd & "<font face=arial size=2>Telefone .: " & xtel & "<br>" if xqcr2 <> "" and xpgr <> "" then sBd = sBd & "<font face=arial size=2>Quantidade .: " & xpcr2 & "<br>" sBd = sBd & "<font face=arial size=2>Programa .: " & xpgr2 & "<br>" end if ..., não? ;) Abraços, Graymalkin
  25. Graymalkin

    Sistema De Cheque

    Como é feita essa impressão? Via navegador? Porque se você estivesse jogando os dados diretamente na porta da impressora (através da instrução Open) você não teria esse problema (só que acredito que isso não seja possível com ASP/VBScript; eu já fiz isso com VB). Abraços, Graymalkin
×
×
  • Criar Novo...