Convertire un numero di tipo Stringa a valore numerico aritmetico

[vuott]

A parte la funzione " Val( ) " avete un codice più fino del seguente:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String
  Dim bb As Byte[]
  Dim b As Byte
  Dim sg As Short = 1
  Dim i As Integer
  
   s = "   -123456     "
   
   bb = Byte[].FromString(s)
   
   For b = 0 To bb.Max
     If Not IsSpace(Chr(bb[b])) Then     ' Salta gli eventuali spazi iniziali e finali
       If bb[b] = Asc("-") Then sg = -1  ' Verifica se il numero è segnato
       If bb[b] < 48 Then Inc b          ' Se è segnato, incrementa "b"
       i = 10 * i + (bb[b] - Asc("0"))   ' Ricava il valore numerico corrispondente al numero stringa
     Endif
   Next
   
   Print sg * i

End

per convertire un numero segnato di tipo stringa nel corrispondente valore numerico aritmetico (esempio: Intero) ?

[vuott]

Un codice molto simile al precedente:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String
  Dim bb As Byte[]
  Dim b As Byte
  Dim sg As Short
  Dim i As Integer
  
   s = "  123456789    "
   
   bb = Byte[].FromString(s)
   
   While IsSpace(Chr(bb[b]))          ' Salta gli eventuali spazi iniziali
     Inc b
   Wend
   
   sg = IIf(bb[b] = Asc("-"), -1, 1)   ' Verifica se il numero è segnato negativo
   If bb[b] < 48 Then Inc b            ' Se è comunque segnato ("+" "-"), incrementa "b"
   While IsNumber(Chr(bb[b]))
    i = 10 * i + (bb[b] - Asc("0"))    ' Ricava il valore numerico corrispondente al numero stringa
    Inc b
    If b = bb.Count Then Break
   Wend
   
   Print sg * i

End

[Gianluigi]

E così?

Codice: [Seleziona]

Public Sub Main()

  Dim s As String = "   -123456     "
  Dim n As Float

  s = Trim(s)
  If IsNumber(s) Then n = CFloat(s)
  Print n

End

[Gianluigi]

Volendo credo si possa usare anche il casting o per meglio dire la conversione implicita anche se penso che non sia raccomandabile. Ho cercato in merito ma non ho trovato nulla 

Codice: [Seleziona]

Public Sub Main()

  Dim s As String = "   -123456     "
  Dim n As Byte = 6

  s = Trim(s)
  If IsNumber(s) Then Print s + n

End

[allegfede]

per togliere TUTTI gli spazi:

Codice: [Seleziona]

valore=replace(valore," ","")

per convertirlo in numero (float?)

Codice: [Seleziona]

try numeroavirgolamobile=cfloat(valore)
if error then
 message.warning ....
end if

[Gianluigi]

  Allegfede,
ma secondo te Vuott sta tentando di riscrivere Gambas in C   

[kicco]

Vuott sta tentando di riscrivere Gambas in C

sta scrivendo C, in Gambas!!!

[allegfede]

Si suppongo :-)
Vuole diventare minisini 2

Ps: ma gambas è scritto in c++ vero?

[Gianluigi]

ma gambas è scritto in c++ vero?

Che io sappia sia in C che in C++ e se mi passi il bisticcio di parole, più in C che in C++.
 

[vuott]

" The compiler is a fast little executable written in C
  ......
  The core Gambas interpreter is a terminal-only program. All other features are provided by components, which are groups of classes written in C/C++, or written directly in Gambas. "

http://gambaswiki.org/wiki/doc/whatisgambas?