Jump to content

[VB6] Ficheiro de texto


w00t!
 Share

Recommended Posts

Isso depende muito da linguagem que usas e também de que tipo de ficheiros é. Suponho que seja .txt mas mesmo assim preciso de saber a versão porque isso em .net é muito simples de fazer.

Fica bem;)😛 ;)

Link to comment
Share on other sites

tens k usar os Input #1 e ou output salvo erro meu...

ou entao usas um compomente que e o commondialog

Ah e tal em vb6 eu usava uma richtextbox, mas pronto. O common dialog só te abre a janelita em que escolhes o file mais nada. Este aliado a uma richtextbox (que acho que tem um evento 'open'(filename) - no qual o filename seria o filename do commondialog) já faria qualquer coisita interessante.

Fiquem bem 😛 :P 😛

Link to comment
Share on other sites

entao e assim..... o commondialog e o ritchtextbox sao compomentes adicionais no vb... tens que os ir adicionar, para os poder usar.. tens k ir ao menu projecto axo eu ... e dpx compoments .. se nao for no menu que eu tou a dizer e procurares por os compoments depois vai aparecer um lista de compomentes que podes que podes adicionar ao vb6... entao nessa lista tens que encontar o Microsoft commondialog qualquer coisa... que nao sei decor... ixto para poderes abrir os files, para os poder ver os textos tens que meter o ritchtextbox axo que o nome do compomente e Microsoft ritchtextbox qualquer ....

Link to comment
Share on other sites

perdido_e_sozinho

Se o objectivo é abrir um ficheiro no editor correcto para o mesmo ex.: txt no notepad, doc no word etc..., tens de usar o ShellExecute.

Este comando permite abrir ficheiros de todos os tipos, assim como páginas web.

Declara esta função:

 Public Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Em seguida basta usares o seguinte código:

ShellExecute hWnd, vbNullString, "Nome do Ficheiro", vbNullString, vbNullString, vbNormalFocus

onde "nome do ficheiro" é a localização do ficheiro que queres abrir.

Se o objectivo é carregar o conteúdo de um ficheiro txt para uma variável ou controlo então o caso muda de figura.

    Dim CtrlFicheiro As Integer
   Dim Linha As String
   CtrlFicheiro = FreeFile

   Open "path to file" For Input As #CtrlFicheiro 
   Do While Not EOF(CtrlFicheiro)

       '== Obtem os dado da linha ==
       Line Input #CtrlFicheiro , Linha

       '== Depois pode-se usar como se entender ==
       MsgBox Linha 

   Loop

   Close #CtrlFicheiro 

ser.gifsartim.gif

Link to comment
Share on other sites

Thx pela ajuda.

Só mais uma duvida.. Eu quero usar o app.patch no nome do ficheiro, fica assim?

ShellExecute hWnd, vbNullString, app.path & "\ficheiro.txt", vbNullString, vbNullString, vbNormalFocus

Não dá erro, mas não abre o ficheiro.. :?

Link to comment
Share on other sites

perdido_e_sozinho

antes de executares a função usa um Msgbox app.path para veres se a pasta corresponde à pasta onde se encontra o ficheiro. Por vezes durante a execução o app.path não corresponde à real localização do ficheiro.

ser.gifsartim.gif

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.