Jump to content
jluis

Manipular ficheiros de texto

Recommended Posts

jluis

boas...

eu estou a tirar um curso profissional de informatica de gestao e tou a crirar um programa de gestao de socios so que como so tou no 11 ainda so aprendi a manipular ficheiros de texto e o codigo que estou a utilizar e parecido com o descrito no topico.

o meu problema é se quisemos procurar pelo nome mas em vez de por o nome completo por só algumas letras ou só um dos nomes como havíamos de fazer?

EX:

por na textbox2 (nome)-> albertina                        (enquanto o nome do ficheiro é maria albertina)

ELE RETORNA

Textbox1(numero) -> 1

textbox2(nome) -> maria albertina

Textbox3(localidade) -> alges

cumprs!

Share this post


Link to post
Share on other sites
ribeiro55

Nos testes lógicos, utiliza o .Contains da classe Strings.

Dim STR as String = "zé gringo"

If STR.Contains("rin")=True Then
Msgbox("Encontrei!!")
End If

O que fazer quando encontras algo depende da forma de leitura ao ficheiro que estás a empregar.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
jluis

Nos testes lógicos, utiliza o .Contains da classe Strings.

Dim STR as String = "zé gringo"

If STR.Contains("rin")=True Then
Msgbox("Encontrei!!")
End If

O que fazer quando encontras algo depende da forma de leitura ao ficheiro que estás a empregar.

boas...

resulta...

para quem tiver a utilizar manipulaçao de ficheiros de texto ao charmar a variavel tem de ser assim, pelo menus foi axim que eu fiz

Dim nome As String = tabelasocios.Item(i).nome
               If Val(Txtnumero.Text) = tabelasocios.Item(i).numero Or _
                    nome.Contains(me.txtnome.text) = True Or _ (caso queriam que aquilo veja por o que esta na textbox ou outro)
                    Txtnax.Text = tabelasocios.Item(i).datanax Then
                    'Nome e Localidade com o mesmo i que o número representam a mesma pessoa, logo, preencher as caixas de texto
                    Me.Txtnumero.Text = tabelasocios.Item(i).numero
                    Me.Txtnome.Text = tabelasocios.Item(i).nome
                    (...)
                  End If

obrigado pela ajuda... sozinho nunca mais chegava la...

cumprs!

Share this post


Link to post
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

×
×
  • 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.