INSERCAO

JABA 03/10/2006 17:24:36
#175381
Como colocar um programa já compilado("q já exista") dentro de outro programa já compilado?

Ex: Eu tenho um arquivo texto.txt com texto dentro dele, eu gostaria de executar o meu programa quando o arquivo txt for executado.

Será que eu tenho que fazer um LOOP pelo arquivo como binário e depois joga-lo dentro do outro programa?

Deus amou o mundo de tal maneira que deu o seu único filho para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16)
USUARIO.EXCLUIDOS 03/10/2006 17:45:46
#175386 Resposta escolhida
Carinha, dê uma olhada no arquivo: ASSOCIA EXTENSAO A SEU APLICATIVO, ou então veja o artigo (q explica melhor) ASSOCIANDO ARQUIVOS AO SEU PROGRAMA - DETALHADO...
Depois de fazer a associação, verá que ao executar qualquer TXT (no seu caso), ele irá executar seu sistema, daí no sistema é só usar:

Coloque um textbox (Text1) no form, com MultiLine = True (ele receberá o valor do TXT):

Private Sub Form_Load()
Dim Arquivo As String, f As integer
'O caminho do arquivo irá para o Command
Arquivo = Command$
'Verifica se o arquivo foi informado ou existe
If Dir$(Arquivo) = "" Or Arquivo = "" Then
  Text1 = ""
Else
'Abre o arquivo e joga o conteúdo no Text1
  f = FreeFile
  Open Arquivo For Input As #f
    Text1 = Input(LOF(f), f)
  Close #f
End if
End Sub


Dpois para salvar (coloque um commondialog no form com nome dlgSalva):
Private Sub cmdSalva_Click()
Dim f As Integer
dlgSalva.ShowSave
If dlgSalva.FileTitle <> "" Then
'Salva o conteúdo do text1 no arquivo
  f = FreeFile
  Open dlgSalva.FileName For Output As #f
    Print #f, Text1
  Close #f
End If
End Sub


Qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar