Skriptovací jazyk - funkce: Porovnání verzí
Z K.A.P.
Skočit na navigaciSkočit na vyhledáváním |
m (nové funkce ExtracrFileName a další) |
||
Řádek 65: | Řádek 65: | ||
|-valign=top | |-valign=top | ||
|'''''Function IfL(Condition: Boolean; IfTrue, IfFalse: Integer) : Integer '''''||colspan=2|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 IfL(Condition: Boolean; IfTrue, IfFalse: Integer) : Integer '''''||colspan=2|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. | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
|-valign=top | |-valign=top | ||
|'''''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 IniReadString(Sekce: String; Promenna: Byte; TestUzivatel: Boolean; Sklad: integer; Default: String): String'''''||vrací textovou hodnotu proměnné z CISELNIK.BTR (číselník 161) | ||
Řádek 82: | Řádek 75: | ||
|-valign=top | |-valign=top | ||
|''''' Procedure LogWrite(Msg : String)'''''||zapisuje informaci Msg do textového logu aplikace | |''''' Procedure LogWrite(Msg : String)'''''||zapisuje informaci Msg do textového logu aplikace | ||
+ | |-valign=top | ||
+ | |''''' 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 | ||
+ | |-valign=top | ||
+ | |''''' 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 | ||
+ | |-valign=top | ||
+ | |''''' 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. | ||
+ | |-valign=top | ||
+ | |''''' 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. | ||
|} | |} |
Verze z 1. 12. 2012, 21:46
Funkce | Popis | |
Function DelAll(s: String) : String | Do skriptovacího jazyka doplněny 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 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 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. |