Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - do...loop until
Forum - Visual Basic 6 - do...loop until

Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 13:01
Lunedì, 30/11/2009
sto utilizzando questo ciclo per trovare una stringa in un file .txt
do <istruzione>
loop until <stringa trovata>
Come faccio ad uscire se la stringa da cercare non è presente nel file?

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 14:38
Lunedì, 30/11/2009
per uscire da un ciclo do-loop devi usare: exit do

PM Quote
Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 13:10
Mercoledì, 02/12/2009
ciao giusy_m86 , siccome sto sviluppando un codice simile , posteresti quanto fatto per poterlo confrontare con il mio ?
Grazie

PM Quote
Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 10:49
Venerdì, 04/12/2009
Ops...scusa il ritardo! Dimmi cosa ti serve in particolare e ti aiuiterò!:k:

PM Quote
Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 12:50
Venerdì, 04/12/2009
No problem ! come da post precedente sto facendo qualcosa di simile anche io , vorrei soltanto confrontare il tuo codice con il mio per poterlo analizzare e migliorare (il mio s'intende !)
Ciao.

PM Quote
Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 14:36
Mercoledì, 09/12/2009
Codice sorgente - presumibilmente VB.NET
  1. 'ricerca codice
  2.  Dim codice As String
  3.  Dim linea As String
  4.  Dim linea2 As String
  5.  
  6.     codice = lblXmlTot.Caption
  7.  
  8.  Open ("C:\Documents and Settings\Codici.txt") For Input As #1 'Apriamo il file per un'operazione di input
  9.  
  10.     Do 'Inizio del ciclo
  11.         Line Input #1, linea 'Operazione di lettura file...
  12.         linea2 = linea2 & linea + vbCrLf 'Immagazzinamento, nella variabile linea2, delle stringhe del file
  13.             If EOF(1) = True And InStr(linea2, codice) = False Then   'Operazione che cerca la stringa codice nella variabile linea2
  14.                 lblMode.Caption = "Codice non presente nel file!"
  15.                 Exit Do
  16.             End If
  17.     Loop Until InStr(linea2, codice)  'Il cliclo finisce quando trova il codice
  18.            
  19.     If (InStr(linea2, codice)) Then
  20.         lblMode.Caption = "Codice trovato!" + codice + vbCrLf
  21.         linea = Right(linea, Len(linea) - InStr(linea, ";"))
  22.         lblMode.Caption = vbCrLf + lblMode.Caption + linea
  23.     End If
  24.            
  25.  Close #1


Fammi sapere cosa ne pensi...Ciao

PM Quote