Parse di una stringa con parentesi quadre

mercoledì 01 agosto 2012 - 15.26

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

franco.geko Profilo | Junior Member

65 messaggi | Data Invio: mer 1 ago 2012 - 15:26

Ciao a tutti,
avrei la necessità di dividere delle stringhe i cui 'pezzi' sono tra parentesi quadre

Es.
[Primo pezzo di stringa][Secondo pezzo di stringa][Terzo pezzo]....[Nesimo pezzo]

Dovrei ricavare dalla stringa sopra un array di N elementi elementi contenente gli elementi tra quadre
(0) = "Primo pezzo di stringa"
(1) = "Secondo pezzo di stringa"
(3) = "Terzo pezzo"
...
(N-1) = "Nesimo pezzo"

Credo si debbano usare le regex delle quali però sono alquanto a digiuno....
un aiutino? :)

Grazie
Franco
Assaggiata l'acqua, conosciuta la sorgente

AntCiar Profilo | Expert

936 messaggi | Data Invio: mer 1 ago 2012 - 15:57

Ciao.

Potresti fare in questo modo:

Dim tmp As String = "[Primo pezzo di stringa][Secondo pezzo di stringa][Terzo pezzo]"
Dim arList As String() = Split(tmp, "][")

L'unica "pecca" è che nel primo e ultimo elemento dell'array ci sono rispettivamente la parentesi aperta e chiusa.
Se quindi fai una iterazione sull'insieme per valutarne gli elementi, controlla la presenza delle parentesi
Cristian Barca

Vinsent Profilo | Senior Member

268 messaggi | Data Invio: mer 1 ago 2012 - 18:06

>Ciao.
>
>Potresti fare in questo modo:
>
>Dim tmp As String = "[Primo pezzo di stringa][Secondo pezzo di
>stringa][Terzo pezzo]"
>Dim arList As String() = Split(tmp, "][")
>
>L'unica "pecca" è che nel primo e ultimo elemento dell'array
>ci sono rispettivamente la parentesi aperta e chiusa.
>Se quindi fai una iterazione sull'insieme per valutarne gli elementi,
>controlla la presenza delle parentesi
>Cristian Barca

Si può usare Replace, o Remove, sul primo e ultimo item dell' array:

        Dim tmp As String = "[Primo pezzo di stringa][Secondo pezzo di stringa][Terzo pezzo]"
        Dim arList As String() = Split(tmp, "][")
        arList(0) = arList(0).Replace("[", "")
        arList(arList.Count - 1) = arList(arList.Count - 1).Replace("]", "")

ciao

franco.geko Profilo | Junior Member

65 messaggi | Data Invio: ven 3 ago 2012 - 14:34

Grazie a tutti! :)

Ho comunque risolto con le regex

Private Sub ParseText(ByVal Text As String)
        Dim Lines() As String
        Lines = Text.Split(vbCrLf)
        Dim Reg As Regex = New Regex("\[(?<contenuto>[\w\W-[\[\]\n]]*)\]")
        Dim Matches As MatchCollection
 
        For Each s As String In Lines
            Matches = Reg.Matches(s)
            For Each m As Match In Matches
                MsgBox(m.Value)
            Next
        Next
End Sub

Grazie a tutti! ;)

Ciao
Franco
Assaggiata l'acqua, conosciuta la sorgente

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 !