home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / STRINGFB.DOC < prev    next >
Text File  |  2001-03-12  |  5KB  |  140 lines
  1. ~16|0|05 Jednotka StringFB.fbl
  2.  
  3.  |1|05 1.1 CopyPos(Ret,'PosRet1','PosRet2');
  4.  Kopíruje ²et╪zec od uvedeného slova PosRet1 do
  5.  uvedeného slova PosRet2.
  6.  P²íklad:
  7.    let PuvRet:'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  8.    ...
  9.    let NovyRet: CopyPos(PuvRet,'celkovou','vagónà');
  10.  Prom╪nná NovyRet bude 'celkovou úpravu vτech vagónà'
  11.  
  12.  |1|05 1.2 DelPos(Ret,'SmazRet');
  13.  Vyjme z ²et╪zce (smaºe) uvedené slovo SmazRet.
  14.  P²íklad:
  15.    let PuvRet: 'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  16.    DelPos(PuvRet,'celkovou');
  17.  Prom╪nná PuvRet bude 'Jde nám o úpravu vτech vagónà naτich drah.';
  18.  
  19.  |1|05 1.3 FixStr(Ret,25);
  20.  Zkrátí ²et╪zec na uveden∞ poƒet znakà.
  21.  P²íklad:
  22.   let PuvRet: 'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  23.   let NovyRet: FixStr(PuvRet,25);
  24.   nebo
  25.   TextGraphXY(10,50,0,SysF,FixStr(PuvRet,25),White);
  26.  Prom╪nná bude nyní 'Jde nám o celkovou úpravu';
  27.  
  28.  |1|05 1.4 FixPosStr(Ret,'PosRet');
  29.  Zkrátí ²et╪zec o jeho ƒást od uvedeného slova PosRet.
  30.  P²íklad:
  31.   let PuvRet: 'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  32.   let NovyRet: FixPosStr(PuvRet,'vτech');
  33.   nebo
  34.   TextGraphXY(10,50,0,SysF,FixPosStr(PuvRet,'vτech'),White);
  35.  Prom╪nná bude nyní 'Jde nám o celkovou úpravu';
  36.  
  37.  |1|05 1.5 InsPos(Ret,'PosRet','VlozRet');
  38.  Vloºí do ²et╪zce od pozice PosRet slovo VlozRet.
  39.  P²íklad:
  40.   let PuvRet: 'Jde nám o úpravu vτech vagónà naτich drah.';
  41.   InsPos(PuvRet,'o','celkovou');
  42.   Prom╪nná PuvRet bude nyní
  43.     'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  44.  
  45.  |1|05 1.6 SwapWord(Ret,'PuvRet','NovRet');
  46.  Vym╪ní v ²et╪zci pàvodní slovo PuvRet za slovo NovRet.
  47.  P²íklad:
  48.   let Ret: 'Jde nám o celkovou úpravu vτech vagónà naτich drah.';
  49.   SwapWord(Ret,'celkovou','kompletní');
  50.   Prom╪nná Ret nyní bude
  51.          'Jde nám o kompletní úpravu vτech vagónà naτich drah.';
  52.  
  53.  |1|05 1.7 StrUp(Ret);
  54.  P²evede malá písmena na velká.
  55.  P²íklad:
  56.    let Ret: 'Jde nám o kompletní úpravu.';
  57.    let NovRet: StrUp(Ret);
  58.  Prom╪nná NovRet nyní bude 'JDE NáM O KOMPLETNí úPRAVU.';
  59.  
  60.  |1|05 1.8 StrUpCz(Ret);
  61.  P²evede malá písmena na velká vƒetn╪ ƒesk∞ch znakà.
  62.  P²íklad:
  63.    let Ret: 'Jde nám o kompletní úpravu.';
  64.    let NovRet: StrUpCz(Ret);
  65.  Prom╪nná NovRet nyní bude 'JDE N╡M O KOMPLETN╓ ΘPRAVU.';
  66.  
  67.  |1|05 1.9 StrLow(Ret);
  68.   P²evede velká písmena na malá.
  69.  P²íklad:
  70.    let Ret: 'JDE N╡M O KOMPLETN╓ ΘPRAVU.';
  71.    let NovRet: StrLow(Ret);
  72.  Prom╪nná NovRet nyní bude 'jde nám o kompletní úpravu.';
  73.  
  74.  |1|05 1.10 FirstChar(Ret,Zn) 
  75.   Hledá první v∞skyt uvedeného znaku Zn v ²et╪zci Ret, pozici vrátí 
  76.  jako ƒíslo typu integer. 
  77.  P²íklad : 
  78.    let Ret: 'Jde nám o kompletní úpravu.';
  79.    let PZn: FirstChar(Ret,'n');
  80.  
  81.  |1|05 1.11 LastChar(Ret,Zn)
  82.   Hledá poslední v∞skyt uvedeného znaku Zn v ²et╪zci Ret, pozici vrátí
  83.  jako ƒíslo typu integer.
  84.  P²íklad :
  85.    let Ret: 'Jde nám o kompletní úpravu.';
  86.    let PZn: LastChar(Ret,'n');
  87.  
  88.  |1|05 1.12 PosStr(Ret,HRet)
  89.   Hledá v ²et╪zci Ret ²et╪zec HRet, pokud ho najde, vrátí pozici prvního
  90.  znaku ²et╪zce HRet v ²et╪zci Ret jako ƒíslo typu integer.
  91.  P²íklad :
  92.    let Ret: 'Jde nám o kompletní úpravu.';
  93.    let PZn: PosStr(Ret,'nám');
  94.  
  95.  |1|05 1.13 ChrTrans(Ret,PuvRet,NovRet);
  96.   Nahradí pàvodní znak nebo znaky za nov∞ v celém ²et╪zci.
  97.  P²íklad:
  98.    let ARet: 'Volejte na telphon 2533 nebo na telephon 5678';
  99.    let ARet: ChrTrans(ARet,'ph','f');
  100.  Po provedení bude ²et╪zec opraven takto:
  101.     'Volejte na telefon 2533 nebo na telefon 5678';
  102.  
  103.  |1|05 1.14 MoreSpace(Ret); 
  104.    Prohledává ²et╪zec z leva a pokud najde znak v╪tτí neº mezera, vrátí 
  105.  jeho pozici jako ƒíslo typu integer. 
  106.  P²íklad: 
  107.    let ARet: '    najdi v tomto ²et╪zci první znak v╪tτí neº mezera.';
  108.    let PozM: MoreSpace(ARet);
  109.  Do prom╪nné PozM bude uloºena hodnota 5, nebo£ první znak v╪tτí neº
  110.  mezera byl v ²et╪zci nalezen na páté pozici.
  111.  
  112.  |1|05 1.15 Proper(Ret);
  113.   V celém uvedeném ²et╪zci p²evede vτechna poƒáteƒní malá písmena na velká.
  114.  P²íklad:
  115.  let ARet: 'vτechna poƒáteƒní písmena budou nyní velká.';
  116.  let ARet: Proper(ARet);
  117.  Po provedení bude ²et╪zec upraven takto:
  118.     'Vτechna Poƒáteƒní Písmena Budou Nyní Velká.';
  119.  
  120.  |1|05 1.16 PosDigit(Ret); 
  121.   Hledá v ²et╪zci znaky z mnoºiny znakà 0 aº 9. pokud takové v ²et╪zci 
  122.  nalezne, vrátí hodnotu pozice posledního nalezeného znaku z této mnoºiny.
  123.   P²íklad 1: 
  124.   let ARet: 'V ²et╪zci je ƒíselná hodnota 21 uvedena.';
  125.   let PozH: PosDigi(ARet);
  126.  Do prom╪nné PozH bude uloºena pozice posledního znaku z mnoºiny znakà
  127.  0 aº 9, tedy pozice znaku 1. 
  128.   P²íklad 2; 
  129.   let ARet: 'V ²et╪zci je ƒíselná hodnota 21 uvedena.';
  130.   if PosDigit(ARet) > 0 next writeln('v ²et╪zci je ƒíselná hodnota.');
  131.  
  132.   |1|05 1.17 PutLfSpace(VRet,Poc);
  133.   Vloºí na zaƒátek ²et╪zce VRet uveden∞ poƒet mezer Poc.
  134.   
  135.   |1|05 1.18 PutRgSpace(VRet,Poc);
  136.   Vloºí na konec ²et╪zce VRet uveden∞ poƒet mezer Poc.
  137.  
  138.  
  139.  
  140.