Graymalkin

Opa, Denis! O primeiro, já que o segundo retornaria a posição da memória (e não o conteúdo dela). O operador & serve para te retornar o endereço de uma variável. Se você quiser o endereço para guardar em uma variável inteira você vai fazer "p = &A". Já se a sua intenção é guardar o endereço de A em um ponteiro então vai ser "*p = &A". E nunca vi outra utilização de & sem ser esta. Hummm... realmente não sei como você poderia fazer isso. Já até fiz isso (passar dados de um programa para outro), mas de uma forma diferente: http://www.gs.kitbr.com/xcomm.html Abraços, Graymalkin

Claro que organiza. Você está usando a cláusula ORDER BY na consulta? Abraços, Graymalkin

Dê uma procurada aqui no fórum porque esse assunto já rolou por aqui. Abraços, Graymalkin

Dê uma olhada na função FileDateTime(). Abraços, Graymalkin

Acho que seria melhor assim: Dim loc As String loc = item.Text n = FreeFile() Open "C:\011029.TXT" For Binary As #n conteúdo = Input(LOF(n), n) Close #n linhas = split(conteúdo, vbcrlf) linhadesejada = "" for each linha in linhas posição = InStr(1, linha, loc) If posição > 0 Then linhadesejada = linha exit for End If next linha if linhadesejada<>"" then msgbox linhadesejada else msgbox "Não achou!" endif O separador de linhas pode ser diferente do vbCrLf, podendo ser somente o vbCr ou somente o vbLf, por isso se não funcionar com o código acima experimente trocar. Quanto ao caso da função Dir(), segue um exemplo simples: pasta = "d:\temp\*.txt" arquivo = Dir(pasta) Do While arquivo <> "" Debug.Print arquivo arquivo = Dir Loop Certo? Graymalkin

Se é texto você tem que formatar a hora para o padrão hh:mm. Faça o teste aí (na janela Immediate): ? "14:00" < "8:00" True ? "14:00" < "08:00" False Mas o ideal mesmo seria um campo do tipo Data/Hora para armazenar esse tipo de dado. Abraços, Graymalkin

Dê uma olhada nestes tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=60307 http://scriptbrasil.com.br/forum/index.php?showtopic=35497 http://scriptbrasil.com.br/forum/index.php?showtopic=27240 http://scriptbrasil.com.br/forum/index.php?showtopic=15849 http://scriptbrasil.com.br/forum/index.php?showtopic=12806 Certo? Graymalkin

O jeito seria bloquear a inserção de novas linhas na DataGrid. Não sei se tem uma propriedade para isso, mas vale dar uma pesquisada a respeito. Mais tarde vou dar uma olhada e te retorno a respeito. Abraços, Graymalkin

Todos os códigos que achei mostram como abrir um determinado arquivo. (C:\arquivo.txt). Como faço para abrir todos os arquivos em uma determinada pasta, tipo um "*.txt"? Utilize a função Dir() para obter todos os nomes de arquivos *.txt de uma determinada pasta e depois faça um loop para abrir cada um deles (com o código que você já tem, que abre apenas um). Exemplos da função Dir() você também encontrará aqui no fórum. Abraços, Graymalkin

Leia o arquivo utilizando as instruções Open e Input (você encontra exemplos aqui mesmo no fórum) e depois separe as linhas com Split() (se for o caso de ler o arquivo por completo ao invés de linha-a-linha) e utilize a funções Left(), Mid() e Right() para obter os campos de acordo com as suas posições iniciais e tamanhos (já que o arquivo está alinhado). Acredito que tudo isso você vá encontrar aqui mesmo no fórum, pesquisando. Abraços, Graymalkin

Tem um asterisco ("*") nela? Se tiver, está certo, porque esta última linha é o meio de adicionar uma nova linha na datagrid. Você tem 15 linhas de verdade, e a 16ª só existe para que você possa adiconar mais uma (depois de preencher algum campo nela é que ela passa a existir). Depois que a 16ª passar a existir, você vai ver que existirá uma 17ª (agora com o asterisco) e assim por diante. Esse é o procedimento normal. Abraços, Graymalkin

Não, porque esse if determina o meu numero de colunas, e não e nas minhas colunas que eu tenho problemas, são nas linhas. Coloquei em um Menu. Tenho, olha só: dt.Columns.Add("0").DefaultValue = String.Empty dt.Columns.Add("1").DefaultValue = String.Empty dt.Columns.Add("2").DefaultValue = String.Empty dt.Columns.Add("3").DefaultValue = String.Empty dt.Columns.Add("4").DefaultValue = String.Empty dt.Columns.Add("5").DefaultValue = String.Empty dt.Columns.Add("6").DefaultValue = String.Empty dt.Columns.Add("7").DefaultValue = String.Empty dt.Columns.Add("8").DefaultValue = String.Empty dt.Columns.Add("9").DefaultValue = String.Empty dt.Columns.Add("A").DefaultValue = String.Empty dt.Columns.Add("B").DefaultValue = String.Empty dt.Columns.Add("C").DefaultValue = String.Empty dt.Columns.Add("D").DefaultValue = String.Empty dt.Columns.Add("E").DefaultValue = String.Empty dt.Columns.Add("F").DefaultValue = String.Empty For i As Integer = 0 To 14 dt.Rows.Add(New Object() {"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""}) Next Nesse for de 0 até 14, eu não tenho 15 linhas? Sim: 0 = 1ª Linha 1 = 2ª Linha 2 = 3ª Linha 3 = 4ª Linha 4 = 5ª Linha 5 = 6ª Linha 6 = 7ª Linha 7 = 8ª Linha 8 = 9ª Linha 9 = 10ª Linha 10 = 11ª Linha 11 = 12ª Linha 12 = 13ª Linha 13 = 14ª Linha 14 = 15ª Linha Note que a última linha é o índice 14. Abraços, Graymalkin

O intervalo compreende os valores que uma variável daquele tipo pode armazenar. Um char pode guardar de 0 a 255 (ou -128 a 127 se for signed), portanto você só vai poder colocar valores desta faixa em uma variável deste tipo. O mesmo vale para os outros tipos. Quanto a de onde vem esse valor, você mesmo já respondeu isso ao dizer que um char ocupa 1 byte e que um int ocupa 2 bytes. A quantidade de bytes, ou seja, o tamanho do tipo é que determina sua capacidade de armazenamento. Abraços, Graymalkin

Em qual evento você colocou isso? Tem certeza de que a linha existe? Abraços, Graymalkin

Acredito que o problema ainda seja o mesmo. O ideal seria você analisar *exatamente* o que você precisa fazer, apagar o código e criar novamente passo-a-passo. Abraços, Graymalkin

O problema do cursor não estar em um registro válido eu já expliquei aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=71844 Quanto a hora não estar em ordem, qual o tipo do campo? Abraços, Graymalkin

Também (note a utilização da vírgula). Abraços, Graymalkin

De fato, "1.500,00" não é um float. Mas "1500.00" seria. Abraços, Graymalkin

Assim: objeto.Font.Style := []; Abraços, Graymalkin

Acredito que aqui não seja o melhor lugar para você tirar dúvidas sobre o VBA do Excel (talvez a sala Microsoft Office seja mais apropriada). De qualquer maneira, como eu estava inspirado, decidi montar uma pequena rotina que faz o que você quer: Sub t() Dim achou As Boolean Dim inserir As Collection Dim lista As New Collection Dim linha As Long linha = 1 Do nome = Range("A" & linha).Value valor = Range("B" & linha).Value linha = linha + 1 Set inserir = Nothing For Each obj In lista If obj(1) = nome Then Set inserir = obj Exit For End If Next obj If inserir Is Nothing Then Set inserir = New Collection lista.Add inserir inserir.Add nome End If inserir.Add valor Loop Until nome = "" Dim planilha As Worksheet Set planilha = Worksheets.Add() linha = 1 For Each obj In lista col = "A" For Each dado In obj planilha.Range(col & linha).Value = dado col = Chr(Asc(col) + 1) Next dado linha = linha + 1 Debug.Print s Next obj End Sub Coloque-a em um módulo na pasta de trabalho e execute-a com a planilha que tem os dados (esta planilha deverá ser a selecionada no momento da execução). Será gerada uma nova planilha, na mesma pasta de trabalho, com os dados do jeito que você quer. Abraços, Graymalkin

Então você não se ligou no que eu disse antes: os índices vão de 0 a 14, ou seja, 15 linhas. Se você quer preencher a 15ª linha você vai utilizar o índice 14 e se você quiser a primeira você vai utilizar o índice 0 (1 é a segunda, 2 é a terceira, e assim por diante). Abraços, Graymalkin

De 0 a 14 são 15 números, então creio que você esteja criando 15 linhas, não? Abraços, Graymalkin

E se você fizer um cast (com o operador as) para um tipo que contenha o estilo de fonte e as cores? Não sei se a idéia é essa, mas foi o que me veio a mente. Abraços, Graymalkin

Sim, creio que sim (não sei se entendi bem qual é a sua dúvida). Abraços, Graymalkin

Os argumentos passados para um programa tem como separador o espaço em branco. Ou seja, o programa vai interpretar que "C:\Minhas" é um parâmetro e que "Musicas\Musica.mp3" é outro parâmetro. Utilizando as aspas duplas estamos dizendo que tudo que está entre elas é apenas *um único* parâmetro (suprimindo a regra de separar pelo espaço em branco). Certo? Graymalkin