Menyingkat diskripsi dengan baik

Menyingkat diskripsi dengan baik

  07.20    Prometheus

---

&& FUNCTION ShortDescr

&& PARAMETERS _NameX99,_LenMaxX99

&& Berguna untuk menyingkat kalimat pada panjang tertentu

&& PARAMETERS _NameX99 adalah Kalimat yg akan disingkat

&& PARAMETERS _LenMaxX99 adalah panjang maximal hasil singkatan

&& CONTOH :

&& ShortDescr("Buto Ijo Biangka Landa Wibawa Dana Saputra",32)

&& Hasilnya : "Buto Ijo Biangka Landa Wibawa DS"

&& ShortDescr("Buto Ijo Biangka Landa Wibawa Dana Saputra",12)

&& Hasilnya : "Buto IBLWDS"

FUNCTION ShortDescr

PARAMETERS _NameX99,_LenMaxX99

PRIVATE _NameX99,_LenMaxX99,_HurufX99,_BalikX99,_iX99,_Test,;

_jX99

IF VARTYPE(_NameX99)<>"C"

RETURN ""

ENDIF 

IF VARTYPE(_LenMaxX99)<>"N"

_LenMaxX99=20

ENDIF 

_HurufX99=HurufKe1(_NameX99)

IF LEN(_HurufX99)>=_LenMaxX99

RETURN LEFT(_HurufX99,_LenMaxX99)

ENDIF 

_JumKataX99=JumKata(_NameX99)

_BalikX99=_HurufX99

FOR _iX99=1 TO _JumKataX99

_Test=""

FOR _jX99=1 TO _iX99

IF EMPTY(_Test)

_Test=KataKeX(_NameX99,_jX99)

ELSE 

_Test=_Test+CHR(32)+KataKeX(_NameX99,_jX99)

ENDIF 

NEXT

_Test=_Test+CHR(32)+SUBSTR(_HurufX99,_iX99+1)

IF LEN(_Test)<=_LenMaxX99

_BalikX99=_Test

ENDIF 

  *? _Test

NEXT 

RETURN _BalikX99