Cómo dividir una cadena en matriz en PostScript

Question

¿Cuál es la forma más fácil de dividir una cadena en matriz por un carácter determinado? Por ejemplo, hacer una matriz de palabras dividiendo en espacio; o incluso haciendo una matriz de todos los caracteres de la cadena.

El único método que se me ocurre es usar search en un bucle. Como todos los idiomas tienen una función para este fin, me temo que me falta una función en PostScript para hacerlo.

Answer 1

Está en el camino correcto con el operador search. Su propósito es realizar búsqueda y coincidencia de cadenas textuales. Aquí está el resumen search operador que se encuentra en la PostScript Language Reference Manual:

search string seek search post match pre true (if found) 
     string false (if not found) 

     looks for the first occurrence of the string seek within string and 
     returns results of this search on the operand stack. The topmost 
     result is a boolean that indicates if the search succeeded. 

     If search finds a subsequence of string whose elements are equal 
     to the elements of seek, it splits string into three segments: 
     pre, the portion of string preceding the match; match, the portion 
     of string that matches seek; and post, the remainder of string. It 
     then pushes the string objects post, match, and pre on the operand 
     stack, followed by the boolean true. All three of these strings are 
     substrings sharing intervals of the value of the original string. 

     If search does not find a match, it pushes the original string 
     and the boolean false. 

     Example: 

      (abbc) (ab) search ==> (bc) (ab) () true 
      (abbc) (bb) search ==> (c) (bb) (a) true 
      (abbc) (bc) search ==>() (bc) (ab) true 
      (abbc) (B) search ==> (abbc) false 

Answer 2

%! 

%(string) (delimiter) split [(s)(t)(r)(i)(n)(g)] 
/split {    % str del 
    [ 3 1 roll  % [ str del 
    {     % [ ... str del 
     search {  % [ ... post match pre 
      3 1 roll % [ ... pre post match %ie. [ ... pre str' del 
     }{   % [ ... str 
      exit  % [ ... str %% break-from-loop 
     }ifelse 
    }loop    % [ ... 
    ]     % [ ... ] 
} def 

(string of words separated by spaces)()split == 
%-> [(string) (of) (words) (separated) (by) (spaces)] 

(string.of.words.separated.by.dots)(.)split == 
%-> [(string) (of) (words) (separated) (by) (dots)]