Estrarre da una stringa una rappresentazione numerica

[vuott]

la verifica più sicura non può che essere quella carattere per carattere

Ci metto qualcosa anch'io al riguardo:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String = "123.45        testo qualsasi"
  Dim bb As Byte[]
  Dim i As Integer
  
   bb = Byte[].FromString(s)
  
   While Not IsSpace(Chr(bb[i]))
     Inc i
   Wend
   
   bb.Remove(i, Len(s) - i)
   
   Print bb.ToString(0, bb.Count)

End

o se si preferiscono esclusivamente le funzioni stringa:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String = "123.45        testo qualsasi"
  Dim i As Integer = 1
  
   While Not IsSpace(Mid(s, i, 1))
     Inc i
   Wend
   
   Print Left(s, i - 1)

End

[Gianluigi]

Ci metto qualcosa anch'io al riguardo:

Ma questo bel codice, comunque non ti salva da possibili errori.
Naturalmente io parlo non dello specifico quesito, ma di codice "vero" tu mi insegni che potresti benissimo incontrare  una riga nella quale, per i più svariati motivi, gli spazi sono andati persi...

Non esagerare. Mi sono solo meravigliato che non avessi anche proposto Scan( ) e Split( ), poiché solitamente ne fai ampio uso.

Si devo ammettere che faccio uso di entrambi, visto che un certo vuott me e ce li ha ben spiegati 

Devo anche dire che Scan lo abbino spesso e volentieri con Try quando non so a cosa posso andare incontro, ad esempio: 

Codice: [Seleziona]

  If IsNull(sName) Then sName = Scan(s, "*<a id=\"*\">*</a>*<*")[2]
  If IsNull(sName) Then Try sName = Scan(s, "*<a id=\"*\">*</a>*<*>*<*")[5]
  If IsNull(sName) Then Try sName = Scan(s, "*<a id=\"*\">*</a>*<*>*<*>*<*")[7]

 

[vuott]

...una riga nella quale, per i più svariati motivi, gli spazi sono andati persi...

E quali sarebbero 'sti motivi ?   

[Gianluigi]

...una riga nella quale, per i più svariati motivi, gli spazi sono andati persi...

E quali sarebbero 'sti motivi ?   

Di solito si tratta di un errore di battitura di chi ha immesso i dati che dobbiamo leggere

[vuott]

...manca l'adduzione aliena degli spazi.