Perchè nonostante la verifica avvenga correttamente mi scrive ugualmente il risultato?

[lotto_tom75]

Con questo code sottostante vorrei evitare di scrivere risultati doppioni o di compiere azioni ripetitive e inutili per risultati uguali trovati durante l'elaborazione... scrivendoli, in un file solo e soltanto se, non sono stati già precedentemente scritti nello stesso...

dim filereport
filereport = ".\filereport.txt"

contarighe = 0

If nRitMax - nRit = 0 Then
   qdiff0 = qdiff0 + 1
   Stringarisultato = "ru sep + " & StringaNumeri(aRuote) & "-nu:" & StringaNumeri(acol)
   If FileEsistente(filereport) Then
      Call LeggiRigheFileDiTesto(filereport,aRighe)
   End If


   For w = 0 To UBound(aRighe)
      'Scrivi "r:" & aRighe(w)
      contarighe = contarighe + 1
      Call Messaggio("diff0 lettura filereport righe " & contarighe & " valore " & aRighe(w))

      If aRighe(w) = Stringarisultato Then
         Call Messaggio("caso doppione. non faccio nulla!")
      Else
         'scrivo nel file il risultato nuovo...
         Call ScriviFile(filereport,Stringarisultato)
         Call ScriviFile(filereport,contarighe)
         Call CloseFileHandle(filereport)
      End If
   Next
End If

Ma non capisco proprio perchè, nonostante il confronto tra le righe già presenti nel file e stringarisultato ottenuta in run time venga correttamente eseguito, mi scrive ugualmente il risultato "doppione" nel file quando invece non dovrebbe farlo grazie all'else correttamente "letto".

Top scripters help me please!

 

[LuigiB]

cioè tu leggi da un file che contiene doppioni , testi se c'è un doppione e poi riscrivi nello stesso file ....cos se il doppione magari non 'cera ce lo metti tu nuovo nuovo ...
piu che top scripter ti servirebbe un medico

 

[lotto_tom75]

cioè tu leggi da un file che contiene doppioni , testi se c'è un doppione e poi riscrivi nello stesso file ....cos se il doppione magari non 'cera ce lo metti tu nuovo nuovo ...
piu che top scripter ti servirebbe un medico

Si in effetti mi sono accorto scrivendo il risultato in colori diversi... che questo sistema non funzia perchè leggendo il file trova sempre una riga non uguale al risultato in run time e di conseguenza mi scrive sempre le stesse cose...

Solo che ricorrendo ai vettori..., con i quali troverei il caso doppione abbastanza facilmente, dovendo conservare le varie condizioni teoricamente ottimali riscontrate arrivo presto ad esaurirne lo spazio...

Altre soluzioni Master? Poi cerco un medico bravo

 

[lotto_tom75]

Si in effetti mi sono accorto scrivendo il risultato in colori diversi... che questo sistema non funzia perchè leggendo il file trova sempre una riga non uguale al risultato in run time e di conseguenza mi scrive sempre le stesse cose...

Solo che ricorrendo ai vettori..., con i quali troverei il caso doppione abbastanza facilmente, dovendo conservare le varie condizioni teoricamente ottimali riscontrate arrivo presto ad esaurirne lo spazio...

Altre soluzioni Master? Poi cerco un medico bravo

Maestrooo hai ufficialmente un nuovo super potere!

Anche le tue battute sono illuminanti!!!

Grazie ad esse ci sono riuscito!

If aRighexnorisultatidoppi(w) = Stringarisultato Then
  contaeventualirisultanzemultiple = contaeventualirisultanzemultiple + 1
   If contaeventualirisultanzemultiple > 0 Then
      Scrivi "<font color=blue>r:" & aRighexnorisultatidoppi(w) & " VS " & Stringarisultato & "</font>"
      Call Messaggio("caso doppione. non faccio nulla!")    
   Else
      'scrivo nel file il risultato nuovo...
      Call ScriviFile(filereport,Stringarisultato)
      Call CloseFileHandle(filereport)
   End If
End If

THANKS!!!

 

[LuigiB]

la soluzione è che tra tutti i cut&paste che fai ci fai uscire pure un po di learning ti parlo in inglese come piace pure a te ...e ti passo al maestro Legend !

 

[i legend]

Ragazzi siete uno spasso