| si recuerdo bien esta rutina,me dio trabajo esta rutina delimita un
texto lo condensa como para que sea humanamente entendible,la uso para generar el ticket
ejemplo un texto
que hermoso dia sera el de ma�ana
lo comprime a
que her. dia ser. el de ma�. |
|
14650 '*TEXTO CONDENSADO
14660 'DATO DE INGRESO P$>>>>>DATO DE SALIDA PR$
14670 AN=1:L=17
14680 IF LEN(P$)<L THEN PR$=P$:GOTO 14810
14690 B=INSTR(1,P$," ")
14700 IF B<1 THEN 14720
14710 PA$=MID$(P$,1,B-1)
14720 PA$=P$+" "
14730 PR$=""
14740 A=1
14750 B=INSTR(A,PA$," ")
14760 IF B=0 THEN 14790
14770 IF B-A>AN THEN PR$=PR$+MID$(PA$,A,AN)+CHR$(46) ELSE
PR$=PR$+MID$(PA$,A,B-A)+CHR$(32)
14780 A=B+1:GOTO 14750
14790 PR$=MID$(PR$,1,LEN(PR$)-1)
14800 IF LEN(PR$)<L THEN AN=AN+1:PR$="":GOTO 14740
14810 RETURN |