bom dia...
tem como ler um arquivo, tipo ini ou txt, e jogar num List1

[Jogo-1]
nome do jogo-1
....

[Jogo-2]
nome do jogo-2

....

[Jogo-3]
nome do jogo-3
....

[Jogo-4]
nome do jogo-4
....

........

 

eu estou fazendo assim:

    Open Help_txt For Input As #1
        Do While Not EOF(1)
            Line Input #1, Item$
                frmConfiguracao.List1.AddItem " " + Item$
        Loop
    Close #1
    frmConfiguracao.Show vbModal

mais assim eu tenho que fazer um arquivo pra kd jogos

Do jeito que está aí sim. Vc teria que fazer uma linha diferente das outras e que tenha um padrão para diferenciar os dados de Jogo-1 para Jogo-2 e assim por diante. Se vc gravar num ini vai ficar assim também. Veja nesta dica como gravar e ler o arquivo ini.

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2501&Classificacao=

 

Qualquer dúvida é só postar

 

at+

pra ler não deu certo

deu erro nesta linha

 

ReadINI("C:gamehousesistema.txt", "acao_7_wonders", "teste")

des..

deu certo que tinha que fazer assim

Pra gravar tenta assim:

 

WriteINI "c:     este.ini", "7 Wonders", "Sistema Operacional", "Windows 98/ME/2000/XP"
WriteINI "c:     este.ini", "7 Wonders", "CPU Frequency", "800MHz or faster Processor"
WriteINI "c:     este.ini", "7 Wonders", "RAM Memory", "128MB RAM"
WriteINI "c:     este.ini", "7 Wonders", "DirectX", "DirectX 8.0 or better"
WriteINI "c:     este.ini", "7 Wonders", "Video Card", "Direct3D 8 compatible Video Card"""
WriteINI "c:     este.ini", "7 Wonders", "Sound", "DirectSound compatible Sound Card"

 

WriteINI "c:     este.ini", "Alice Greenfingers", "Sistema Operacional", "Windows 2000/XP"
WriteINI "c:     este.ini", "Alice Greenfingers", "CPU Frequency", "300MHz or faster Processor"

WriteINI "c:     este.ini", "Alice Greenfingers", "RAM Memory", "64MB RAM"
WriteINI "c:     este.ini", "Alice Greenfingers", "DirectX", "DirectX 3.0 or better"

 

 

Para fazer isso gravando num txt vc tem q diferenciar as linhas para saber quando começa um e quando termina outro: Exemplo

 

Open Help_txt For Input As #1
        Do While Not EOF(1)
            Line Input #1, Item$

                IF InStr(1,Item,"jogo1",vbTextCompare) <> 0 Then

                    'NOVO JOGO

                ELSE

                    frmConfiguracao.List1.AddItem " " + Item$
                ENDIF
        Loop
    Close #1

Eu coloquei para procurar o "jogo1" mas para ficar melhor vc pode colocar uma matriz com o nome dos jogos e ficaria assim:

 

Dim Colecao as Collection

 

Set Colecao = New Collection

 

Colecao.Add = "Jogo1"

ghost_jpp muito obrigado, pelas dicas mais não consequi, eu vez do meu jeito eu vez

kd jogo um aquivos nome_do_jogo.txt, são apenas 45 jogo o melhor são 45 arquivos em txt