Info shell

[vuott]

Se vuoi adattare tutto alla dimensione delle stringhe lette:

Codice: [Seleziona]

Private c As Short


' Quando c'è qualcosa da leggere dal processo di "Speedtest-cli", allora viene sollevato questo Evento di lettura dei dati:
Public Sub Speed_Read() 

 Dim s As String
 
 Line Input #pr, s

' Se la larghezza orizzontale della "corrente" (or ora letta) stringa di caratteri è maggiore del valore presente nella variabile "c", allora la variabile "c" assumerà il valore della larghezza della "corrente" stringa:
 If Label1.Font.TextWidth(s & Space(5)) > c Then c = Label1.Font.TextWidth(s & Space(5))
' Il "Form" principale assume la larghezza pari al valore contenuto dalla variabile "c":
 Me.W = c
' Così anche la "Label":
 Label1.W = c
 
' Nella "Label" vengono scritti il testo precedentemente contenuto + la nuova riga or ora letta + il carattere di nuova riga a capo:
 Label1.Text &= s & "\n"

End

Amen !

[vuott]

...oppure, anziché usare questa riga con un booleano esplicito:

Codice: [Seleziona]

If Label1.Font.TextWidth(s & Space(5)) > c Then c = Label1.Font.TextWidth(s & Space(5))

puoi usare la funzione nativa "Max()":
 

Codice: [Seleziona]

c = Max(Label1.Font.TextWidth(s & Space(5)), c)

[Gratisweb]

Ho scritto questo semplice codice che dovrebbe restituire le info della cpu ma non restituisce nulla, sbaglio qualcosa ?

  Dim cpu As String
  Shell "cat / proc / cpuinfo | grep 'model name' | uniq | awk -F ':' '{print $2}'" To cpu
  label.Text = cpu

[vuott]

Non ho avuto modo di provarlo, ma almeno con riferimento a questa parte - come da te riportata - del percorso specificato:

Codice: [Seleziona]

/ proc / cpuinfo

vi sono degli spazi che ovviamente non dovrebbero esserci.
Ossia correttamente:

Codice: [Seleziona]

/proc/cpuinfo

In ogni modo, poiché io sono estrememente contrario all'uso di Shell (se non in casi particolarissimi e delicati), colgo l'occasione di segnalare le pagine della nostra wiki afferenti alla cpu:
CPU e Scheda Madre

[vuott]

Ad ogni modo mi pare che, osservando la linea di comando con Shell da te presentata, sei interessato a conoscere il contenuto del parametro "model name" della CPU presente nel file "/proc/cpuinfo".
Ebbene, poiché questo file di sistema può essere letto come fosse un file di testo, per conoscerne il contenuto, è sufficiente utilizzare le native funzioni di Gambas per la gestione delle stringhe di testo.
Pertanto, se ad esempio abbiamo un hardware costituito da una sola CPU (oppure, se multicore, fare riferimento alla prima CPU considerata dal"/proc/cpuinfo"), possiamo conoscere quanto riportato al parametro, da te ricercato ("model name "), con questo semplice codice usando la funzione Scan() nativa di Gambas:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String
  
  s = File.Load("/proc/cpuinfo")
  
  s = Scan(s, "*model name*:*stepping*")[2]
  
  Print Trim(s)

End

...vi sembra così complicato da doversi appellare al comando bash "cat"  e alla funzione Shell ? 

[cogier]

In alternativa: -

Codice: [Seleziona]

 Dim sCPU As String

  Shell "lscpu | grep 'Model name:'" To sCPU
  sCPU = Trim(Replace(sCPU, "Model name:", ""))

  Print sCPU