Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Jan 2007
    Messaggi
    48

    [VB.NET] Ricerca di una stringa delimitata

    Ciao a tutti,
    il mio problema è questo:
    ho una textbox contenente del testo in cui devo ricercare tutte le stringhe delimitate da 2 caratteri specificati dall'utente.

    Esempio:

    delimitatore inizio = (
    delimitatore fine = )

    testo = "pippo,(pluto). Ciccio (mario)!."


    risultato:
    pluto
    mario

    Ho provato con alcune espressioni regolari che ho trovato in rete ma non funzionano bene.
    Mi sapreste indicare una soluzione valida?

    Grazie in anticipo per il vostro aiuto.

  2. #2
    Utente di HTML.it
    Registrato dal
    Jan 2007
    Messaggi
    48
    UP!

  3. #3
    Utente di HTML.it
    Registrato dal
    Jan 2007
    Messaggi
    48
    Risolto!!!!!!!!!!!!!!!!!!!!!!
    Avevo tempo da perdere e ho scritto una funzione che fa al caso mio.

    Delimitatore inizio -------> textbox1.text="("
    Delimitatore fine -------> textbox2.text = ")"

    codice:
                Dim TestString As String = "abc(defg). hilmn opqrs (tuv) z."            
                Dim TestArray() As String = Split(TestString, TextBox1.Text)
                Dim LastNonEmpty As Integer = -1
                For i As Integer = 0 To TestArray.Length - 1
                    If TestArray(i) <> TextBox1.Text Then
                        LastNonEmpty += 1
                        TestArray(LastNonEmpty) = TestArray(i)
                    End If
                Next
                ReDim Preserve TestArray(LastNonEmpty)
    
     If TextBox1.Text <> TextBox2.Text Then
                    Dim stringa As String
    
                    For i As Integer = 0 To TestArray.Length - 1
    
                        stringa = TestArray(i)
    
                        If stringa.IndexOf(TextBox2.Text) <> -1 Then
                            TestArray(i) = Left(stringa, stringa.IndexOf(TextBox2.Text))
                        Else
                            TestArray(i) = String.Empty
                        End If
    
                    Next
    End if
    Alla fine TextArray conterrà:
    defg
    tuv

    Fin'ora l'ho testata parecchie volte e funziona.

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.