Estrazione caratteri da una stringa

Salve,

eccomi di ritorno con una nuova domanda.
Come da titolo vorrei estrarre delle informazioni ben precise da una stringa simile alla seguente:

codice:

---

uuid ( RO)          : f51bf12f-478c-79ed-c7bb-4eddeb8dc01f
    name-label ( RW): computer1
    power-state ( RO): running


uuid ( RO)          : 28fbd099-47e0-4c5e-9cde-c072edbc998c
    name-label ( RW): Control domain on host: server01
    power-state ( RO): running


uuid ( RO)          : 86689d31-3161-148a-9443-2987999228b4
    name-label ( RW): pc-01
    power-state ( RO): halted


uuid ( RO)          : 6d223d11-77d4-9e04-94f4-e0a78abccdd0
    name-label ( RW): Windows-pc
    power-state ( RO): halted


uuid ( RO)          : 127d385c-266f-4903-4827-4e4859c94b5c
    name-label ( RW): linuxpc
    power-state ( RO): halted

---

Vorrei estrarre i nome di pc che compongono la suddetta stringa e cioè:
- computer1
- server01
- pc-01
- Windows-pc
- linuxpc
etc etc
Da considerare che non si conosce la lunghezza di tale stringa, potrebbe contenere anche una ventina di nomi o anche uno solo.
Al momento ho scritto 'sta roba:

codice:

---

Dim comando As String = Nothing 'contiene il risultato di un comando eseguito in un pc Linux
Dim posizione As Integer = Nothing 'contiene la posizione del carattere ricercato
Dim nomepc As String = Nothing 'contiene l'eventuale nome del pc
comando = cmd.Result
posizione = InStr(1, comando, "( RW):")
nomepc = Mid(comando, posizione + 7, 11)
MsgBox(nomepc)

---

Ovviamente non va bene in quanto nella suddetta stringa c'è anche il valore:
name-label ( RW): Control domain on host: server01
Dunque il codice sopra riportato non andrebbe bene in quanto mi restituirebbe "Control dom" e solo il nome del 1°pc.
L'altra cosa a cui avevo pensato è quella di scrivere la stringa in un file di testo e poi elaborarlo al meglio.
La mia domanda è la seguente:
Avete qualche consiglio su come procedere in un modo migliore?

Grazie a tutti

Io abbandonerei l'uso di Mid e InStr in favore dei metodi .NET String.Substring e String.IndexOf organizzandoli così:
1)Trovo l'IndexOf dell'occorrenza di "( RW):";
2)Trovo l'IndexOf dell'occorrenza di " power-state";
3)Estraggo la Substring da [comando] dal primo indice al secondo;
4)Ripeto punto 1, 2 e 3 a partire dall'indice al punto 1 aumentato di 1, n volte;

Dipende dal contenuto effettivo di quella stringa (che non è chiaro nel messaggio, sembra ci siano ritorni a capo in mezzo alla stringa, non si capisce se per l'editor del forum o se la stringa è proprio così) ... Se puoi allega un file e prova con questo

codice:

---

        Dim v() As String = Strings.Split(comando, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

Quote:

---

Originariamente inviato da AntonioG

Dipende dal contenuto effettivo di quella stringa (che non è chiaro nel messaggio, sembra ci siano ritorni a capo in mezzo alla stringa, non si capisce se per l'editor del forum o se la stringa è proprio così) ... Se puoi allega un file e prova con questo

codice:

---

        Dim v() As String = Strings.Split(comando, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

---

Ciao Antonio,

ho provato a riportate il tuo codice, ma ottengo l'errore seguente:

codice:

---

La lunghezza non può essere minore di zero.
Nome parametro: length

---

Riporto il codice, tante le volte mi fosse sfuggito qualche cosa:

codice:

---

      Dim comando_linux As String = cmd.Result

            Dim v() As String = Strings.Split(comando, ":")
            For Each s As String In v
                If s.Contains("power") Then
                    Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
                End If
            Next

---

Grazie mille per l'aiuto.

prova così

codice:

---

For Each s As String In v
 '    If s.Contains("power") Then MessageBox.Show(s)
    If s.Contains("power") Then MessageBox.Show(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
Next

---

a me funziona, se non ti funziona prova la riga commentata e magari prova anche

codice:

---

If s.Contains("power") Then MessageBox.Show(s.Trim.Substring(0, s.IndexOf(vbLf)))

---

Infatti avevo precisato che nel testo non si capiva se c'erano veline o no. A questo punto posta un file di testo reale contenente i dati da esaminare

Quote:

---

Originariamente inviato da AntonioG

.... nel testo non si capiva se c'erano veline o no .....

---

Devo fare un corso di aggiornamento : sono rimasto a quando dal testo si poteva estrarre solo il carattere ... ma non quello della velina ! :D :)

Maledetto correttore... newline :) :)

Quote:

---

Originariamente inviato da AntonioG

Infatti avevo precisato che nel testo non si capiva se c'erano veline o no. A questo punto posta un file di testo reale contenente i dati da esaminare

---

Ho provato a inserire il file seguendo la guida:

FAQ MasterDrive.it

ma poi mi sono accorto che non ho i permessi per allegare i file:

Quote:

---

Permessi di invio

Puoi inserire discussioni
Puoi inserire repliche
Non puoi inserire allegati
Puoi modificare i tuoi messaggi

---

S'è un sistema alternativo per allegare un file?

Grazie

mettilo su dropbox o simili e posta il link

Quote:

---

Originariamente inviato da patel45

mettilo su dropbox o simili e posta il link

---

Grazie Patel, ecco qua il file:

https://www.dropbox.com/s/ra9tuvovql...lenco.txt?dl=0

Con il file che hai mandato e il codice che ti ho suggerito

codice:

---

        Dim elenco As String = System.IO.File.ReadAllText( "elenco.txt" )
        Dim v() As String = Strings.Split(elenco, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

ottengo l'elenco corretto.

confermo, anche a me funziona, però vedo la scritta Linux, dovresti spiegare meglio da dove proviene la stringa in questione

linuxpc

è il nome di uno dei pc

Quote:

---

Originariamente inviato da AntonioG

Con il file che hai mandato e il codice che ti ho suggerito

codice:

---

        Dim elenco As String = System.IO.File.ReadAllText( "elenco.txt" )
        Dim v() As String = Strings.Split(elenco, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

ottengo l'elenco corretto.

---

Grazie AntonioG, funziona alla grande!!!.
L'ultimo dubbio, se concesso :).
Ho modificato il codice perché vorrei riprendere l'elenco non da un file ma direttamente dal comando che genera la lista:
Ho provato a modificare il codice nel seguente modo:

codice:

---

            Dim elenco As String = cmd.Result.ToString
            Dim v() As String = Strings.Split(elenco, ":")
            For Each s As String In v
                If s.Contains("power") Then
                    Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
                End If
            Next

---

Dove cmd.result.string contiene la stringa identica contenuta nel file elenco.txt
Ma mi dice:

codice:

---

La lunghezza non può essere minore di zero.
Nome parametro: length

---

Il contenuto della stringa è il seguente:

codice:

---

uuid ( RO)          : f51bf12f-478c-79ed-c7bb-4eddeb8dc01f      name-label ( RW): computer1    power-state ( RO): running  uuid ( RO)          : 28fbd099-47e0-4c5e-9cde-c072edbc998c      name-label ( RW): Control domain on host: server01    power-state ( RO): running  uuid ( RO)          : 86689d31-3161-148a-9443-2987999228b4      name-label ( RW): pc01    power-state ( RO): halted  uuid ( RO)          : 6d223d11-77d4-9e04-94f4-e0a78abccdd0      name-label ( RW): Windows-pc    power-state ( RO): halted  uuid ( RO)          : 127d385c-266f-4903-4827-4e4859c94b5c      name-label ( RW): linuxpc    power-state ( RO): halted  "

---

Ovviamente non è identato, ma tutto di seguito.

Non capisco perché venga segnalato il fatto che la stringa non può essere minore di zero.

Grazie ancora

Quote:

---

Originariamente inviato da AntonioG

linuxpc

è il nome di uno dei pc

---

Esatto è il nome di un pc facente parte di un cluster di dominio di VM.

Se hai un errore allora cmd.result.string NON contiene la stringa identica contenuta nel file elenco.txt.

La stringa visualizzata in quel modo non ci dice nulla sul suo contenuto in termini di caratteri di controllo.

Molto probabilmente non contiene caratteri vbCrLf ma solo vbCr

Se non ci dai un file proveniente dal comando esattamente come arriva dal comando possiamo fare solo ipotesi.
Ferma con un breakpoint l'esecuzione e mostra con una immagine il contenuto di elenco in debugging

Quote:

---

Originariamente inviato da AntonioG

Se hai un errore allora cmd.result.string NON contiene la stringa identica contenuta nel file elenco.txt.

La stringa visualizzata in quel modo non ci dice nulla sul suo contenuto in termini di caratteri di controllo.

Molto probabilmente non contiene caratteri vbCrLf ma solo vbCr

Se non ci dai un file proveniente dal comando esattamente come arriva dal comando possiamo fare solo ipotesi.
Ferma con un breakpoint l'esecuzione e mostra con una immagine il contenuto di elenco in debugging

---

Ecco qui l'immagine che viene visualizzata:
Allegato 2594

No così non si capisce ... intendevo il contenuto della stringa in hex. Usa questo codice

codice:

---

        Dim s As String = ""
        Dim elenco As String = System.IO.File.ReadAllText("elenco.txt")
        For c As Integer = 0 To elenco.Length - 1
            s &= Conversion.Hex(Strings.Asc(elenco.Substring(c, 1).ToString())) & " "
        Next
        Console.WriteLine(s)

---

e mostra il contenuto della finestra di output

Quote:

---

Originariamente inviato da AntonioG

No così non si capisce ... intendevo il contenuto della stringa in hex. Usa questo codice

codice:

---

        Dim s As String = ""
        Dim elenco As String = System.IO.File.ReadAllText("elenco.txt")
        For c As Integer = 0 To elenco.Length - 1
            s &= Conversion.Hex(Strings.Asc(elenco.Substring(c, 1).ToString())) & " "
        Next
        Console.WriteLine(s)

---

e mostra il contenuto della finestra di output

---

Ok, questa è la schermata in debug:

Allegato 2595

Riporto comunque anche la stringa:

codice:

---

75 75 69 64 20 28 20 52 4F 29 20 20 20 20 20 20 20 20 20 20 20 3A 20 66 35 31 62 66 31 32 66 2D 34 37 38 63 2D 37 39 65 64 2D 63 37 62 62 2D 34 65 64 64 65 62 38 64 63 30 31 66 D A 20 20 20 20 20 6E 61 6D 65 2D 6C 61 62 65 6C 20 28 20 52 57 29 3A 20 63 6F 6D 70 75 74 65 72 31 D A 20 20 20 20 70 6F 77 65 72 2D 73 74 61 74 65 20 28 20 52 4F 29 3A 20 72 75 6E 6E 69 6E 67 D A D A D A 75 75 69 64 20 28 20 52 4F 29 20 20 20 20 20 20 20 20 20 20 20 3A 20 32 38 66 62 64 30 39 39 2D 34 37 65 30 2D 34 63 35 65 2D 39 63 64 65 2D 63 30 37 32 65 64 62 63 39 39 38 63 D A 20 20 20 20 20 6E 61 6D 65 2D 6C 61 62 65 6C 20 28 20 52 57 29 3A 20 43 6F 6E 74 72 6F 6C 20 64 6F 6D 61 69 6E 20 6F 6E 20 68 6F 73 74 3A 20 73 65 72 76 65 72 30 31 D A 20 20 20 20 70 6F 77 65 72 2D 73 74 61 74 65 20 28 20 52 4F 29 3A 20 72 75 6E 6E 69 6E 67 D A D A D A 75 75 69 64 20 28 20 52 4F 29 20 20 20 20 20 20 20 20 20 20 20 3A 20 38 36 36 38 39 64 33 31 2D 33 31 36 31 2D 31 34 38 61 2D 39 34 34 33 2D 32 39 38 37 39 39 39 32 32 38 62 34 D A 20 20 20 20 20 6E 61 6D 65 2D 6C 61 62 65 6C 20 28 20 52 57 29 3A 20 70 63 2D 30 31 D A 20 20 20 20 70 6F 77 65 72 2D 73 74 61 74 65 20 28 20 52 4F 29 3A 20 68 61 6C 74 65 64 D A D A D A 75 75 69 64 20 28 20 52 4F 29 20 20 20 20 20 20 20 20 20 20 20 3A 20 36 64 32 32 33 64 31 31 2D 37 37 64 34 2D 39 65 30 34 2D 39 34 66 34 2D 65 30 61 37 38 61 62 63 63 64 64 30 D A 20 20 20 20 20 6E 61 6D 65 2D 6C 61 62 65 6C 20 28 20 52 57 29 3A 20 57 69 6E 64 6F 77 73 2D 70 63 D A 20 20 20 20 70 6F 77 65 72 2D 73 74 61 74 65 20 28 20 52 4F 29 3A 20 68 61 6C 74 65 64 D A D A D A 75 75 69 64 20 28 20 52 4F 29 20 20 20 20 20 20 20 20 20 20 20 3A 20 31 32 37 64 33 38 35 63 2D 32 36 36 66 2D 34 39 30 33 2D 34 38 32 37 2D 34 65 34 38 35 39 63 39 34 62 35 63 D A 20 20 20 20 20 6E 61 6D 65 2D 6C 61 62 65 6C 20 28 20 52 57 29 3A 20 6C 69 6E 75 78 70 63 D A 20 20 20 20 70 6F 77 65 72 2D 73 74 61 74 65 20 28 20 52 4F 29 3A 20 68 61 6C 74 65 64

---

P.S. ho modificato il codice in questo modo:

codice:

---

Dim s As String = ""
            Dim elenco As String = System.IO.File.ReadAllText("c:\scambio\elenco.txt")
            For c As Integer = 0 To elenco.Length - 1
                s &= Hex(Strings.Asc(elenco.Substring(c, 1).ToString())) & " "
            Next
            Console.WriteLine(s)

---

perché mi dava errore.

Ok .... allora prova ad aggiungere al codice che ti avevo proposto quello che inserisco come seconda riga

codice:

---

        Dim elenco As String = System.IO.File.ReadAllText( "elenco.txt" )
        elenco &= Environment.NewLine        Dim v() As String = Strings.Split(elenco, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

Quote:

---

Originariamente inviato da AntonioG

Ok .... allora prova ad aggiungere al codice che ti avevo proposto quello che inserisco come seconda riga

codice:

---

        Dim elenco As String = System.IO.File.ReadAllText( "elenco.txt" )
        elenco &= Environment.NewLine        Dim v() As String = Strings.Split(elenco, ":")
        For Each s As String In v
            If s.Contains("power") Then
                Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
            End If
        Next

---

---

Ho provato a inserire la riga nel codice, ma solito errore.
Il codice l'ho modificato in questo modo, inserendo al posto del percorso del file il contenuto del comando cmd.result:

codice:

---

            Dim elenco As String = cmd.Result
            elenco &= Environment.NewLine
            Dim v() As String = Strings.Split(elenco, ":")
            For Each s As String In v
                If s.Contains("power") Then
                    Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
                End If
            Next

---

Veramente strano, perché facendo la visualizzazione del comando cmd.result con:

codice:

---

msgbox(cmd.result)

---

ottengo esattamente la stringa che viene scritta nel file elenco.txt

Non puoi confrontare sullo schermo le stringhe perché, anche se sembrano uguali, possono contenere caratteri non visibili diversi.

Comunque la questione mi sembra stana. Sei sicuro che te lo dia proprio in quel codice e non da qualche altra parte?
Quando hai l'errore ha già visualizzato qualcosa o no?

Se dopo la

For Each s As String In v

metti una

MsgBox(s)

quali stringhe ti vengono visualizzate prima dell'errore?

Quote:

---

Originariamente inviato da AntonioG

Non puoi confrontare sullo schermo le stringhe perché, anche se sembrano uguali, possono contenere caratteri non visibili diversi.

Comunque la questione mi sembra stana. Sei sicuro che te lo dia proprio in quel codice e non da qualche altra parte?
Quando hai l'errore ha già visualizzato qualcosa o no?

Se dopo la

For Each s As String In v

metti una

MsgBox(s)

quali stringhe ti vengono visualizzate prima dell'errore?

---

La cosa strana che risulta popolata ed esce:

codice:

---

computer1
    power-state ( RO)

---

Sto provando a debuggare passo passo, ma l'errore esce fuori sempre nella riga:

codice:

---

Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))

---

Ho provato a mettere il contenuto del comando in una casella di testo:

codice:

---

Dim elenco As String = txtTesto1.Text.ToString.Trim

---

ma niente solito errore.
Il bello che se faccio un msgbox(cmd.result) esce fuori l'esatto contenuto del file elenco.txt

Altri test:
ho inserito:

codice:

---

    For Each s As String In v
                If s.Contains("power") Then
                    MsgBox(s.Length.ToString)  --> restituisce 34
                    MsgBox(v.Length.ToString)  --> restituisce 17
                    Console.WriteLine(s.Trim.Substring(0, s.IndexOf(Environment.NewLine)))
                End If
            Next

---

I valori non sono mai a zero.

Scusa ma ti ho fatto una domanda precisa che ti ripeto

metti una

MsgBox(s)

quali stringhe ti vengono visualizzate prima dell'errore?

Quote:

---

Originariamente inviato da AntonioG

Scusa ma ti ho fatto una domanda precisa che ti ripeto

metti una

MsgBox(s)

quali stringhe ti vengono visualizzate prima dell'errore?

---

Come prima stringa viene visualizzato:
"uuid ( RO) "
poi
" f51bf12f-478c-79ed-c7bb-4eddeb8dc01f" & vbLf & " name-label ( RW)"
poi
" computer1" & vbLf & " power-state ( RO)"
e alla fine il solito errore:
La lunghezza non può essere minore di zero.
Nome parametro: length
Ho lasciato gli apici di inizio e fine per fare capire che ci sono anche degli spazi all'inizio e fine stringa.

Se solo l'avessi scritto prima

vbLf

e non vbCrLf

Il primo è impostato dai sistemi *nix e il secondo da Windows.

Quindi prova con

Console.WriteLine(s.Trim.Substring(0, s.IndexOf(vbLf)))

Quote:

---

Originariamente inviato da AntonioG

Se solo l'avessi scritto prima

vbLf

e non vbCrLf

Il primo è impostato dai sistemi *nix e il secondo da Windows.

Quindi prova con

Console.WriteLine(s.Trim.Substring(0, s.IndexOf(vbLf)))

---

E' vero, ma sbagliando si impara, me ne sono reso subito conto quando ho visto il valore della stringa.
Difatti il comando cmd.result è eseguito su pc con linux.
Comunque adesso tutto ok ancora una volta hai fatto centro.

Per chiarimenti riporto il codice corretto:

codice:

---

            Dim elenco As String = cmd.Result
            elenco &= Environment.NewLine
            Dim v() As String = Strings.Split(elenco, ":")
            For Each s As String In v
                If s.Contains("power") Then
                    Console.WriteLine(s.Trim.Substring(0, s.IndexOf(vbLf)))
                    dgvVm.Rows.Add(False, s.Trim.Substring(0, s.IndexOf(vbLf)))
                End If
            Next

---

Grazie di nuovo a tutti e in particolare modo, ancora una volta, ad AntonioG.

Per me il thread è chiuso e risolto.

Alla prossima puntata.

:bye:

A questo punto il codice corretto è questo

codice:

---

            Dim elenco As String = cmd.Result
            Dim v() As String = Strings.Split(elenco, ":")
            For Each s As String In v
                If s.Contains("power") Then
                    dgvVm.Rows.Add(False, s.Trim.Substring(0, s.IndexOf(vbLf)))
                End If
            Next

---

dato che la seconda linea del vecchio codice non ha più senso e quella che scrive in Console non serve più

Quote:

---

Originariamente inviato da ljt

E' vero, ma sbagliando si impara, me ne sono reso subito conto quando ho visto il valore della stringa.
Difatti il comando cmd.result è eseguito su pc con linux.

---

non avevi letto attentamente il 5° post

Quote:

---

Originariamente inviato da patel45

non avevi letto attentamente il 5° post

---

Esatto, mi è proprio sfuggito.

Chiedo scusa e ti/vi ringrazio di nuovo per l'aiuto.


Alla prossima

:bye: