ARQUIVO COM EXTENSAO PROPRIA

ARCADYUM 01/12/2010 15:34:53
#358567
Pessoal,
Alguém poderia me ajudar a desenvolver um arquivo com extensão própria?
Aguardo notícias.
FEDERHEN 01/12/2010 16:03:53
#358572
Não entendi exatamente o que você quer, mas se for um arquivo ascii com qualquer extensão, pode serguir o exemplo abaixo.
A rotina abaixo cria o arquivo FILE.ABC

intFreeFile = FREEFILE
Open [Ô]FILE.ABC[Ô] For Output As #intFreeFile
Print #intFreeFile , [Ô]DADOS DO ARQUIVO[Ô]
Close #intFreeFile
ARCADYUM 01/12/2010 16:24:42
#358573
FedeHen,
Estou querendo desenvolver um arquivo tipo notepad, porém com outra extensão. Ao invés de ser .txt ser .abc como seu exemplo.
Estive pesquisando na internet e alguém sugeriu que fosse criado um arquivo criptografado. é uma boa idéia também. Porém eu não sei como realizar essa tarefa. Espero ter sido mais claro.
Obrigado pela atenção.
PROGRAMADORVB6 01/12/2010 16:42:52
#358579
Então ao invéz de gravar com extensão .txt grave com outro nome. ex. .dat ( o que você entender)

No Formulario ponha os controles
1 Listbox ( de nome : List1)
5 Butões ( de Nome: Adicionar,Apagar,Gravar,Ler,Sair)

Poste este codigo :

Private Sub Adicionar_Click()
    List1.AddItem Text1.Text
End Sub

Private Sub Apagar_Click()
    Dim Index As Integer
    
    With List1
        Index = .ListIndex
        If Index >= 0 Then
            .RemoveItem Index
            If Index > .ListCount - 1 Then Index = .ListCount - 1
            .ListIndex = Index
        End If
    End With
End Sub
Private Sub Gravar_Click()
    Dim F As Integer
    Dim I As Integer
    
    F = FreeFile
    Open [Ô]database.dat[Ô] For Output As #F
    With List1
        For I = 0 To .ListCount - 1
            Print #F, .List(I)
        Next I
    End With
    Close #F
End Sub

Private Sub Ler_Click()
    Dim F As Integer
    Dim sLine As String
    
    List1.Clear
    F = FreeFile
    Open [Ô]database.dat[Ô] For Input As #F
    While Not EOF(F)
        Line Input #F, sLine
        List1.AddItem sLine
    Wend
    Close #F
End Sub

Private Sub Sair_Click()
    End
End Sub


Neste exemplo a List1 irá ler a informação que se encontra no arquivo com extensão : .dat, á qual você poderá também fazer o gravar, inserir, eliminar etc..
Até+
Programadorvb6
MSMJUDAS 01/12/2010 16:52:52
#358581
Vc pode criar um arquivo com qualquer extensão, mas se vc pretende [Ô]executar[Ô] esse arquivo personalizado vc teria que desenvolver um programa específico para o arquivo.

Seria o [Ô]Abrir com...[Ô] do Windows


Qual será conteúdo desse arquivo que vc quer criar?
ARCADYUM 01/12/2010 18:37:52
#358592
Então,
Seria alguns dados de configuração de aplicativo, entre outros. Enfim gostaria de saber como se faz.
Obrigado pela atenção.
Tópico encerrado , respostas não são mais permitidas
Voltar