Strings manipulation

Comments

• Mike Green Posts: 23,101

  2006-10-02 07:47 edited 2006-10-02 07:47

  OBJ key : "keyboard"
  VAR byte buffer[noparse][[/noparse]32]
  PUB mainProgram | stopChar
  '' Example of call: stopChar := getNumber(@buffer,32)
  PUB getNumber(ptr, size) | c
  '' This takes a series of digits from the keyboard
  '' and returns the first non-digit character received.
  '' The characters are returned as a zero-terminated
  '' string whose address is supplied in ptr and whose
  '' maximum size is supplied in size.
    repeat (c := key.getKey)
      case c
        "0".."9":
          if size > 1
            byte[noparse][[/noparse]ptr++] := c
            size--
        other:
          byte[noparse][[/noparse]ptr] := 0
          return c
  
  
• El Paisa Posts: 375

  2006-10-02 17:33 edited 2006-10-02 17:33

  Thanks Mike.
  
  I am going to try it.