VB.NET Jogo Galo - Abrir ficheiro txt

[MetalFatigue]

às vezes é mesmo por não reparar que não ajudo aqui. É que esta parte do fórum costuma estar um bocado morta. Eu domino mais VB.NET que C#. Posso tentar ver isso logo à noite.

Aliás eu até tenho um jogo feito tipo trivial pursuit, para um projecto escolar, em que os cartões de perguntas e respostas estão em ficheiros de texto (1 ficheiro por área de conhecimento) e dava para criar novos cartões e tudo. Na altura não usei streams, no entanto. Usava as funções input e write de Microsoft.VisualBasic.FileSystem

[JoaoRosa]

às vezes é mesmo por não reparar que não ajudo aqui. É que esta parte do fórum costuma estar um bocado morta. Eu domino mais VB.NET que C#. Posso tentar ver isso logo à noite.

Aliás eu até tenho um jogo feito tipo trivial pursuit, para um projecto escolar, em que os cartões de perguntas e respostas estão em ficheiros de texto (1 ficheiro por área de conhecimento) e dava para criar novos cartões e tudo. Na altura não usei streams, no entanto. Usava as funções input e write de Microsoft.VisualBasic.FileSystem

basicamente o código que lhe dei foi o readline, com um iterador. com a estrutura que ele tem sabe sempre onde as coisas são para colocar!

Offtopic: infelizmente à muita coisa no forum que está morta...

[MetalFatigue]

Ok, não foi ontem à noite porque recebi um mail da blizzard a dar-me um convite ao starcraft 2 Beta!

Mas aqui está:

Código: Seleccionar todos

        Dim matriz(8) As Integer, jogadores(1) As String, pontos(2) As Integer
        Dim lerFicheiroTexto As New System.IO.StreamReader(My.Computer.FileSystem.CurrentDirectory & "\TextFile1.txt")

        Dim i As Integer = 0
        Do While lerFicheiroTexto.Peek > -1
            'Insere os dados da matriz num vector
            If i <= 8 Then
                For i = 0 To 8
                    matriz(i) = lerFicheiroTexto.ReadLine()
                Next
                'Insere os dados dos jogadores num vector
            ElseIf i > 8 And i <= 10 Then
                jogadores(i - 9) = lerFicheiroTexto.ReadLine()
                i = i + 1
                'Insere os dados dos pontos num vector
            Else
                pontos(i - 11) = lerFicheiroTexto.ReadLine()
                i = i + 1
            End If
        Loop

Isto foi feito muito rapidamente por isso pode não estar o mais simples possivel. Funciona que eu testei.

Só se tem de tomar atenção a algo. Estava a dar-me erro no processo svhost quando tentava criar a stream. Isto porque não me lembrei que quando se cria um ficheiro de texto no VS ele não o coloca no bin\debug, que é como quem diz My.Computer.FileSystem.CurrentDirectory, onde será executado o programa. Provavelmente não terás este problema visto que já criaste o ficheiro.

Espero que isto ainda venha a tempo de ajudar.