• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

jluis

Manipular ficheiros de texto

3 mensagens neste tópico

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora