Visual Basic 6 - altro probl nella ricerca di un testo

Forum - Visual Basic 6 - altro probl nella ricerca di un testo

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:38
Martedì, 03/06/2008

Ciao!
Questo è un problema ricollegabile a quello di un post sempre fatto da me e sempre sullo stesso argomento...Allora:

Codice sorgente - presumibilmente VB.NET

dim Ricerca as Integer
dim C as integer
 
Private Sub Timer1_Timer()
Ricerca = InStr(Ricerca, Text1.Text, Date)
If Ricerca Then
Text1.SelStart = (Ricerca - 1)
Text1.SelLength = (InStr(Ricerca, Text1.Text, "~") - Ricerca) + 32
If verifica = True Then
C = Ricerca
S = 4
ElseIf verifica = False Then
C = 1
S = 0
End If
 
If InStr(C, Text1.SelText, "CMD") > 0 Then
Text1.SelStart = (Ricerca + InStr(C, Text1.SelText, "CMD") + 2)
Text1.SelLength = (InStr(C, Text1.Text, vbCrLf)) - S
msgbox text1.seltext
If Len(Text1.SelText) = 1 Then '<--
'Boh
End If
'[Altro codice]
else
verifica = true
'[Altro codice]
end if
Private Sub Form_Load()
verifica = false
end Sub

Allora, il codice forse è poco chiaro quindi ora spiegherò cosa deve fare. Prima di tutto il progr seleziona nella text1 un pezzo di testo per volta e si interrompe a ogni "~". Una volta selezionato vede se nel testo selezionato è presente la parola
"CMD" se si seleziona il comando che viene dopo e lo esegue con la shell altrimenti se non trova CMD esegue altro codice che non ci interessa...

Lo scopo è che se trova CMD il programma deve eseguire il comando dopo (ke sarà un comando dos)
esempio:
CMD regedit.exe

Il progr come già detto seleziona il testo a "Blocchi". se CMD rientra nel primo "blocco" tutto OK. Se si esamina il primo blocco si esegue l'altro codice perchè non trovato CMD e poi si esamina il 2° blocco con un comando quindi con presente CMD il progr lo esegue e tutto OK...
Il problema allora è che se il progr. a differenza di esguire direttamente il CMD al primo blocco, lo esegue al Secondo Non funziona + ma il valore text1.seltext non da + regedit.exe ma solo l'iniziale ("r")

So di aver fatto un macello con la spiegazione ma spero che abbiate capito...

quindi Come posso rimediare?

p.s. Ho provato a mettere un if ma dentro nn saprei che metterci...

Ultima modifica effettuata da GrG il 03/06/2008 alle 15:39

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 16:08
Martedì, 03/06/2008

Non ho capito nulla ...

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:16
Martedì, 03/06/2008

eh...me l'aspettavo una risp del genere, è un pò difficile da spiegare...

Allora:
Facciamo che la text1 contiene:

02/06/2008
Messaggio
~~~~~
02/06/2008
Messaggio2
~~~~~
[...]

Il mio codice (forse in quel pezzo non c'è) controlla la data del giorno poi la cerca nella text1 se la trova seleziona tutto fino a "~"
poi va avanti(andando x "blocchi") e così via...

quindi prima seleziona il primo blocco:

02/06/2008
Messaggio
~~~~~
02/06/2008
Messaggio2
~~~~~

Poi seleziona il secondo e così via...

02/06/2008
Messaggio
~~~~~
02/06/2008
Messaggio2
~~~~~

se non trova nel "Messaggio" CMD esegue una certa operazione che non ci interessa...
ma se c'è CMD seguito da un comando dos come nell'esempio:

02/06/2008
CMD regedit.exe
~~~~~
02/06/2008
Messaggio2
~~~~~

Se trova nel "blocco" selezionato CMD esegue il comando che segue dopo. Però a volte ci sono dei "Difetti". Infatti funziona per metà cioè
se c'è solo:

02/06/2008
CMD regedit.exe
~~~~~
02/06/2008
Messaggio2
~~~~~

cioè se già all'inizio al primo "blocco" trova CMD
lo esegue correttamente.
Se invece:

02/06/2008
Messaggio
~~~~~
02/06/2008
CMD regedit.exe
~~~~~

Seleziona il primo blocco senza trovare CMD esegue l'altra funzione. Poi passa al blocco successivo
dove trova CMD e anche qui funge tutto.

Però magari capita che la data del primo è scaduta e quindi indietro:

01/06/2008
Messaggio
~~~~~
02/06/2008
CMD regedit.exe
~~~~~

Allora il primo blocco non lo considera neanche perchè la data è scaduta(cioè vecchia). Allora passando al secondo che corrisponde alla data del momento trova CMD e cerca di eseguirlo ma dice File not Faund.
Infatti l'errore lo da la shell che cerca di aprire "r". Infatti viene selezionata solo la prima lettera perchè?

p.s. Spero di essermi spiegato meglio...
pp.s. Trovandosi al secondo blocco se metto C = 2 il comando risulta Shell regedit.exe (con l'accapo, ma basta mettere un al SelLength -2)
Quindi dovrei mettere tipo:
C = Blocco corrente

Ultima modifica effettuata da GrG il 03/06/2008 alle 18:23

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:02
Martedì, 03/06/2008

Dopo ore a sbattere la capoccia c'è l'ho fatta