Funkcje ciągów (Visual Basic)
W poniższej tabeli wymieniono funkcje, które program Visual Basic udostępnia w Microsoft.VisualBasic.Strings klasie do wyszukiwania ciągów i manipulowania nimi. Można je traktować jako funkcje wewnętrzne języka Visual Basic; oznacza to, że nie musisz wywoływać ich jako jawnych składowych klasy, jak pokazano w przykładach. W klasie są dostępne System.String dodatkowe metody, a w niektórych przypadkach metody uzupełniające.
| Metoda .NET Framework | opis |
|---|---|
| Asc, AscW | Zwraca wartość reprezentującą Integer kod znaku odpowiadający znakowi. |
| Chr, ChrW | Zwraca znak skojarzony z określonym kodem znaku. |
| Filter | Zwraca tablicę opartą na zerach zawierającą podzbiór tablicy String na podstawie określonych kryteriów filtrowania. |
| Format | Zwraca ciąg sformatowany zgodnie z instrukcjami zawartymi w wyrażeniu formatu String . |
| FormatCurrency | Zwraca wyrażenie sformatowane jako wartość waluty przy użyciu symbolu waluty zdefiniowanego w panelu sterowania systemu. |
| FormatDateTime | Zwraca wyrażenie ciągu reprezentujące wartość daty/godziny. |
| FormatNumber | Zwraca wyrażenie sformatowane jako liczba. |
| FormatPercent | Zwraca wyrażenie sformatowane jako wartość procentowa (czyli pomnożone przez 100) z końcowym znakiem %. |
| InStr | Zwraca liczbę całkowitą określającą pozycję początkową pierwszego wystąpienia jednego ciągu w innym. |
| InStrRev | Zwraca położenie pierwszego wystąpienia jednego ciągu w innym, zaczynając od prawej strony ciągu. |
| Join | Zwraca ciąg utworzony przez dołączenie kilku podciągów zawartych w tablicy. |
| LCase | Zwraca ciąg lub znak przekonwertowany na małe litery. |
| Left | Zwraca ciąg zawierający określoną liczbę znaków z lewej strony ciągu. |
| Len | Zwraca liczbę całkowitą zawierającą liczbę znaków w ciągu. |
| LSet | Zwraca ciąg wyrównany do lewej zawierający określony ciąg dostosowany do określonej długości. |
| LTrim | Zwraca ciąg zawierający kopię określonego ciągu bez spacji wiodących. |
| Mid | Zwraca ciąg zawierający określoną liczbę znaków z ciągu. |
| Replace | Zwraca ciąg, w którym określony podciąg został zastąpiony innym podciągem o określonej liczbie razy. |
| Right | Zwraca ciąg zawierający określoną liczbę znaków z prawej strony ciągu. |
| RSet | Zwraca wyrównany do prawej ciąg zawierający określony ciąg dostosowany do określonej długości. |
| RTrim | Zwraca ciąg zawierający kopię określonego ciągu bez spacji końcowych. |
| Space | Zwraca ciąg składający się z określonej liczby spacji. |
| Split | Zwraca tablicę jednowymiarową opartą na zerach zawierającą określoną liczbę podciągów. |
| StrComp | Zwraca wartość -1, 0 lub 1 na podstawie wyniku porównania ciągów. |
| StrConv | Zwraca ciąg przekonwertowany zgodnie z określonymi. |
| StrDup | Zwraca ciąg lub obiekt składający się z określonego znaku powtórzonego określoną liczbę razy. |
| StrReverse | Zwraca ciąg, w którym kolejność znaków określonego ciągu jest odwrócona. |
| Trim | Zwraca ciąg zawierający kopię określonego ciągu bez spacji wiodących ani końcowych. |
| UCase | Zwraca ciąg lub znak zawierający określony ciąg przekonwertowany na wielkie litery. |
Możesz użyć instrukcji Option Compare , aby ustawić, czy ciągi są porównywane przy użyciu kolejności sortowania tekstu bez uwzględniania wielkości liter określonego przez ustawienia regionalne systemu (Text) lub przez wewnętrzne reprezentacje binarne znaków (Binary). Domyślną metodą porównania tekstu jest Binary.
Przykład: UCase
W tym przykładzie użyto UCase funkcji , aby zwrócić wielką wersję ciągu.
' String to convert.
Dim lowerCase As String = "Hello World 1234"
' Returns "HELLO WORLD 1234".
Dim upperCase As String = UCase(lowerCase)
Przykład: LTrim
W tym przykładzie użyto LTrim funkcji do usuwania spacji wiodących i RTrim funkcji w celu usuwania spacji końcowych ze zmiennej ciągu. Używa Trim funkcji do usuwania obu typów spacji.
' Initializes string.
Dim testString As String = " <-Trim-> "
Dim trimString As String
' Returns "<-Trim-> ".
trimString = LTrim(testString)
' Returns " <-Trim->".
trimString = RTrim(testString)
' Returns "<-Trim->".
trimString = LTrim(RTrim(testString))
' Using the Trim function alone achieves the same result.
' Returns "<-Trim->".
trimString = Trim(testString)
Przykład: Mid
W tym przykładzie użyto Mid funkcji , aby zwrócić określoną liczbę znaków z ciągu.
' Creates text string.
Dim testString As String = "Mid Function Demo"
' Returns "Mid".
Dim firstWord As String = Mid(testString, 1, 3)
' Returns "Demo".
Dim lastWord As String = Mid(testString, 14, 4)
' Returns "Function Demo".
Dim midWords As String = Mid(testString, 5)
Przykład: Len
W tym przykładzie użyto Len metody , aby zwrócić liczbę znaków w ciągu.
' Initializes variable.
Dim testString As String = "Hello World"
' Returns 11.
Dim testLen As Integer = Len(testString)
Przykład: InStr
W tym przykładzie użyto InStr funkcji , aby zwrócić położenie pierwszego wystąpienia jednego ciągu w innym.
' String to search in.
Dim searchString As String = "XXpXXpXXPXXP"
' Search for "P".
Dim searchChar As String = "P"
Dim testPos As Integer
' A textual comparison starting at position 4. Returns 6.
testPos = InStr(4, searchString, searchChar, CompareMethod.Text)
' A binary comparison starting at position 1. Returns 9.
testPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)
' If Option Compare is not set, or set to Binary, return 9.
' If Option Compare is set to Text, returns 3.
testPos = InStr(searchString, searchChar)
' Returns 0.
testPos = InStr(1, searchString, "W")
Przykład: format
W tym przykładzie Format przedstawiono różne zastosowania funkcji do formatowania wartości przy użyciu String formatów i formatów zdefiniowanych przez użytkownika. W przypadku separatora daty (/), separatora czasu (:) i wskaźników AM/PM (t i tt) rzeczywiste sformatowane dane wyjściowe wyświetlane przez system zależą od ustawień regionalnych używanych przez kod. Kiedy godziny i daty są wyświetlane w środowisku deweloperów, używany jest format krótkiego czasu i format daty krótkiej ustawień regionalnych kodu.
Uwaga
W przypadku ustawień regionalnych korzystających z zegara 24-godzinnego wskaźniki AM/PM (t i tt) nie wyświetlają niczego.
Dim testDateTime As Date = #1/27/2001 5:04:23 PM#
Dim testStr As String
' Returns current system time in the system-defined long time format.
testStr = Format(Now(), "Long Time")
' Returns current system date in the system-defined long date format.
testStr = Format(Now(), "Long Date")
' Also returns current system date in the system-defined long date
' format, using the single letter code for the format.
testStr = Format(Now(), "D")
' Returns the value of testDateTime in user-defined date/time formats.
' Returns "5:4:23".
testStr = Format(testDateTime, "h:m:s")
' Returns "05:04:23 PM".
testStr = Format(testDateTime, "hh:mm:ss tt")
' Returns "Saturday, Jan 27 2001".
testStr = Format(testDateTime, "dddd, MMM d yyyy")
' Returns "17:04:23".
testStr = Format(testDateTime, "HH:mm:ss")
' Returns "23".
testStr = Format(23)
' User-defined numeric formats.
' Returns "5,459.40".
testStr = Format(5459.4, "##,##0.00")
' Returns "334.90".
testStr = Format(334.9, "###0.00")
' Returns "500.00%".
testStr = Format(5, "0.00%")
