Funkce StrComp

Vrátí hodnotu typu Variant (Integer) označující výsledek řetězcového výrazu.

Syntaxe

StrComp(řetězec1; řetězec2 [; porovnat ] )

Syntaxe funkce StrComp má tyto argumenty:

Argument	Popis
řetězec1	Povinný argument. Libovolný platný řetězcový výraz.
řetězec2	Povinný argument. Libovolný platný řetězcový výraz.
Porovnat	Nepovinný argument. Určuje typ porovnání řetězců. Pokud je argument porovnánínull, dojde k chybě. Pokud je parametr compare vynechán, určuje typ porovnání nastavení Porovnání možností .

Nastavení

Nastavení argumentu porovnání :

Konstantní	Hodnota	Popis
vbBinaryCompare	0	Provede binární porovnání.
vbTextCompare	1	Provede textové porovnání.

Návratové hodnoty

Funkce StrComp má následující návratové hodnoty:

Pokud	Vrácení strComp
řetězec1 je menší než řetězec2.	-1
string1 se rovná řetězci2.	0
řetězec1 je větší než řetězec2.	1
string1 nebo string2 má hodnotu Null.	Null

Příklad dotazu

Výraz

Výsledky:

SELECT ProductSales.ProductID, StrComp(ProductID;"PRO_XYZ10") AS ComparisonResult FROM ProductSales;

Vrátí hodnoty z pole ProductID, porovná hodnoty v poli ProductID s "PRO_XYZ1" a vrátí výsledky ve sloupci ComparisonResult. "Idproduktu" se rovná "PRO_XYZ10", funkce StrComp vrátí hodnotu 0. Pokud je hodnota ProductID menší než PRO_XYZ10, vrátí funkce StrComp hodnotu -1. Pokud je hodnota ProductID větší než PRO_XYZ10, vrátí funkce StrComp hodnotu 1. Pokud hodnota ProductID nebo PRO_XYZ10 má hodnotu NULL, vrátí funkce StrComp hodnotu NULL.

Příklad jazyka VBA

Tento příklad používá funkci StrComp k vrácení výsledků porovnání řetězců. Pokud je třetí argument 1, provede se textové porovnání; Pokud je třetí argument 0 nebo je vynechán, provede se binární porovnání.

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"    ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1)    ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0)    ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1)    ' Returns 1.

Viz také

Řetězcové funkce a jejich použití