[SQL] pobierz, plaintext 
DROP FUNCTION IF EXISTS wraper2 $$
 
CREATE FUNCTION wraper2(haystack TEXT, am INT, pl INT,)
RETURNS INT(11)
 
BEGIN DECLARE s1 INT DEFAULT 0;
  DECLARE s2 INT DEFAULT 1;
  DECLARE wl INT DEFAULT 0;
  DECLARE lin INT DEFAULT 1;
  DECLARE lg INT DEFAULT 1;
  DECLARE nln INT DEFAULT 0;
  DECLARE tmp INT DEFAULT 0;
 
  WHILE lin <= am
        DO
 
        SET s1 = LOCATE(' ', haystack, s2);
 
        IF s2 = 0 THEN
            SET wl = s1-1;
        ELSE
            SET s2 = LOCATE(' ', haystack, s1+1);
	        SET wl = s2-s1;
        END IF;
 
        SET lg= lg + wl;
 
        IF lg > pl THEN
            SET lin = lin+1;
            SET lg = 0;
 
            WHILE nln <= s2 
                DO
                   SET tmp = LOCATE('\n\r',haystack,nln+1);
                    IF tmp > 0 THEN
                        SET lin=lin+1;
                        SET nln=tmp;
                    ELSE 
                        SET nln=s2;
                    END IF;                    
            END WHILE;
            SET s2=s1;            
 
        END IF;
 
    END WHILE;
 
RETURN lin;
 
END $$
[SQL] pobierz, plaintext