delucagiovanni forum

Gentilissimi del forum, ho iniziato da poco a programmare in Bascom,
per per una mia applicazione devo utilizzare l'istruzione split , e ho incontrato alcuni problemi.

Non riesco a splittare bene la stringa:

Code: Select all

$regfile = "m644pdef.dat"
'$crystal = 20000000
$crystal = 8000000

$baud = 9600                                                'Default Baudrate set for RS232 devices

    Dim Splits(16) As String * 20
    Dim A As String * 80
    Dim J As String * 4
    Dim B As Byte
    Dim C As Byte
    Dim D As Byte
    Dim Z As Long

    A = "%1%2%3%4%5%6%7"

    B = Split(a , Splits(1) , "%")
    Cls

     Lcd B

     Waitms 50

     For C = 1 To B

      Cls
      Lcd Splits(c)

      Locate 2 , 1

      Lcd C

      Waitms 50

     Next C

     End


Grazie se potrete aiutarmi e trovare l'inghippo.

Peppe wrote:Gentilissimi del forum, ho iniziato da poco a programmare in Bascom,
per per una mia applicazione devo utilizzare l'istruzione split , e ho incontrato alcuni problemi.

Non riesco a splittare bene la stringa:

Code: Select all

$regfile = "m644pdef.dat"
'$crystal = 20000000
$crystal = 8000000

$baud = 9600                                                'Default Baudrate set for RS232 devices

    Dim Splits(16) As String * 20
    Dim A As String * 80
    Dim J As String * 4
    Dim B As Byte
    Dim C As Byte
    Dim D As Byte
    Dim Z As Long

    A = "%1%2%3%4%5%6%7"

    B = Split(a , Splits(1) , "%")
    Cls

     Lcd B

     Waitms 50

     For C = 1 To B

      Cls
      Lcd Splits(c)

      Locate 2 , 1

      Lcd C

      Waitms 50

     Next C

     End


Grazie se potrete aiutarmi e trovare l'inghippo.

Secondo me il problema sta nel fatto che la stringa non deve iniziare con il carattere di separazione.
Quindi, prova ad assegnare ad A la stringa secondo questo formato:
A = "1%2%3%4%5%6%7"

Ciao
Fammi sapere