Não entendi... vc fez 45 arquivos com as descrições de cada jogo é isso? E pq não conseguiu? O que deu de errado colega?

é, não deu certo pelo menos eu nao consequei eu mandei o projeto pra vc dar uma olha como ficou.

mesmo muito obrigado....

Ok, vou dar uma olhada e depois eu posto.

 

falows!

valeu, estou no aguardo

Colega, enviei um exemplo para o seu e-mail mas com TreeView pois creio que a visualização fica melhor pois tem Itens, subitens e subitens dos subitens.

 

Fiz um form com 1 textbox, 1 TreeView e um botão e o código segue abaixo:

 

'Sendo txtArq o textbox que vc colocará o caminho do arquivo

'O código abaixo serve para a formatação do arquivo texto que vc me passou

 

Dim texto As String
Dim sNo As String
Dim sNoFilho As String, sNoNeto As String
Dim i As Long, j As Long
Private Sub cmdAbrirArq_Click()
Open txtarq For Input As #1

Do While Not EOF(1)
    Line Input #1, texto
    texto = Trim(texto)
    If InStr(1, texto, "[", vbTextCompare) > 0 Then
        sNo = Replace(Replace(texto, "[", ""), "]", "")
        TV.Nodes.Add , , sNo, sNo
    Else
        If texto <> "" Then
            'Nós netos
            If Left(texto, 1) = "-" Then
                sNoNeto = Trim(Right(texto, Len(texto) - 1))
                TV.Nodes.Add sNoFilho & i - 1, tvwChild, sNoNeto & j, sNoNeto
                j = j + 1
            Else 'Nós filhos
                sNoFilho = texto
               
                TV.Nodes.Add sNo, tvwChild, sNoFilho & i, sNoFilho
                i = i + 1
            End If
        End If
    End If
Loop
End Sub

 

falows!

obrigado, deu certo

agora vou fazer com que ele abre so uma descrições de cada jogo au click no icone configuração, vou tentar, obrigado + um vez.