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