Split a character string based on change of character: Difference between revisions

Content added Content deleted
Line 323: Line 323:


#define INICIO 1
#define INICIO 1
#define CHARS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-/ \\:,;:_*"
#define CHARS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\"+-/ \\:,;:_*"


algoritmo
algoritmo
objetivo = "gHHH5YY++ ///,,,,\\", indice=0
objetivo = "gHHH5YY\"\"++ ///,,,,\\", indice=0
largo=0, sublargo=0, lista={}, v=0
largo=0, sublargo=0, lista={}, v=0
Line 347: Line 347:
$ hopper3 basica/splitrep.bas
$ hopper3 basica/splitrep.bas
LISTA=
LISTA=
g,HHH,5,YY,++, ,///,,,,,,\
g,HHH,5,YY,"",++, ,///,,,,,\
</pre>
</pre>