Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    Ricerca di una parola in un testo

    Come faccio a fare una funzione che attraverso una inputbox richieda una parola da ricercare in una text box?
    Se la trova la evidenzia con il focus, altrimenti comunica un messaggio all'utente.

    Grazie mille

  2. #2
    Utente bannato
    Registrato dal
    Sep 2003
    Messaggi
    1,012
    codice:
    Dim Parola as String
    Parola = InputBox("Inserire la parola di ricerca:")
    If Parola = "" Then exit sub
    dim pos as integer
    pos = instr(text1,parola,1)
    if pos then
        text1.setfocus
        text1.selstart = pos
        text1.sellenght = len(parola)
    end if

  3. #3
    Mi da tipo non corrispondente su

    pos = InStr(txtFile, Parola, 1)

    Che devo fare???

  4. #4
    Utente bannato
    Registrato dal
    Sep 2003
    Messaggi
    1,012
    Ho sbagliato l'ordine :
    codice:
    Dim Parola as String
    Parola = InputBox("Inserire la parola di ricerca:")
    If Parola = "" Then exit sub
    dim pos as integer
    pos = instr(1,text1,parola)
    if pos then
        text1.setfocus
        text1.selstart = pos
        text1.sellenght = len(parola)
    end if

  5. #5
    ora va meglio, ma non mi evidenzia il primo carattere (es. cerco ciao, mi evidenzia iao)
    GRAZIE

  6. #6
    Ho risolto con txtFile.SelStart = pos - 1.
    GRAZIE TANTE

  7. #7
    Utente bannato
    Registrato dal
    Sep 2003
    Messaggi
    1,012
    Originariamente inviato da ethan_h76
    ora va meglio, ma non mi evidenzia il primo carattere (es. cerco ciao, mi evidenzia iao)
    GRAZIE
    Non avevo testato...

    codice:
    Dim Parola as String
    Parola = InputBox("Inserire la parola di ricerca:")
    If Parola = "" Then exit sub
    dim pos as integer
    pos = instr(text1,parola,1)
    if pos then
        text1.setfocus
        text1.selstart = pos - 1
        text1.sellenght = len(parola)
    end if

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.