• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Lod

[DUVIDA] trabalhar com ficheiros, sem subrepor outro dado

5 mensagens neste tópico

Estou a fazer uma aplicação com o objectivo de gerir equipas e os seus jogadores, comecei rcentemente a trabalhar com ficheiros. Estou a usar um ficheiro que guarda o nome da equipa e o codigo. Até aqui tudo bem mas se desligar o programa, voltar a ligar e inserir uma equipa os dados irão sobrepor os dados da outra equipa. Vou deixar aqui o meu código para me ajudarem.

[Module Module1
    Structure equipas
        Dim nreq As String
        Dim nomeeq As String
    End Structure
    Structure jogadores
        Dim nrj, nomej, nreq As String
    End Structure
    Dim equipa As equipas
    Dim jogadore As jogadores
    Sub menu(ByRef op As Char)

        Console.WriteLine("1-Inserir")
        Console.WriteLine("2-Alterar/Apagar")
        Console.WriteLine("3-Sair")
        Console.WriteLine()
        Console.WriteLine("Escolha uma opção")
        op = Console.ReadLine
    End Sub
    Sub insercao()
        Dim pos As Integer
        FileOpen(1, "C:\Users\Rafael Santos\Desktop\Rafael\programinhas\equipas.txt", OpenMode.Random, OpenAccess.ReadWrite, , 100)
        Console.WriteLine("Insira o número da equipa")
        equipa.nreq = Console.ReadLine
        Console.WriteLine("Insira o nome da equipa")
        equipa.nomeeq = Console.ReadLine
        pos = pos + 1
        FilePut(1, equipa.nreq, pos)
        pos = pos + 1
        FilePut(1, equipa.nomeeq, pos)
        FileClose(1)
    End Sub
    Sub Main()
        Dim op As Char
        menu(op)
        Select Case op
            Case "1"
                insercao()
        End Select
    End Sub

End Module/code]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

em vez de OpenMode.Random usa OpenMode.Append, permite adicionar texto ao que já existe no ficheiro.

cumps :)

Edit:

Não tenho a certeza se o Append também cria o ficheiro se este não existir. Caso não crie, tens que criar uma condição que verifique se o ficheiro existe, se existir então usas o Append senão usas o Output.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado pela ajuda soulsick.

Diz-me uma coisa, como faço essa condição para descobrir se o ficheiro já existe?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes verificar através da função My.Computer.FileSystem.FileExists(ficheiro).

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Este programa está a ser muito complicado para mim, só comecei ficheiros À duas semaninhas.

Tenho outra duvida. Não estou a conseguir verificar se a um tal codigo de uma equipa(chave primaria) já existe ou não. O meu professor disse que a melhor maneira era usar  While Not EOF mas não estou a perceber nada do EOF.

Alguém me poderia explicar o que faz basicamente, sff?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora