INPUT
CAROS AMIGOS, COMO Q EU FAÇO USANDO O METODO INPUT DO VB, PARA PROCURAR POR DETERMINADA INFORMACAO LINHA A LINHA?
POR EXEMPLO EU QUERO PROCURAR PELA PALAVRA CLIENTE, SE NAO ENCONTRAR NA PRIMEIRA LINHA ELE PULA PRA SEGUNDA, E DAI SUCESSIVAMENTE ATE ENCONTRAR
POR EXEMPLO EU QUERO PROCURAR PELA PALAVRA CLIENTE, SE NAO ENCONTRAR NA PRIMEIRA LINHA ELE PULA PRA SEGUNDA, E DAI SUCESSIVAMENTE ATE ENCONTRAR
procura nas linhas onde? arquivos? controles?
em arquivos textos
por exemplo, eu queria assim
no seguinte arquivo texto:
cliente = [Ô]joao[Ô]
cliente = [Ô]pedro[Ô]
fornecedor = [Ô]fornecedor x ltda[Ô]
cliente = [Ô]fulano[Ô]
no exemplo acima eu queria procurar linha a linha quem é CLIENTE e mostrar o q tem depois por exemplo
na primeira linha ele iria achar a palavra cliente e eu iria ler JOAO
na segunda linha PEDRO
e dai por diante
por exemplo, eu queria assim
no seguinte arquivo texto:
cliente = [Ô]joao[Ô]
cliente = [Ô]pedro[Ô]
fornecedor = [Ô]fornecedor x ltda[Ô]
cliente = [Ô]fulano[Ô]
no exemplo acima eu queria procurar linha a linha quem é CLIENTE e mostrar o q tem depois por exemplo
na primeira linha ele iria achar a palavra cliente e eu iria ler JOAO
na segunda linha PEDRO
e dai por diante
Segundo o exemplo que vc mesmo deu, eu faria assim:
Dim xVetor As Variant
Dim iARQ As Integer
Dim slinha As String
iARQ = FreeFile
Open Trim(txtArquivo.Text) For Input As iARQ
Line Input #iARQ, slinha
Do While Not EOF(iARQ)
xVetor = Split(slinha, [Ô] [Ô])
if xvetor(0) = [Ô]cliente[Ô] then
[ô]aqui entra o codigo para caso seja cliente
endif
Line Input #iARQ, slinha
loop
Espero ter ajudado
Dim xVetor As Variant
Dim iARQ As Integer
Dim slinha As String
iARQ = FreeFile
Open Trim(txtArquivo.Text) For Input As iARQ
Line Input #iARQ, slinha
Do While Not EOF(iARQ)
xVetor = Split(slinha, [Ô] [Ô])
if xvetor(0) = [Ô]cliente[Ô] then
[ô]aqui entra o codigo para caso seja cliente
endif
Line Input #iARQ, slinha
loop
Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas