Cercare stringa in VB6

lunedì 26 marzo 2007 - 08.27

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

elf Profilo | Newbie

8 messaggi | Data Invio: lun 26 mar 2007 - 08:27

Ciao a tutti,

Ho alcune stringhe che contengono i seguenti testi:

TRANSISTOR DPAK MJD42C PNP SMD ;
SENSORE TEMPERATURA LM50CIM3 SOT-23 SMD ;
INTEGRATO ST62T30BM6 SMD SO28 ;
BC846 Transistor NPN SOT-23 ;

Di cercare la stringhe ne file (Bom) che contengono .
BC846 Transistor NPN SOT-23 e copiare il suo codice.

ho provato con il seguente pattern:

f UCase$(Descrizione_Bom(i)) <> "" Then
MyCheck = "Descrizione_Bom(i)" Like "Descrizione_Text1(n)"
Do Until MyCheck = True
'Codice_Bom(i) = ""
ma il metodo ma che tutti i codice sono nulli.

erongis Profilo | Junior Member

137 messaggi | Data Invio: lun 26 mar 2007 - 23:29

>Ciao a tutti,
>
>Ho alcune stringhe che contengono i seguenti testi:
>
>TRANSISTOR DPAK MJD42C PNP SMD ;
>SENSORE TEMPERATURA LM50CIM3 SOT-23 SMD ;
>INTEGRATO ST62T30BM6 SMD SO28 ;
>BC846 Transistor NPN SOT-23 ;
>
>
>Di cercare la stringhe ne file (Bom) che contengono .
>BC846 Transistor NPN SOT-23 e copiare il suo codice.
>
>ho provato con il seguente pattern:
>
>f UCase$(Descrizione_Bom(i)) <> "" Then
>MyCheck = "Descrizione_Bom(i)" Like "Descrizione_Text1(n)"
> Do Until MyCheck = True
> 'Codice_Bom(i) = ""
>ma il metodo ma che tutti i codice sono nulli.
>

Seconde me dovresti usare la funzione INSTR(stringa1,stringa2). Gli passi la stringa che contiene il testo da trovare, poi gli passi il testo da trovare, e se c'è, ti restituisce la posizione del carattere in cui si inizia il testo trovato.
Esempio:

if INSTR(Descrizione_Bom(i),Descrizione_Text1(n)) <> 0 then
trovato
else
NON trovato
endif

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !