1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[vb6] Estrutura e ficheiros...

Discussão em 'Programação' iniciada por MarcosFonseca, 8 de Janeiro de 2007. (Respostas: 4; Visualizações: 1493)

  1. MarcosFonseca

    MarcosFonseca Power Member

    Boas pessoal...
    Tenho umas duvidas a vb6..espero que me consigam responder...
    1-Sei que nao é a melhor maneira de guardar, mas eu gostava que me indicassem uma maneira de gravar num array uma estrutura...tipo:

    guarda(contador).Nome = txtNome.Text
    guarda(contador).morada = txtMorada.Text
    guarda(contador).telefone = txtTelefone.Text
    guarda(contador).profissao = txtProfissao.Text
    guarda(contador).comentario = txtComentario.Text
    guarda(contador).idade = txtIdade.Text
    Se nao perceberem digam que espico melhor...

    2-Como gravar num ficheiro?

    Eu sei que a melhor maneira de guardar estas coisas é base de dados, mas ainda nao aprendi...:P

    cumps
     
  2. daminufe_tig

    daminufe_tig Power Member

    eu acho que tens de usar um ficheiro "append", e do tipo de acesso aleatório ou binário... penso eu, não sei!!
     
  3. Hav0c

    Hav0c Power Member

    Se quiseres gravar num ficheiro de texto usa isto.
    A muito tempo que não uso o vb, mas deve ser algo do género:
    Código:
    Dim YourFile As String
    Dim MyFile As String
    MyFile = "C:\textfile.txt
    YourFile = Whatever.Text
    Open MyFile for Output As #1
    Print #1, YourText
    Close #1
    MsgBox "Ficheiro gravado", vbInformation, "Whatever"
    
    Não tenho a certeza se é assim, mas sei que é algo do género.
     
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Não te preocupes que eu até sei umas coisitas de VB6 mas de Bases de Dados não percebo patavina :)

    Quanto à estrutura em si, para a teres exactamente dessa forma, tens primeiro de declarar a estrutura e depois a array. Mais ou menos isto:

    Código:
    Private Type Infos
        Nome        As String
        Morada      As String
        Telefone    As String
        Profissao   As String
        Comentario  As String
        Idade       As Integer
    End Type
    Dim Guarda(1 To 5) As Infos
    
    Se o número de Guarda() for diferente de (1 a 5), mas invariável (sempre o mesmo número), mudas para o limite. Se for variável (ora num dia há 4, ora noutro 8), usa o ReDim.

    Para gravar num ficheiro, podes pegar no que o Hav0c disse (se bem que, se utilizares tantas variáveis, podes usar uma "filecode = FreeFile" e usá-lo, em vez do hard-coded "#1"), ou podes (caso tenhas bons conhecimentos de inglês) verificar este tutorial que está noutro fórum. Altamente recomendado, na minha opinião :)

    Espero ter ajudado :)

    Cumprimentos [[[[[[]]]]]]]
    angelofwisdom
     
  5. _Neo__

    _Neo__ Power Member

    type teste
    nome as string * 50 '50 caracteres
    idade as integer
    end type

    public tipo as teste

    private sub save
    dim ffile as long

    ffile=freefile

    open "c:\teste.dat" for random as ffile len=len(tipo)
    put ffile,1,tipo ' nao tenho a certeza da ordem da coisa q aqui nao tenho vb
    close ffile
    end sub

    edit:
    na linha do put podes escolher a posição no ficheiro onde guardar
    para ler dados usa:
    get ffile,1,tipo ' 1 é a posição no ficheiro

    mais uma vez aqui nao tenho vb por isso nao pude testar mas deve estar certo
     
    Última edição: 9 de Janeiro de 2007

Partilhar esta Página