18/03/08 14:51
Il Totem
Postato originariamente da crash outside control:
Grazie della risposta, però mi scrive solo :
System.Int32[]
il codice è il seguente :
Dove erro ?
Postato originariamente da Il Totem:
Vals contiene i codici ASCII corrispondenti ad ogni carattere nella textbox1.
Dim Vals(TextBox1.Text.Length - 1) As Int32 For I As Int16 = 0 To TextBox1.Text.Length - 1 Vals(I) = Asc(TextBox1.Text(I)) Next
Vals contiene i codici ASCII corrispondenti ad ogni carattere nella textbox1.
Grazie della risposta, però mi scrive solo :
System.Int32[]
il codice è il seguente :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Vals(TextBox1.Text.Length - 1) As Int32
For I As Int16 = 0 To TextBox1.Text.Length - 1
Vals(I) = Asc(TextBox1.Text(I))
Next
Dim a As New IO.StreamWriter("c:\ciao.txt")
a.Write(Vals)
a.Close()
End Sub
End Class
Dove erro ?
Forse non l'avrai notato, ma Vals è un'array non un solo valore. Devi usare un For per scriverli tutti perchè WriteLine non se lo sogna mica.
aaa
