Selecionar Arquivos

[Guest reginaldo swerts]

preciso fazer um esquema de sorteio mas correto uma seleção de arquivos....

Bom em cada arquivo tera na terceira linha um numero que varia de arquivo para arquivo ficara ente 20 e 1

Todos que tiver entre 20 e 10 o nome dos arquivos vai para uma listbox

Já organizando sempre do maior para o menor

Todos que tiver entre 9 e 1 o nome desses arquivos vão para outra listbox

Então seria uma especie de sorteio mas quem define o sorteio seria eu ous seja pelo numero que tem dentro do arquivo

Como fazer isso

alguém pode me ajudar?

[Graymalkin]

Bem, você deve saber que isso não sera feito de uma vez só. Portanto, qual é a sua dúvida? O que você não conseguiu fazer?

Abraços,

Graymalkin

[Guest reginaldo swerts]

Claro

a minha duvida esta em tudo

Teria que cliar um comando para fazer a leitura pela terceira linha

Como fazer?

depois eu acho teria que passar para For next

para fazer a selecão entre 20 <= 10 e colocar somente o nome (sem a extensão) do arquivo no listbox

Eu acho que seria isso, mas como fazer tudo isso?

[Graymalkin]

Agora sim. Vamos lá: para abrir um arquivo você usa a instrução Open, e para ler uma linha usa a instrução Input. Segue um exemplo que lê a terceira linha de um arquivo:

n=freefile() 'essa função retorna um número de arquivo livre
open "c:\pasta\arquivo.txt" for input as #n 'abre o arquivo para leitura
input #n, linha 'lê a primeira linha e colocar o conteúdo da variável "linha"
input #n, linha 'lê a segunda linha e colocar o conteúdo da variável "linha"
input #n, linha 'lê a terceira linha e colocar o conteúdo da variável "linha"
close #n 'fecha o arquivo
msgbox "A terceira linha é: " & linha

No caso, é exatamente isso que você falou sobre usar um For...Next para percorrer a lista de arquivos e usar o código acima dentro desse loop para verificar o número, daí usaria-se um if para decidir se o nome do arquivo deve ir para uma ou outra listbox.

Você não detalhou sobre o que é a sua lista de arquivos ou se você já conseguiu fazê-la. Se for o caso de não ter conseguido também, dê uma pesquisada sobre vetores e sobre a função Dir().

Abraços,

Graymalkin

[William Rodrigues]

É isso æ

E se precisar....é só falar

Abraços,

William Rodrigues