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

Lod

Erro no registo quano estou a preencher o ficheiro

2 mensagens neste tópico

Estou com um erro no registo quando estou a por daods.

Public Class form2
    Structure albuns
        Dim titulo As String
        Dim nrfaixas As String
    End Structure
    Structure codigo
        Dim codalb As String
    End Structure
    Dim codig As codigo
    Dim album As albuns
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblnrfaixas.Click

    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        Dim pos As Integer = 2
        album.titulo = Me.txttitalbum.Text
        album.nrfaixas = Me.txtnrfaixas.Text
        FileOpen(1, "C:\Users\Rafael Santos\Desktop\Desktop\Rafael\programinhas\gestmedia\gestmedia\bin\Debug\albuns.txt", OpenMode.Random, OpenAccess.Write, , Len(album))
        FilePut(1, album.titulo, pos) 'AQUI que me aparece sempre o erro, diz o seguinte "Comprimento de registo incorrecto.", penso que seja por causa dos espaços na string
        pos = pos + 1
        FilePut(1, album.nrfaixas, pos)
        FileClose(1)
    End Sub

    Private Sub Btnvoltar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvoltar.Click
        Close()
    End Sub

    Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim codigoalbum, apont As Integer
        If My.Computer.FileSystem.FileExists("C:\Users\Rafael Santos\Desktop\Desktop\Rafael\programinhas\gestmedia\gestmedia\bin\Debug\codalbum.txt") Then
            FileOpen(2, "C:\Users\Rafael Santos\Desktop\Desktop\Rafael\programinhas\gestmedia\gestmedia\bin\Debug\codalbum.txt", OpenMode.Random, OpenAccess.ReadWrite, , 5)
            While Not EOF(2)
                apont = apont + 1
                FileGet(2, codig.codalb, apont)
                codigoalbum = codig.codalb
            End While
            codigoalbum = codigoalbum + 1
            codig.codalb = codigoalbum
            FilePut(2, codig.codalb, apont + 1)
            txtcodeq.Text = codigoalbum
            apont = 0
            FileClose(2)
        Else
            FileOpen(2, "C:\Users\Rafael Santos\Desktop\Desktop\Rafael\programinhas\gestmedia\gestmedia\bin\Debug\codalbum.txt", OpenMode.Random, OpenAccess.Write, , 5)
            codig.codalb = 1
            FilePut(2, codig.codalb, 1)
            txtcodeq.Text = codig.codalb
            FileClose(2)
        End If
    End Sub
End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Abriu a época de caça? :nono1:

Convém dares indicação de que erro e de onde ele é disparado...

Já viste a extensão desse código?

EDIT: LOL, só agora vi o comment no bloco. Sorry

Desconheço FilePut.

Já consideraste StreamWriters/Readers?

De qualquer maneira, se achas que é por espaços, usa album.titulo.Trim para remover os leading spaces.

Não tenho o VB por aqui, assim por alto, o que faz o FilePut? Para ver se te posso ajudar melhor.

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