Graymalkin

Já experimentou fazer uma busca no fórum? Tenho quase certeza de que este assunto já rolou por aqui. Abraços, Graymalkin

E, qual é sua dúvida, exatamente? Como criar o vetor? Ou como obter os 15 primeiros números ímpares? EDITADO: Aliás, a primeira pergunta vale também para os seus outros tópicos... Abraços, Graymalkin

Supondo que rs seja o seu ADODB.Recordset, basta fazer: Set documento = Word.Documents.Open(rs.fields("campo").value & ".doc") Certo? Abraços, Graymalkin

Experimente fazer: Var1 = List1.List(List1.ListIndex) Ao invés de: Var1 = List1.ItemData(List1.ListIndex) Abraços, Graymalkin

Tem certeza? Para isso, dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=23608 Para isso, dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=46877 Se o problema for a inserção e a pesquisa no banco de dados, por favor seja mais específico. E, no caso do Word, leia novamente os dois primeiros tópicos que sugeri na outra mensagem, pois a dica que deixei lá só exige um pouquinho de imaginação para ser tudo que você necessita. Abraços, Graymalkin

Dê uma olhadela nestes tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=27589 http://scriptbrasil.com.br/forum/index.php?showtopic=45146 http://scriptbrasil.com.br/forum/index.php?showtopic=46877 http://scriptbrasil.com.br/forum/index.php?showtopic=23608 http://scriptbrasil.com.br/forum/index.php?showtopic=53049 Sempre faça uma busca no fórum antes de postar, ok? Abraços, Graymalkin

Como assim "definir"? FileCopy já é uma rotina padrão do VB. Abraços, Graymalkin

Eu fiz aqui assim: #include <stdio.h> #include <stdlib.h> #include <string.h> int main() { char *vetor[] = { "celular", "ar", "bola" }; char *temp; for (int i=0; i<3; i++) { for (int j=0; j<3; j++) { if (strcmp(vetor[i], vetor[j])==-1) { temp = vetor[i]; vetor[i] = vetor[j]; vetor[j] = temp; } } } for (int i=0; i<3; i++) { printf("%s\n", vetor[i]); } system("pause"); } Certo? Graymalkin

Você quer copiar um arquivo, certo? Então, pense na palavra "arquivo" em inglês, ou seja, "file". E o que você vai fazer com ele é "copiar", certo? Então, pense no "copiar" em inglês, "copy". O que você tem agora? Resposta: FileCopy() Abraços, Graymalkin

Tranforme a data em string (cstr()) e utilize a função replace() para retirar a "/". Ao digitar essas funções lá e abrir o parêntese você verá quais os argumentos que deve preencher. Essa linha escreve esses dados na janela Immediate (uma janelinha de debug que fica lá embaixo). É útil para você poder testar se os dados que você quer estão corretos (e após compilar para o executável isso não tem efeito algum, ou seja, só funciona em tempo de desenvolvimento). Abraços, Graymalkin

Que tal você postar quais são as suas dúvidas, ao invés de postar o exercício? Abraços, Graymalkin

Ah tá, a formatação (que fazia parte do HTML) é perdida nesse caso, né? Não fiz o teste aqui, mas creio que seja esse o problema, certo? Acho que realmente é a melhor alternativa. Qualquer coisa, 'stamos aí. Abraços, Graymalkin

Claro, se quiser disponibilizar na net, é só informar o link aqui (assim todo mundo pode ajudar). Ou, envie para o meu e-mail: wap@openlink.com.br Abraços, Graymalkin

Mas é exatamente isso que você pede ao fazer: TBclientes.Find "Codigo= '" & Val(TxtCodigo.Text) & "'", adSearchForward adSearchForward = "Search", procurar e "Forward", para frente, ou seja, "procurar para frente". Abraços, Graymalkin

Tem certeza que é de um hash? Não seria de uma árvore binária (binary tree)? Ou de uma AST (abstract syntax tree)? De qualquer forma, acho que você deve pesquisar mais sobre o assunto para determinada exatamente do que você precisará. Abraços, Graymalkin

Sim, é isso aí mesmo. Só o tamanho que deve ser declarado como Long ao invés de Integer. Segue o código que testei aqui: Dim varNome As String Dim varTamanho As Long Dim varData As Date varNome = App.Path & "\project1.exe" varTamanho = FileLen(varNome) varData = FileDateTime(varNome) Debug.Print varNome, varTamanho, varData Abraços, Graymalkin

No campo "Posts de..." você lembra de colocar "Qualquer data"? Por padrão, vem "30 dias atrás e...", mas assim raramente você vai encontrar alguma coisa (é improvável que alguém tenha falado de algo que você quer nos últimos 30 dias, mas não impossível). Quantas as palavras pesquisadas, eu procurei "registry" e "regread", eu acho. Abraços, Graymalkin

Realmente, não tem um método SaveAs no OWC. E, pensando aqui com meus botões, creio que o Web de Office Web Components, logicamente, deve ter uma razão de ser (ou seja, o OWC só deve gravar formatos que são utilizados na web). De qualquer forma, o método Export suporta um terceiro parâmetro, no qual você pode especificar que só deve ser gravado um arquivo XML (e não um HTML+XML). Veja o que fiz: Dim arq As String = "c:\teste2.xls" Dim x As New OWC11.Spreadsheet() x.Range("A1").Value = 2 x.Range("A2").Value = 3245 x.Export(arq, OWC11.SheetExportActionEnum.ssExportActionNone, OWC11.SheetExportFormat.ssExportXMLSpreadsheet) 'Leitura do arquivo gravado acima Dim xtr As New Xml.XmlTextReader("c:\teste2.xls") xtr.WhitespaceHandling = Xml.WhitespaceHandling.None Do Debug.WriteLine(xtr.Name & " = " & xtr.Value) Loop While xtr.Read() Repare no SheetExportFormat.ssExportXMLSpreadsheet. É ele que define que deverá ser salvo um arquivo só com XML. E nó código do XmlTextReader eu faço ele ler o XML dado por dado. Seria muito melhor utilizar o XMLDocument ao invés do XmlTextReader, pois dá pra fazer uma seleção dos dados do XML que devem ser retornados (com o método SelectNodes). O problema é que esse método requer uma string de busca na linguagem XPath (e eu não sei nada de XPath... ). De qualquer forma, acho que já é um começo. Ah propósito, tentei abrir esse arquivo, que agora é realmente só XML, com um OleDbConnection, mas também não funciona. Abraços, Graymalkin

O que está escrito na linha indicada pelo erro? Abraços, Graymalkin

Calma brother. O William só estava te dando uma dica sobre como manter o fórum mais organizado. Esse é o papel de um moderador. Quanto a não existir tópicos sobre o assunto, dê uma olhada nestes: http://scriptbrasil.com.br/forum/index.php?showtopic=9452 http://scriptbrasil.com.br/forum/index.php?showtopic=46416 http://scriptbrasil.com.br/forum/index.php?showtopic=47605 http://scriptbrasil.com.br/forum/index.php?showtopic=25412 http://scriptbrasil.com.br/forum/index.php?showtopic=35631 Certo? Graymalkin

O nome já vai ser o próprio caminho do arquivo, não? Para o tamanho você pode usar a função FileLen() e para a data você pode usar FileDateTime(). Abraços, Graymalkin

Assim: shell "calc" Abraços, Graymalkin

Mas ocorre algum erro? Os IPs estão corretos? Abraços, Graymalkin

Nabvchodhonozohr, Você fez bem em desconfiar do tamanho do arquivo. Decidi abrir o arquivo que baixei (pelo edit no prompt) e surpresa! Ele é um arquivo XML e não um arquivo do Excel mesmo. Todavia, o Excel abre ele normalmente, por isso a gente nem se liga nisso. Experimente abrir ele aí no Bloco de Notas e você verá. Acredito que ao invés de utilizar o método Export de objExcel.ActiveSheet você deveria procurar por um método chamado SaveAs. Pelo menos é assim que eu gravo um arquivo do Excel (de verdade, não um XML) utilizando automação. Abraços, Graymalkin

Isso que você testa aí são páginas ASP.NET? Aquelas com a extensão .aspx? Se for, acho que basta copiar esses arquivos e seus respectivos binários (que ficam na pasta bin) para a pasta principal do seu site. Abraços, Graymalkin