Skriptovací jazyk - funkce: Porovnání verzí
Z K.A.P.
Skočit na navigaciSkočit na vyhledáváním |
|||
(Není zobrazeno 19 mezilehlých verzí od 2 dalších uživatelů.) | |||
Řádek 3: | Řádek 3: | ||
| '''Funkce ''' || colspan=2|'''Popis ''' | | '''Funkce ''' || colspan=2|'''Popis ''' | ||
|-valign=top | |-valign=top | ||
− | |'''''Function DelAll(s: String) : String '''''||rowspan=20 align=center valign=center colspan=2| | + | |'''''Function DelAll(s: String) : String '''''||rowspan=20 align=center valign=center colspan=2|Ve [[Skriptovací programovací jazyk|skriptovacím programovacím jazyku]] jsou k dispozici [[Funkce používané při vyhodnocování výrazů#Řetězcové funkce používané při zadávání výrazů |funkce]] zajišťující kompatibilitu s množinou funkcí dostupnou v rámci vyhodnocování výrazů v jiných částech programu (např. generátor sestav,filtrování pomocí výběrových podmínek). Syntaxe je stejná nebo obdobná. |
|-valign=top | |-valign=top | ||
|'''''Function DelLeft(s: String) : String''''' | |'''''Function DelLeft(s: String) : String''''' | ||
Řádek 75: | Řádek 75: | ||
|-valign=top | |-valign=top | ||
|''''' Procedure LogWrite(Msg : String)'''''||colspan=2|zapisuje informaci Msg do textového logu aplikace | |''''' Procedure LogWrite(Msg : String)'''''||colspan=2|zapisuje informaci Msg do textového logu aplikace | ||
+ | |-valign=top | ||
+ | |''''' Function FileExists(FileName: String): Boolean'''''||colspan=2|Testuje, jestli soubor specifikovaný parametrem FileName existuje | ||
+ | |-valign=top | ||
+ | |''''' Function FileAge(FileName: string): TDateTime'''''||colspan=2|Vrací datum a čas poslední změny souboru nebo zápornou hodnotu, pokud soubor neexistuje | ||
+ | |-valign=top | ||
+ | |''''' Function DeleteFile(FileName: string): Boolean'''''||colspan=2|Smaže soubor FileName z disku | ||
+ | |-valign=top | ||
+ | |''''' Function RemoveDir(Dir: string): Boolean'''''||colspan=2|Smaže neprázdnou složku Dir z disku | ||
+ | |-valign=top | ||
+ | |''''' Function DirectoryExists(Dir: String):String'''''||colspan=2|Testuje, jestli složka specifikovaná parametrem Dir existuje | ||
+ | |-valign=top | ||
+ | |''''' Function CreateDir(Dir: string): Boolean'''''||colspan=2|Vytvoří složku specifikovanou parametrem Dir | ||
+ | |-valign=top | ||
+ | |''''' Function RenameFile(OldName: string; NewName: string): Boolean'''''||colspan=2|Přejmenuje soubor OldName na soubor NewName | ||
|-valign=top | |-valign=top | ||
|''''' Function ExtractFileName(FileName: String):String'''''||colspan=2|Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen jméno souboru včetně přípony | |''''' Function ExtractFileName(FileName: String):String'''''||colspan=2|Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen jméno souboru včetně přípony | ||
Řádek 82: | Řádek 96: | ||
|''''' Function ChangeFileExt(FileName, NewExt: String):String'''''||colspan=2|Funkce vezme textového parametru FileName obsahujícího celé jméno souboru a vrátí jméno souboru , ve kterém je nahrazena přípona souboru dle přípony určené parametrem NewExt. Parametr NewExt může obsahovat počáteční tečku. Funkce nepřejmenovává samotný soubor, jen vrací text obsahující jméno souboru se změněnou příponou. | |''''' Function ChangeFileExt(FileName, NewExt: String):String'''''||colspan=2|Funkce vezme textového parametru FileName obsahujícího celé jméno souboru a vrátí jméno souboru , ve kterém je nahrazena přípona souboru dle přípony určené parametrem NewExt. Parametr NewExt může obsahovat počáteční tečku. Funkce nepřejmenovává samotný soubor, jen vrací text obsahující jméno souboru se změněnou příponou. | ||
|-valign=top | |-valign=top | ||
− | |''''' Function RunExternalCommand(CmdLine: String; WaitToEnd: Boolean = False; CurrentDirectory: String = ''; AppName: String = ''): Cardinal'''''||colspan=2|Funkce spustí externí aplikaci (s případnými parametry) určenou parametrem CmdLine pomocí CreateProcess. Pokud je parametr WaitToEnd nastaven na true, tak program čeká na dokončení externí aplikace. | + | |''''' Function SetCurrentDir(Dir: string): Boolean'''''||colspan=2|Nastaví aktuální pracovní adresář podle parametru Dir |
+ | |-valign=top | ||
+ | |''''' Function GetCurrentDir: string'''''||colspan=2|Vrací aktuální pracovní adresář | ||
+ | |-valign=top | ||
+ | |''''' Function GetEnvironmentVariable(Name: string): string'''''||colspan=2|Vrací hodnotu proměnné Name z prostředí | ||
+ | |-valign=top | ||
+ | |''''' Function ParamStr(Index: Integer): string'''''||colspan=2|Vrací parametr ze seznamu parametrů určených při spouštění programu | ||
+ | |-valign=top | ||
+ | |''''' Function ParamCount: Integer'''''||colspan=2|Vrací počet parametrů v seznamu parametrů určených při spouštění programu | ||
+ | |-valign=top | ||
+ | |''''' Function RunExternalCommand(CmdLine: String; WaitToEnd: Boolean = False; CurrentDirectory: String = ' '; AppName: String = ' ' ): Cardinal'''''||colspan=2|Funkce spustí externí aplikaci (s případnými parametry) určenou parametrem CmdLine pomocí CreateProcess. Pokud je parametr WaitToEnd nastaven na true, tak program čeká na dokončení externí aplikace. | ||
+ | |-valign=top | ||
+ | |''''' Function [[Skriptovací jazyk - tvorba sestav|GSRunReport]](SkupinaSestav : Integer; SestavaCislo : Integer; Parametry: String): String;'''''||colspan=2|Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou složeny v jednom textovém parametru. | ||
+ | |-valign=top | ||
+ | |''''' Function [[Skriptovací jazyk - tvorba sestav|GSRunReportV]](SkupinaSestav : Integer; SestavaCislo : Integer; JmenaParametru: Array of String; Hodnoty: array of Variant): String;'''''||colspan=2|Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou předávány formou seznamu jmen proměnných a druhého seznamu obsahující odpovídající hodnoty proměnných. | ||
+ | |-valign=top | ||
+ | |''''' Function [[Skriptovací jazyk - odesílání mailů pomocí SMTP|SendMailBySMTP]](From, SendTo, FileAttach, Subject, SMTPServer, SMTPSenderName, SMTPPassword, BodyString : String; var ErrMessage : String) : Boolean;'''''||colspan=2|Funkce pošle e-mail na určenou adresu pomocí protokolu SMTP | ||
+ | |-valign=top | ||
+ | |''''' Function [[Skriptovací jazyk - funkce MsgDlg|MsgDlg]](AText, ACaption: String; DlgType: TMsgDlgType; Buttons: Integer; btnCaptions: String = ' '): TModalResult;'''''||colspan=2|zobrazí dialog s jedním nebo více tlačítky | ||
+ | |-valign=top | ||
+ | |''''' Function [[Objekt TKAPADOConnection|CreateADOConnectionStringDlg]](ConnectionString: String): String;'''''||colspan=2|zobrazí dialog pro nastavení ConnectionString v databázovém prostředí ADO | ||
+ | |-valign=top | ||
+ | |''''' Function [[Objekt TKAPRegOptions|GetAppBaseRegistryKey]]: String;'''''||colspan=2|vrací základní klíč aplikace, ve kterém jsou ukládány vybrané parametry (v registru Windows) | ||
+ | |-valign=top | ||
+ | |''''' Function [[Objekt TKAPBtrTable|BtrBeginTransaction]]: Boolean;'''''||colspan=2|Zahájí transakci (pro práci s BTR tabulkami). Každá transakce musí být ukončena pomocí BtrEndTransaction nebo BtrAbortTransaction. | ||
+ | |-valign=top | ||
+ | |''''' Procedure [[Objekt TKAPBtrTable|BtrEndTransaction]];'''''||colspan=2|ukončí transakci a potvrdí změny (pro práci s BTR tabulkami) | ||
+ | |-valign=top | ||
+ | |''''' Procedure [[Objekt TKAPBtrTable|BtrAbortTransaction]];'''''||colspan=2|zruší transakci a případné změny od zahájení transakce vrátí zpět (pro práci s BTR tabulkami) | ||
+ | |-valign=top | ||
+ | |''''' Function MatchMask(Mask, Data: string): Boolean;'''''||colspan=2|vrací hodnotu True, pokud textový řetězec Data vyhovuje masce specifikované řetězcem Mask, jinak vrací hodnotu False. Rozlišují se malá a velká písmena, diakritika i mezery na začátku nebo na konci textu. Maska může obsahovat speciální znaky: znak * pro označení skupiny libovolných znaků (včetně prázdného textu) a znak ? pro označení právě jednoho znaku. Příklady: MatchMask('*black', Nazev) bude vracet True pro Nazev končící slovem black, MatchMask("*black*white*", Nazev) bude vracet 1 pokud Nazev bude obsahovat slovo black následované slovem white, MatchMask("???black*", Nazev) bude vracet True pokud Nazev má na čtvrté pozici počínaje slovo black a končí libovolným textem. | ||
+ | |-valign=top | ||
+ | |''''' Function MatchMasks(Masks, Data: string): integer;'''''||colspan=2|První parametr Masks musí být vyplněn seznamem masek, jimž má vyhovovat údaj Data. V parametru Masks lze použít znaky * jako zástupný znak pro libovolnou skupinu znaků, znaky ? jako zástupný znak pro právě jeden znak. Lze použít současně více masek. V tom případě je nutné jednotlivé masky oddělit znakem /. Pokud maska začíná znakem !, tak se chápe jako negativní maska (čili pokud údaj Data vyhovuje této negativní masce, tak je celý výraz vyhodnocen jako nevyhovující. Funkce vrací jako výsledek pořadí masky (číslováno od 0), které vyhovuje Data. Funkce vrací záporné číslo pokud žádná maska nevyhovuje (popř. vrací záporné pořadí negativní masky - číslováno od -2). | ||
+ | |-valign=top | ||
+ | |''''' Function StringReplace(S, OldPattern, NewPattern: String; ReplaceAll: Boolean = true; IgnoreCase: Boolean = true):String'''''||colspan=2|funkce umožňuje nahrazení jednoho subřetězce jiným řetězcem znaků: | ||
+ | |-valign=top | ||
+ | |''''' Function GetParamByName(ParamName: string): string'''''||colspan=2|Funkce umožní zjistit hodnotu parametru při spuštění programu. Parametr musí být zapsaný ve formátu <br/> '''paramname:hodnota nebo /paramname:hodnota'''. | ||
|} | |} |
Aktuální verze z 29. 4. 2021, 17:57
Funkce | Popis | |
Function DelAll(s: String) : String | Ve skriptovacím programovacím jazyku jsou k dispozici funkce zajišťující kompatibilitu s množinou funkcí dostupnou v rámci vyhodnocování výrazů v jiných částech programu (např. generátor sestav,filtrování pomocí výběrových podmínek). Syntaxe je stejná nebo obdobná. | |
Function DelLeft(s: String) : String | ||
Function DelRight(s: String) : String | ||
Function EnumStr(s: String; Index: integer; Delimiter:Char = '/‘) : String | ||
Function GetVar(VarName: String) : String | ||
Function Left(s: String; Count: Integer) : String | ||
Function Len(s: String) : Integer | ||
Function Mid(s: String; Index, Count: Integer) : String | ||
Function PosUp(SubStr, Source: String) : Integer | ||
Procedure SetVar(Name: String; Value: Variant) | ||
Function Str(Num: Extended; Size, Decimal: integer) : String | ||
Function Right(s: String; Count: Integer) : String | ||
Function Using(s: String, Size: Integer) : String | ||
Function Val(s: String) : Extended | ||
Function WinFmt(s: String) : String | ||
Function DateValue(Datum: String):Integer | ||
Function DV(Datum: String):Integer | ||
Function StrDate(Datum: Integer):String | ||
Function Abs(e: Extended): Extended | ||
Function Trim(s: String): String | ||
Function Conv(s: String; CP: Byte) : String | Převede text v kódování Windows do jiné kódové stránky.
Hodnoty pro CP: | |
0 | ASCII | |
1 | Kamenický (CP 895) | |
2 | ASCII2 (ASCII s rámečky) | |
3 | LATIN2 (CP 852) | |
4 | Windows 1250 | |
Function Date: TDateTime | Vrací hodnotu aktuálního data (jako číslo). | |
Function Time: TDateTime | Vrací hodnotu aktuálního času (jako číslo). | |
Function Now: TDateTime | Vrací hodnotu aktuálního data a času (jako číslo). | |
Function IfS(Condition: Boolean; IfTrue, IfFalse: String) : String | Funkce vyhodnotí podmínku, pokud bude hodnota True, tak vrátí text z parametru IfTrue, při False vrátí text z IfFalse. Parametry IfTrue, IfFalse i výsledek funkce jsou typu string | |
Function IfL(Condition: Boolean; IfTrue, IfFalse: Integer) : Integer | Funkce vyhodnotí podmínku, pokud bude hodnota True, tak vrátí číslo z parametru IfTrue, při False vrátí číslo z IfFalse. Parametry IfTrue, IfFalse i výsledek funkce jsou typu celé číslo. | |
Function IniReadString(Sekce: String; Promenna: Byte; TestUzivatel: Boolean; Sklad: integer; Default: String): String | vrací textovou hodnotu proměnné z CISELNIK.BTR (číselník 161) | |
Function IniWriteString(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Hodnota: String): Boolean | zapisuje hodnotu proměnné (TestUzivatel=true: platí jen pro akt.uživatele; Sklad=0:platí pro všechny sklady) | |
Function IniReadInteger(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Default: integer): integer | vrací číselnou hodnotu proměnné | |
Function IniWriteInteger(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Hodnota: integer): Boolean | zapisuje číselnou hodnotu proměnné | |
Procedure LogWrite(Msg : String) | zapisuje informaci Msg do textového logu aplikace | |
Function FileExists(FileName: String): Boolean | Testuje, jestli soubor specifikovaný parametrem FileName existuje | |
Function FileAge(FileName: string): TDateTime | Vrací datum a čas poslední změny souboru nebo zápornou hodnotu, pokud soubor neexistuje | |
Function DeleteFile(FileName: string): Boolean | Smaže soubor FileName z disku | |
Function RemoveDir(Dir: string): Boolean | Smaže neprázdnou složku Dir z disku | |
Function DirectoryExists(Dir: String):String | Testuje, jestli složka specifikovaná parametrem Dir existuje | |
Function CreateDir(Dir: string): Boolean | Vytvoří složku specifikovanou parametrem Dir | |
Function RenameFile(OldName: string; NewName: string): Boolean | Přejmenuje soubor OldName na soubor NewName | |
Function ExtractFileName(FileName: String):String | Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen jméno souboru včetně přípony | |
Function ExtractFileExt(FileName: String):String | Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen příponu souboru včetně případné tečky | |
Function ChangeFileExt(FileName, NewExt: String):String | Funkce vezme textového parametru FileName obsahujícího celé jméno souboru a vrátí jméno souboru , ve kterém je nahrazena přípona souboru dle přípony určené parametrem NewExt. Parametr NewExt může obsahovat počáteční tečku. Funkce nepřejmenovává samotný soubor, jen vrací text obsahující jméno souboru se změněnou příponou. | |
Function SetCurrentDir(Dir: string): Boolean | Nastaví aktuální pracovní adresář podle parametru Dir | |
Function GetCurrentDir: string | Vrací aktuální pracovní adresář | |
Function GetEnvironmentVariable(Name: string): string | Vrací hodnotu proměnné Name z prostředí | |
Function ParamStr(Index: Integer): string | Vrací parametr ze seznamu parametrů určených při spouštění programu | |
Function ParamCount: Integer | Vrací počet parametrů v seznamu parametrů určených při spouštění programu | |
Function RunExternalCommand(CmdLine: String; WaitToEnd: Boolean = False; CurrentDirectory: String = ' '; AppName: String = ' ' ): Cardinal | Funkce spustí externí aplikaci (s případnými parametry) určenou parametrem CmdLine pomocí CreateProcess. Pokud je parametr WaitToEnd nastaven na true, tak program čeká na dokončení externí aplikace. | |
Function GSRunReport(SkupinaSestav : Integer; SestavaCislo : Integer; Parametry: String): String; | Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou složeny v jednom textovém parametru. | |
Function GSRunReportV(SkupinaSestav : Integer; SestavaCislo : Integer; JmenaParametru: Array of String; Hodnoty: array of Variant): String; | Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou předávány formou seznamu jmen proměnných a druhého seznamu obsahující odpovídající hodnoty proměnných. | |
Function SendMailBySMTP(From, SendTo, FileAttach, Subject, SMTPServer, SMTPSenderName, SMTPPassword, BodyString : String; var ErrMessage : String) : Boolean; | Funkce pošle e-mail na určenou adresu pomocí protokolu SMTP | |
Function MsgDlg(AText, ACaption: String; DlgType: TMsgDlgType; Buttons: Integer; btnCaptions: String = ' '): TModalResult; | zobrazí dialog s jedním nebo více tlačítky | |
Function CreateADOConnectionStringDlg(ConnectionString: String): String; | zobrazí dialog pro nastavení ConnectionString v databázovém prostředí ADO | |
Function GetAppBaseRegistryKey: String; | vrací základní klíč aplikace, ve kterém jsou ukládány vybrané parametry (v registru Windows) | |
Function BtrBeginTransaction: Boolean; | Zahájí transakci (pro práci s BTR tabulkami). Každá transakce musí být ukončena pomocí BtrEndTransaction nebo BtrAbortTransaction. | |
Procedure BtrEndTransaction; | ukončí transakci a potvrdí změny (pro práci s BTR tabulkami) | |
Procedure BtrAbortTransaction; | zruší transakci a případné změny od zahájení transakce vrátí zpět (pro práci s BTR tabulkami) | |
Function MatchMask(Mask, Data: string): Boolean; | vrací hodnotu True, pokud textový řetězec Data vyhovuje masce specifikované řetězcem Mask, jinak vrací hodnotu False. Rozlišují se malá a velká písmena, diakritika i mezery na začátku nebo na konci textu. Maska může obsahovat speciální znaky: znak * pro označení skupiny libovolných znaků (včetně prázdného textu) a znak ? pro označení právě jednoho znaku. Příklady: MatchMask('*black', Nazev) bude vracet True pro Nazev končící slovem black, MatchMask("*black*white*", Nazev) bude vracet 1 pokud Nazev bude obsahovat slovo black následované slovem white, MatchMask("???black*", Nazev) bude vracet True pokud Nazev má na čtvrté pozici počínaje slovo black a končí libovolným textem. | |
Function MatchMasks(Masks, Data: string): integer; | První parametr Masks musí být vyplněn seznamem masek, jimž má vyhovovat údaj Data. V parametru Masks lze použít znaky * jako zástupný znak pro libovolnou skupinu znaků, znaky ? jako zástupný znak pro právě jeden znak. Lze použít současně více masek. V tom případě je nutné jednotlivé masky oddělit znakem /. Pokud maska začíná znakem !, tak se chápe jako negativní maska (čili pokud údaj Data vyhovuje této negativní masce, tak je celý výraz vyhodnocen jako nevyhovující. Funkce vrací jako výsledek pořadí masky (číslováno od 0), které vyhovuje Data. Funkce vrací záporné číslo pokud žádná maska nevyhovuje (popř. vrací záporné pořadí negativní masky - číslováno od -2). | |
Function StringReplace(S, OldPattern, NewPattern: String; ReplaceAll: Boolean = true; IgnoreCase: Boolean = true):String | funkce umožňuje nahrazení jednoho subřetězce jiným řetězcem znaků: | |
Function GetParamByName(ParamName: string): string | Funkce umožní zjistit hodnotu parametru při spuštění programu. Parametr musí být zapsaný ve formátu paramname:hodnota nebo /paramname:hodnota. |