Estrazione caratteri da una stringa

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

        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

Originariamente inviato da AntonioG

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

        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:

            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:

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?

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:

computer1
    power-state ( RO)

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

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

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

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:

    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?

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)))

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:

            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.

A questo punto il codice corretto è questo

            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ù