Reginaldo
|
BELO HORIZONTE
BH - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/04/2006 14:54 hs
Estou com uma dúvida. Tenho uma rotina que passa linha por linha do arquivo texto: Open Arquivo For Input As Arq_texto
Do While Not EOF(Arq_texto) .... Loop Como eu continuo o loop caso não satisfaça certa condição? Eu não quero sair do loop. |
|
|
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/04/2006 15:01 hs
dsmn
|
|
|
|
Reginaldo
|
BELO HORIZONTE
BH - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/04/2006 15:14 hs
O comando "exit do" está parando o loop, eu quero que o loop continue até acabar o arquivo. Estou querendo colocar uma condição dentro do "do while ...loop" e caso satisfaça uma condições ele fará uma segunda condição e daí na segunda condição é que eu quero que caso não satisfaça, que vá para o próximo loop, ignorando as linhas restantes dentro do loop e que esteja fora das condições criadas. Obrigado. |
|
|
|
|
|
Postada em 13/04/2006 15:28 hs
Bom, eu não sei a lógica q vc quer fazer... basta apenas continuar lendo o arquivo... Mas qual é exatamente o seu problema?? |
|
|
|
Reginaldo
|
BELO HORIZONTE
BH - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/04/2006 15:48 hs
Exemplo: Do While Not EOF(Arq_texto) Line Input #Arq_texto, Linha If CHKmenor.Value = 1 Then
If Val(Mid(Linha, 71, 4)) < Val(TXTinter3.Text) Then
'aqui eu quero continuar o loop sem rodar a rotina abaixo End If
End If if
TBmercadoria.AddNew
TBmercadoria!codigo = Mid(Linha, 1, 35)
TBunimed.Update
End If Loop |
|
|
|
|
|
Postada em 13/04/2006 15:50 hs
AHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH BÃÃÃÃÃÃÃÃOOOO... tenta assim: VotalLoop: Do While Not EOF(Arq_texto) Line Input #Arq_texto, Linha If CHKmenor.Value = 1 Then
If Val(Mid(Linha, 71, 4)) < Val(TXTinter3.Text) Then
'aqui eu quero continuar o loop sem rodar a rotina abaixo GOTO VotalLoop End If
End If if
TBmercadoria.AddNew
TBmercadoria!codigo = Mid(Linha, 1, 35)
TBunimed.Update
End If Loop Acho q é isso q vc quer qq coisa é só postar t+ |
|
|
|
